第十一章 子程序.ppt

第十一章 子程序 【重点】 函数子程序、子例行程序的定义 与调用，实参与虚参的数据传递 本章内容 11.1函数子程序 11.2子例行程序 11.3实参与虚参之间的数据传递 11.4利用子程序实现程序的模块化设计 11.5在子程序中save语句与data语句 11.6程序举例 11.1 函数子程序 FORTRAN的子程序有函数子程序、子例行程序和数据块子程序三种。 子程序可以被主程序调用，也可以被其它子程序调用。但不能直接或间接地自己调用自己(递归调用)。调用子程序的主程序和子程序统称为调用程序(调用单位)，被调用的子程序统称为被调用程序(被调用单位)。 11.1 函数子程序 在FORTRAN 77中，允许使用三种函数：(1)内部函数；(2)语句函数；(3)函数子程序(外部函数)。函数子程序是一个独立的程序单位，它不属于调用程序所在的程序单位，因此它称为外部函数。内部函数是FORTRAN 77提供的系统标准函数，可以被任何程序单位调用。 11.1.1函数子程序的定义 一、函数子程序的定义 函数子程序必须以FUNCTION语句开头，以END语句结束。 FUNCTION语句的形式为： 第一种： 类型说明 FUNCTION 函数名(虚拟参数表) 第二种： FUNCTION 函数名(虚拟参数表) 类型说明 函数名 注意：1.函数名的取名与变量名相同； 2.函数名既表示函数的名字又代表函数的函数值； 3.若省略对函数名的类型说明，按隐含类型规则处理。 11.1.1函数子程序的定义（续） 4. 函数名后一对括号中为虚拟参数，当参数多于一个时，它们之间用逗号隔开，虚参可以是变量名、数组名、子程序名； 5. 如果没有虚参时，一对括号不能省，形式应为： 类型说明 FUNCTION 函数名( ) 6. FUNCTION语句到对应的END语句组成函数体，函数体中说明语句在前，执行语句在后； 7. 在程序的执行流程返回调用单位之前，必须把所求的函数值赋给函数名： 函数名=表达式 11.1.1函数子程序的定义（续） 8. 函数是一个独立的编译单位，所以函数体内的所有变量、语句标号等的作用仅局限于本程序单位内，除函数名和虚参以外其他程序单位没有任何联系； 9. RETURN语句与END语句的关系: RETURN语句可以有多个，可根据需要放在适当的位置上，程序执行的流程在遇到它时就立即返回调用单位,它可以省略； END语句只有一个，且必须放在子程序的最后。 11.1.2函数子程序的调用 外部函数的调用形式与内部函数的调用相同其形式如下： 函数名(实在参数，… ) 或者 函数名( ) 注意：1.它可以在任何允许函数值出现的表达式中调用函数，只能在表达式中对函数进行调用； 2.在调用程序中使用外部函数名和函数子程序定义中的函数名的类型应完全一致； 3.实参个数必须与对应的虚参个数完全相同，实参与虚参按它们的位置建立一一对应的联系，实参的名字和对应位置上的虚参无需相同，但类型必须完全一致。 运用函数子程序编程 编写一个函数子程序IFAC用来求n!，要求所得函数值为实型。调用此函数求 C=R!/((R-K)!*K!) 举例源程序 （home) INTEGER R REAL IFAC 10 WRITE(*,*)’输入正整数R,K(RK)’ READ(*,*)R,K IF(R .GE.0 .AND. K .GE.0 .AND S . R-K .GE.0 )THEN C=IFAC(R)/ (IFAC(R-K)* IFAC(K)) ELSE WRITE(*,*)’数据有误，重输’ GOTO 10 ENDIF WRITE(*,*)’C= ’,C END 11.2 子例行程序 1.子例行程序的定义 子例行程序以SUBROUTINE语句开头，以END语句结束。 SUBROUTINE语句的形式为： SUBROUTINE 子例行程序名(虚拟参数，…) 当没有虚参时形式为： SUBROUTINE 子例行程序名 11.2 子例行程序 说