06/03/26 11:30:18
>>266
内部ファイルを使うのが一番手っ取り早いだろう。
CHARACTER*10 FNAME
INTEGER I
DO I = 1, 20
WRITE(FNAME,'(A, I2.2, ''.txt'')') 'xxxx', I
OPEN(10, FILE=FNAME, STATUS='OLD')
：
ファイルの読み込み
：
CLOSE(10)
END DO
06/03/26 11:30:18
>>266
内部ファイルを使うのが一番手っ取り早いだろう。
CHARACTER*10 FNAME
INTEGER I
DO I = 1, 20
WRITE(FNAME,'(A, I2.2, ''.txt'')') 'xxxx', I
OPEN(10, FILE=FNAME, STATUS='OLD')
：
ファイルの読み込み
：
CLOSE(10)
END DO