F第7章子程序.ppt

FORTRAN 程序结构的模块化 7.2 函数子程序 结构形式： [Real] Function Vf(X,Y,N) Vf=X+1 If(X.GE.Y) Then Vf=X**N+Y**N Endif RETURN End 7.3 子程序 结构形式： Subroutine Funf(V,X,Y,N) Real X, Y, V Integer N ……. V=X**N+Y**N ……. [RETURN] End 子程序注意事项 子程序是一个独立的程序单位，因此其中的变量名都是独立的，仅在本程序中有效。 RETURN语句。调用方式。 子程序名仅仅是一个标识符，没有值的概念。 调用时，“虚实结合”，“一一对应”。 在调用的程序单位中，所调用的子程序名应与子程序定义一致。 7.4 程序举例 实验数据的标准误差： 例题4 FUNCTION BETA(A, N) REAL MEAN DIMENSION A(N) AMN=MEAN(A, N) SUM=0.0 DO 1 I=1