PROGRAM EXAM2 !开始主程序单元定义 WRITE(**)S1=SM(1,100,2)!调用函数子程序SM完成S1的计算 WRTE(*,*)S2=,SM(100,140,3) WRTE(**)S3=,SM(20,50-1) END 程序运行结果如下: S1=338350.000000 S2=7.291440E+07 采用函数子程序设计程序时并没有提高程序的执行效 率,但却可以有效的提高程序的设计效率。当函数子 程序的定义过程和主程序放到一个程序文件中时,存 储顺序是任意的,函数子程序可以放到主程序之前(如 EXAM2),也可以放到主程序之后,但是程序总是从主 程序开始执行。 次函数子程序)。PROGRAM EXAM2 ！开始主程序单元定义 WRITE(*,*)'S1=',SM(1,100,2) ！调用函数子程序SM完成S1的计算 WRITE(*,*)'S2=',SM(100,140,3) WRITE(*,*)'S3=',SM(20,50,-1) END 程序运行结果如下： S1= 338350.000000 S2= 7.291440E+07 S3= 9.514656E-01 对程序EXAM2作如下说明： 程序的第一部分是函数子程序的定义部分，如前所述，它可以单独存 储为一个程序文件。从保留字PROGRAM开始至END是主程序部分， 一个程序总是从主程序开始运行的，主程序的第2~4个语句都要打印 函数SM的值，这时调用函数定义部分，根据函数的定义描述计算函 数的值并予以打印。三个打印语句分别调用了三次函数子程序(即执 行了三次函数子程序)。 采用函数子程序设计程序时并没有提高程序的执行效 率，但却可以有效的提高程序的设计效率。当函数子 程序的定义过程和主程序放到一个程序文件中时，存 储顺序是任意的，函数子程序可以放到主程序之前(如 EXAM2)，也可以放到主程序之后，但是程序总是从主 程序开始执行