- 930 名前：デフォルトの名無しさん [2007/11/01(木) 01:12:57 ]
- 何が原因かわからないのですいませんがどこが間違ってるのかご指摘お願いします．
縦300横10の配列を読み込んで，ただの列にしたいだけなんです．
エクセルを使えば，FORTRAN使うほどのことでもないのでしょうか？
それも含めて教えてください．
program hairetu
open(30,file='a.dat',status='old')
do 10 j=1,10
read(30,*)(b(i,j),i=1,300)
10 continue
close(30)
open(20,file='b.dat',status='new')
do 50 i=1,300
do 40 j=1,10
write(20,*)b(i,j)
40 continue
50 continue
close(20)
stop
end
