REAL FUNCTION AVRAGE(X,Y,Z)
     REAL X,Y,Z,SUM
     SUM = X + Y + Z
     AVRAGE = SUM /3.0
     RETURN
END

SUBROUTINE CALC(A,B,C, SUM,SUMSQ)
           REAL A,B,C,SUM,SUMSQ
           SUM = A + B + C
           SUMSQ = SUM **2
           RETURN
END

2楼: Originally posted by lurencyj at 2012-03-25 00:32:14:
function接受多个参数，返回一个计算结果。调用的时候，可以直接插入表达式，比如x = AVRAGE(a,b,c)。function AVRAGE 的构造如下：

REAL FUNCTION AVRAGE(X,Y,Z)
     REAL X,Y,Z,SUM
     SUM = X + Y + Z ...