Question

运行fortran出现forrt1:severe (29):file not found

PROGRAM MAIN
IMPLICIT NONE
INTEGER NX,NY,NZ,NRES,NFRE
INTEGER TT
character *20 filename
WRITE(*,*)"请输入模型参数文件名"
READ(*,*)FILENAME
OPEN(15,FILE=FILENAME,STATUS='OLD',ACCESS='SEQUENTIAL',FORM='F&
ORMATTED')
READ(15,*) TT
READ(15,*) NFRE !循环计算的频点个数
READ(15,*) NX
READ(15,*) NY
READ(15,*) NZ
READ(15,*)NRES
CLOSE(15)

END PROGRAM MAIN

运行时就出现
forrtl: severe (29): file not found, unit 15, file E:\11\8
Image PC Routine Line Source
11.exe 0040A459 Unknown Unknown Unknown
11.exe 0040A2B7 Unknown Unknown Unknown
Incrementally linked image--PC correlation disabled.

Answer 1

报错说的是文件号为15的文件没有找到。

出现错误的可能为：

1. 文件名超过了长度

   character *20 filename

   READ(*,*)FILENAME
   OPEN(15,FILE=FILENAME,STATUS='OLD',ACCESS='SEQUENTIAL',FORM='F&
   ORMATTED')

   这三句。假设你输入了一个文件名，即使文件名是正确的，而且文件也存在，但是文件名长度超过了20，那么系统只会提取前面的20个字符作为filename，在open语句中就会出现文件夹没找到的错误。

   其实不建议这么读文件名，最好从txt之类的文件读入。

2. 空格是否存在

   在用read(*,*)读取文件的时候系统貌似会自动在文件名之前添加一个空格。调整方法就是OPEN(15,FILE=trim(adjustl(FILENAME)),STATUS='OLD',ACCESS='SEQUENTIAL',FORM='F&
   ORMATTED')

3. 文件是否存在。

   这个我就不用多说了。看看默认路径下指定的文件是否存在。