关于Fortran读取文件的问题

Question

在ABAQUS子程序二次开发的过程中需要读取TXT文件，把程序放在单独的主程序里可以运行得结果，但是粘贴到子程序中，提交运行就会报错(forrtl: severe (24): end-of-file during read, unit 151），程序如下
open(unit=151,file="CSQF.txt")
do i=1,10
Read(151,),w_ih(:,i)
end do
close (151)
w_ih(:,i)是210的数组，文件数据也是两列10行的，百度查了一下说是读的数据大于文件有的数据，但都是2*10的，而且单独拿出来也是可以运行的，就是在子程序中运行就报错。请问有遇到过的吗？何解?😂

Answer 1

这是程序工作目录的问题。独立运行，工作目录是exe所在目录；aba中运行，是aba的默认目录。可以用绝对路径打开文件,比如，open(151,file='D:\abc\1.txt')