Question

FORTRAN的子程序能返回复数吗？

比如，COMPLEX FUNCTION F(X1，X2) 有没有问题？

Answer 1

当然没问题
给你个例子看看
http://www.netlib.org/blas/cdotu.f

追问

比如下面这个例子，能帮我看看有什么问题吗？运行发现，调用子程序时参数传不进去，如果把子程序返回值改为其他类型的，就可以了。求教了。
COMPLEX G
INTEGER N_HM
N_HM=1

G=STAB(N_HM,(1,2))

END

FUNCTION STAB(N_HM,OMIGA)
COMPLEX STAB
INTEGER N_HM
COMPLEX OMIGA

STAB=N_HM*OMIGA

END

追答

主程序里面没有声明COMPLEX STAB