F90第九章1.pptVIP

第九章 子程序 9.1 概述/情况1 9.1 概述/情况2 9.1 概述/情况3 9.1 概述/说明 9.1 概述/情况1/程序1 9.1 概述/情况1/程序2 9.1 概述/情况2/程序1 9.1 概述/情况2/程序2 9.1 概述/情况2/程序3 9.1 概述/情况3/程序1 9.1 概述/情况3/结构图 9.1 概述/情况3/程序2 9.1 概述/说明/分类图示 9.2 标准子程序/概述 9.2 标准子程序/标准函数 9.2 标准子程序/注意事项1 9.2 标准子程序/标准子例行程序 9.2 标准子程序/注意事项2 9.3 语句函数/概述 9.3 语句函数/定义 9.3 语句函数/调用 9.3 语句函数/说明 9.3 语句函数/示例1 9.3 语句函数/示例2 9.3 语句函数/示例3 9.3 语句函数/概述/示例 9.4 内部子程序/概述 9.4 内部子程序/内部函数定义 9.4 内部子程序/内部函数说明 9.4 内部子程序/内部函数调用 9.4 内部子程序/内部子例行程序定义 9.4 内部子程序/内部子例行程序说明 9.4 内部子程序/内部子例行程序调用 9.4 内部子程序/内部函数定义/示例1 9.4 内部子程序/内部函数定义/示例2 9.4 内部子程序/内部函数定义/示例2/算法 9.4 内部子程序/内部函数定义/示例2/程序 9.4 内部子程序/内部函数调用/示例 9.4 内部子程序/内部子例行程序定义/示例1 9.4 内部子程序/内部子例行程序定义/示例2 9.4 内部子程序/内部子例行程序定义/示例3 9.4 内部子程序/内部子例行程序调用/示例1 9.4 内部子程序/内部子例行程序调用/示例2 关键字FUNCTION前面可指定内部数据类型,如：INTEGER、REAL、COMPLEX、CHARACTER或LOGICAL等。如果没指定,则按I-N规则或类型声明语句声明类型。 形式参数表称为哑元表, 无形参,则圆括号不能省略。 函数体位于FUNCTION语句和END FUNCTION语句之间。 说明部分同主程序，说明形参、变量等类型。 执行部分同主程序，进行数据处理。 例：计算X=2.5时多项式值 P5(x)＝5.0x5+2.5x4+4.4x+3.5 P3(x)＝3.4x3+1.5x2+1.76x+3.5 调用计算 pnx(5,A,2.5) pnx(3,A,2.5) FUNCTION pnx(N,A,X) INTEGER N REAL A(1:N+1)，X,pnx S=A(1) DO I=2,N+1 S=S*X+A(I) ENDDO pnx=S END FUNCTION 9.4 内部子程序 概述 内部函数定义 内部函数说明 内部函数调用 内部子例行 程序定义 内部子例行 程序说明 内部子例行 程序调用 第九章 函数与子例行程序 调用格式要求同标准函数、语句函数。作为操作数用。 一般格式：F（a1,a2,…,an）F为函数名,ai为实在参数。 实在参数可是表达式、普通变量、下标变量、数组名、内部函数引用、外部函数引用以及外部函数名和子程序名等。 如果定义内部函数无形式参数,其引用形式为：F( )。 (示例) 9.4 内部子程序 概述 内部函数定义 内部函数说明 内部函数调用 内部子例行 程序定义 内部子例行 程序说明 内部子例行 程序调用 第九章 函数与子例行程序 9.4 内部子程序 内部子例行程序,简称内部子程序，也称内部过程,放在CONTAINS结构中。 内部子例行程序可产生多个结果，由参数返回。 内部子例行程序定义一般格式： 内部子例行程序定义→ SUBROUTINE 子程序名（[形式参数表]） {说明语句部分} {执行语句部分} END SUBROUTINE [子程序名] 例如： SUBROUTINE swap(x,y) INTEGER temp,x,y （示例1） temp=x；x=y；y=temp （示例2） END SUBROUTINE swap （示例3） 概述 内部函数定义 内部函数说明 内部函数调用 内部子例行 程序定义 内部子例行 程序说明 内部子例行 程序调用 第九章 函数与子例行程序 9.4 内部子程序 子例行程序不指定数据类型，子程序名不返回值。 形式参数表称为哑元表, 无形参,则圆括号可省略。 子程序体位于SUBROUTINE和END SUBROUTINE语句之