我想打开10,000个文件,文件名从abc25000
开始,直到abc35000
,并将一些信息复制到每个文件中。我写的代码如下:在Fortran 90中打开多个文件
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
文件,但它停止约一半说
At line 17 of file test-openFile.f90 (unit = 26021, file = '')
Fortran runtime error: Too many open files
怎么办我需要做的是修复上面的代码?
感谢您的这个想法。它现在有效。 – Vijay