Question

fortran 里定义一个FUNCTION 怎么写才能让这个函数返回值是一个数组 。

例如传入一个3*3的数组 返回值是输入的这个数组里的每个元素乘以2的一个新数组。

Answer 1

这个问题可以通过定义pure elemental 属性的function 来解决：

如下图中的代码所示，数组是一维或二维均可以。

2.运行结果

Answer 2

用返回值也可以，用虚参传递也可以。

比如以下例子：func1 用返回值，sub2 用虚参。
Program Baidu_Thlws
real a(3,3) , b(3,3)
a = 1.0
b = func1( a )
write( * , * ) 'first' , b
b = 0.0
call sub2( a , b )
write( * , * ) 'second' , b
Contains
Function func1( x )
Real :: x( 3 , 3 ) , func1( 3 , 3 )
func1 = x * 2.0
End Function func1
Subroutine sub2( x , y )
Real :: x( 3 , 3 ) , y( 3 , 3 )
y = x * 2.0
End Subroutine sub2
End Program Baidu_Thlws

Answer 3

不记得FORTRAN能有返回数组的函数，或许你的版本特殊吧，一般编程也没这样的必要啊。