gfortran遇到Error: Incompatible ranks 0 and 1 in assignment

Iyz_QAQ

vvt 发表于 2016-3-19 20:05
sign(1.0,kz+NN1*K)
这里第一个参数是 1.0 ，是 real 类型
第二个参数是 kz+NN1*k，是 integer 类型（我猜 ...

还有个问题想问大神，下面这句代码错在哪里：
w0(1)=w0(1)+( waveh(4*J-3,T)*posi(1,1,J) +waveh(4*J-2,T)*posi(1,2,J)+waveh(4*J-1,T)*posi(1,3,J)+waveh(4*J,T)*posi(1,4,J) )*exp((0.0,1.0)*(Kn*z(zz)))
报错是这样的：Error: Incompatible ranks 0 and 1 in assignment at (1)

Iyz_QAQ

fcode 发表于 2016-3-20 07:53
这个错误是等号左右变量数组维度不一致导致的。
比如
[mw_shl_code=fortran,true]  real :: a(3),c

恩 右边的的确是有数组，那我该怎么修改呢

Iyz_QAQ

fcode 发表于 2016-3-20 15:20
一个数是不能够等于一个数组的。这是逻辑问题，而不是语法问题。
如何修改，看你想法。 ...

好的 我再自己想想。

Iyz_QAQ

fcode 发表于 2016-3-20 07:53
这个错误是等号左右变量数组维度不一致导致的。
比如
[mw_shl_code=fortran,true]  real :: a(3),c

版主，我还是不知道怎么改。我该把那个w0（1）定义成几维数组。而且初始值w0（1）=0.0的。