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)

fcode

这个错误是等号左右变量数组维度不一致导致的。
比如

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

  real :: a(3),c
  c = a

就会出现这个错误。

我检查了你的代码，左边 w0(1) 是单变量，右边可能有数组，比如 Kn 是一个数组？

Iyz_QAQ

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

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

fcode

一个数是不能够等于一个数组的。这是逻辑问题，而不是语法问题。
如何修改，看你想法。

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的。

fcode

数组应该是几维的，应该根据你的需求而定。而不是如何定义能让编译通过。
请不要本末倒置。

你要做的，是根据你的需求而设计代码。
而不是根据语法要求来更改你的需求。

不管怎么样，一个单变量，都不能等于一个数组。