问题遇到的现象和发生背景
fortran编译时遇到问题: fortran runtime error:bad integer for item 1 in list input
问题相关代码,请勿粘贴截图
INTEGER(8) :: R
COMPLEX , DIMENSION(N_x) :: Psi_xz_R
INTEGER(8), PARAMETER :: N_R=8192
REAL(8) , DIMENSION(N_R) :: d_R
Open(unit=3, file='Eigen_wave0.dat', status='old')
Open(unit=17, file='d_R.dat', status='old')
x=x_min+INT(abs(-1.0-x_min_0)/d_x_0)d_x_0
Do mx=INT(abs(-1.0-x_min_0)/d_x_0)+1, INT(abs(-1.0-x_min_0)/d_x_0)+N_x_0
Read(3,) x, RPsi6 !, IPsi6
Read(17,) R, d_R
IPsi6=0.0D0
Psi_xz_0(mx)=CMPLX(RPsi6,IPsi6)
Psi_xz_R(mx)=d_RPsi_xz_0(mx)
Psi_xz(mx)=Psi_xz_R(mx)
norm_t=norm_t+d_xABS(Psi_xz_0(mx))**2
Enddo
CLOSE(17)
CLOSE(3)
运行结果及报错内容
我的解答思路和尝试过的方法
补充过d_R.dat文件中的数据数量
我想要达到的结果
找到问题的解决办法,(是程序还是文件的问题),能够让程序继续运行下去,得到数据
读文件出错。检查 d_R.dat 中是否有非数字内容。