Fortran Coder

标题: No matching user defined OPERATOR with the given type and rank has been defined [打印本页]

作者: 糊糊 时间: 2015-1-2 14:49
标题: No matching user defined OPERATOR with the given type and rank has been defined

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

program main

  use imsl

  implicit none

  real a(3,3),b(3,2),C(2,3)

  b(:,1)=1

  c(1,:)=2

  a=b(:,1).x.c(1,:)

  write(*,*) a

end

显示这样的问题：Error: No matching user defined OPERATOR with the given type and rank has been defined. [X]
a=b(:,1).x.c(1,:) 为什么不能这样子写呢？下面的情况也是差不多的，

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

program main

  use imsl

  implicit none

  real a(3,3),a1(3,3),a2(3,3),b(3,1),C(1,3),temp

  b(:,1)=1

  c(1,:)=2

  a1=b.x.c

  a2=b.x.c

  a=a1+a2

  a=b.x.c

  write(*,*) a

  temp=c.x.b

  write(*,*) temp

end

Error: The shapes of the array expressions do not conform. [TEMP]
temp=c.x.b

作者: fcode 时间: 2015-1-2 15:40
改为：
a=b(:,1:1).x.c(1:1,:)
既可。

因为 .x. 是矩阵相乘，两边必须是二维数组（矩阵）

b(:,1) 是一维数组，大小是 3
b(:,1:1) 是二维数组，大小是 3*1
第二个 temp 的问题，请在第一个问题的基础上自行思考。（错误很相似哦~~）

祝，元旦好！

作者: 糊糊 时间: 2015-1-3 13:07
谢谢，明白了

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)