0

我有数百个文件名为 fort.1、fort.2、fort.3 等等，直到 fort.5000。我想要的是打开每个文件并操作该文件并关闭。然后继续下一个文件。我想在 Fortran 90 中做到这一点。

我浏览过但无法得到我想要的。我看到了一个要打开的线程，但这对我没有多大帮助。

我试着写`

program openFile
IMPLICIT none
INTEGER(I-N), REAL*8(A-H,O-Z)
real,dimension(2000) :: angle           
CHARACTER(len=10) FN
integer::I, k
integer,parameter :: N=102  
DO I=101,N
!WRITE(FN,10) I
!WRITE(6,*) FN
OPEN(1,FILE=FN)
do k=1,200
read(1,'(F8.3)') angle(k)
print*,
end do      
CLOSE(1)
enddo 
10 FORMAT(5Hfort.I3)
STOP
END

` 但似乎它不起作用。我有可能得到一些帮助吗？提前致谢。

4

1 回答 1

6

方法是在字符串中创建文件名。对于您的名称风格：

write (filename, '("fort.", I0)' )  FileNum

然后像您一样使用文件名打开每个文件。

一个相关问题：https ://stackoverflow.com/questions/13048441/writing-files-in-fortran-with-increasing-numbers

于 2012-11-06T11:43:45.160 回答