abc25000
までのファイル名で10,000個のファイルを開きabc35000
、各ファイルにいくつかの情報をコピーしたいと思います。私が書いたコードは以下の通りです:
PROGRAM puppy
IMPLICIT NONE
integer :: i
CHARACTER(len=3) :: n1
CHARACTER(len=5) :: cnum
CHARACTER(len=8) :: n2
loop1: do i = 25000 ,35000 !in one frame
n1='abc'
write(cnum,'(i5)') i
n2=n1//cnum
print*, n2
open(unit=i ,file=n2)
enddo loop1
終わり
このコードは、から始まるファイルを生成することになっていますabc24000
がabc35000
、途中で停止します。
ファイルtest-openFile.f90の17行目(ユニット= 26021、ファイル='')
Fortranランタイムエラー:開いているファイルが多すぎます
上記のコードを修正するにはどうすればよいですか?