*2345678901234567890
integer a,i
open(10,file='inputdata',status='old')
open(20,file='/homs/msdas/output',status='new')
do 10 i=1,10
read(10,*) a
write(20,*) a
10 continue
close(20)
close(10)
end
とすれば現在のディレクトリの"inputdata"から読み込み、
"/home/msdas/output"へ書きだしてくれますが。
|