问题遇到的现象和发生背景
fortran编译时遇到问题:Error: Incompatible ranks 0 and 1 in assignment at (1)
问题相关代码，请勿粘贴截图
INTEGER(8) :: R
COMPLEX , DIMENSION(N_x) :: Psi_xz_R
INTEGER(8), PARAMETER :: N_R=66
REAL(8) , DIMENSION(N_R) :: d_R
Open(unit=17, file='d_R.dat', status='old')
Do R=1,N_R
read(17,*) d_R(R)
Enddo
CLOSE(17)
Open(unit=3, file='Eigen_wave0.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
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
运行结果及报错内容
Psi_xz_R(mx)=d_R*Psi_xz_0(mx)
1
Error: Incompatible ranks 0 and 1 in assignment at (1)
Error(E42): Last command making (build\wavepacket_1DTDSE_core-excited.o) returned a bad status
Error(E02): Make execution terminated
- Failed *
我的解答思路和尝试过的方法
我一开始以为是数据类型不合适，更改过d_R的类型（从real改为COMPLEX),但毫无改变）我想要达到的结果
我想知道这个报错到底代表什么含义？是哪里出问题了？如何修改？
谢谢各位的解答
