Question

fortran 如果文件不存在,就跳过

我想一次读取文件名为1、2、3、……的文件，打开，读取，写入一个文件，如果不存在某个文件，则跳过，读取下一个文件，请问应该怎么做？

Answer 1

可以使用 INQUIRE 语句
50 INQUIRE(FILE=要查找的文件名,EXIST=ALIVE)
IF(ALIVE.EQ.0) THEN ! 存在文件
要执行的语句
goto 50
else
goto 50
END IF

Answer 2

引用yxaaakn的回答：
可以使用 INQUIRE 语句
50 INQUIRE(FILE=要查找的文件名,EXIST=ALIVE)
IF(ALIVE.EQ.0) THEN ! 存在文件
要执行的语句
goto 50
else
goto 50
END IF

ALIVE是LOGICAL，不是INTEGER
所以判断语句是：IF(ALIVE) THEN