>>331
内部ファイルを使うなら >>328のプログラムで
> name = (char(i))//'.dat'
の部分を

WRITE(name,'(I3,A)') i, '.dat'
または
WRITE(name,'(I3,''.dat'')') i

とすればＯＫ