1.open文、close文
ファイルを開く際に『open』、ファイルを閉じる際に『close』を使用する。
open (ファイル番号,file='ファイル名') !ファイルを開く
close(ファイル番号) !ファイルを閉じる
open文、close文を使ったプログラムの例
model.txtファイルを作成してk=10を保存、ファイルを閉じる。
program zerofortran
implicit none
integer k
k=10
open (10,file='model.txt') !ファイルを作成してk=10を読み込む
write(10,*) k
close(10) !ファイルを閉じる
end program zerofortran
2.read文
『read』でファイル内の数値を読み込む。
read(ファイル番号,*) k,s,t,u !複数の要素を読み込むには『,』で区切る
read文を使ったプログラムの例
model.txtファイルからkの値を読み込み、出力する。
program zerofortran
implicit none
integer k
open (10,file='model.txt')
read(10,*) k !ファイル内の数値を読み込む
close(10)
write(*,*) 'k=',k
end program zerofortran
k= 10
コメント