我想打开 10,000 个文件名从abc25000
until开始的文件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
until开始生成文件,abc35000
但它停止了大约一半说
在文件 test-openFile.f90 (unit = 26021, file = '') 的第 17 行
Fortran 运行时错误:打开的文件太多
我需要做什么来修复上面的代码?