如何使用function重载运算符运算后返回一个数组

306908677

RT
求高手指点

306908677

补充：数组运算得到数组

306908677

百事可乐 发表于 2014-12-6 16:13
我这里有一个重载 matmul 的代码,给你当例子吧

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

module matmul_int
[/quote]
[mw_shl_code=fortran,true]  program main
  implicit none

   interface
        subroutine random_arr(a)
        implicit none
        integer(4),intent(out),allocatable ::a(:)
        end
   end interface

   interface operator(.U.)
        Function addy(c1, c2)
        implicit none
        integer, intent(in) :: c1(:), c2(:)
        integer, intent(out):: addy(20)

错误：
Function addy(c1, c2)
1
错误： (1)处的符号不是一个 DUMMY 变量
/Users/StarkLee/Desktop/EQU2.F90:33.1:

function addy(c1,c2)
1
错误： (1)处的符号不是一个 DUMMY 变量
Jarvis:~ StarkLee$

什么原因啊＝＝

306908677

li913 发表于 2014-12-6 19:10
普通的 + - * / 都是可以运用于数组的。

real a(3,4), b(3,4), c(3,4)

嗯嗯，thanx～

306908677

fcode 发表于 2014-12-7 00:31
照猫画虎还不会？

[mw_shl_code=fortran,true]Module S

多谢大家的耐心指点～

仔细看了一遍原来function不能定义为 out～
问题已解决