>>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