老哥救救弟弟，程序报错forrtl: severe (24): end-of-file during read,

fcode

如果你要持续等待文件是否可读可写。那么 Inquire 是无法实现的。
它只能判断是否存在，但存在可能无法读写（此时Abaqus还没有释放文件）
所以读取就可能失败。

比如好的办法是这样：

[Fortran] 纯文本查看 复制代码

Do
  open(222,file ='D:\ABAQUS job\FP2.txt',ioStat=k,action="readwrite",status="old")
  if(k==0) then
    read(222,*),a2,g2,n2
    close(222)
  end if  
End Do