在fortran中读取多个文件

我有数百个文件名为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

` 但这似乎不起作用。我能得到一些帮助吗？

---

提前感谢。

方法是在字符串中创建文件名。对于您的姓名样式：

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

然后使用文件名打开每个文件，就像您正在做的那样

---

一个相关的问题：

方法是在字符串中创建文件名。对于您的姓名样式：

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

然后使用文件名打开每个文件，就像您正在做的那样

---

一个相关的问题：

您意识到您已经注释掉了设置文件名的关键行。此外，这里的格式仅适用于3位数字，更不用说使用古老的h描述符查看某些书籍或internet教程中的一些示例程序，并为您的程序使用一些格式。你将能够更好地定位它们。你意识到你已经注释掉了设置文件名的关键行。此外，这里的格式仅适用于3位数字，更不用说使用古老的h描述符查看某些书籍或internet教程中的一些示例程序，并为您的程序使用一些格式。你将能够更好地定位它们。