FORTRAN90第6章2概述.pptVIP

例6-1 编写求1+2+3+……+N的值的函数子程序。函数定义 Function isum(n) result(isum_result) integer::n, isum_result,I isum_result=0 do I=1,n isum_result=isum_result+I end do End function 例6-1 编写求1+2+3+……+N的值的函数子程序。主程序（函数调用） Program main integer::n integer::isum read*,n print *,isum(n) end 6.4 虚实结合 虚实结合的一般原则 实元和虚元个数相等、位置对应、类型一致 特殊情况 关键字变元 可选择变元 虚元改名 6.4.1 实元用关键字变元 关键字变元调用举例 例如：Subroutine HF（A,B,M,N） Call HF(5,25,10,1) 使用关键字变元调用可写成： Call HF(B=25,M=10,A=5, N=1) Call HF(5,25, N=1,M=10) Call HF(5,25, M=10,1) ? PROGRAM main INTERFACE FUNCTION F(X,Y,Z)RESULT(F_RESULT) INTEGER::F_RESULT,X,Y,Z END FUNCTION F END INTERFACE integer::k K=F(X=1,Z=3,Y=2) PRINT *,K END PROGRAM main FUNCTION F(X,Y,Z) RESULT(F_RESULT) INTEGER::F_RESULT,X,Y,Z F_RESULT=X+Y+Z END FUNCTION F 6.4.2 可选择变元 可选变元举例 例6_8：编写一个函数子程序。根据需要，既能求出圆柱的底面积值，也能求出圆柱的体积值。 主调程序 PROGRAM SS_OPTIONAL IMPLICIT NONE INTERFACE FUNCTION SS(R,H)RESULT(SS_RESULT) REAL,INTENT(IN)::R REAL,OPTIONAL,INTENT(IN)::H REAL::SS_RESULT END FUNCTION SS END INTERFACE PRINT (1X,A,F10.3),AREA=,SS(2.5) PRINT (1X,A,F10.3),VOLUME=,SS(2.5,9.6) END PROGRAM SS_OPTIONAL 6.5 子程序的嵌套调用 子程序嵌套调用 6.5.2 虚过程 外部函数过程作为实元 内在函数作为实元 外部函数作为实元(例6-10) 递归过程 递归过程 递归过程 递归举例 递归的分类 例 6-16 编写一过程，求两个数之和。 使用内部或外部过程时还应注意以下几点： 6.8.2 类属过程 类属过程 类属过程 超载运算符 上述“+”运算符可以用于连接两个字符串，但仍可以做数值的加法运算。 操作数为数值，做加法运算 操作数不为数值，操作含义要到 function concat 中找 超载赋值 超载赋值是指把赋值的含义扩展到新的数据类型。按规定赋值号两边的类型必须相容。用超载赋值时，可以进行类型不同的数据间赋值 例：把 .true. 赋给一个整型变量得值1； .false.赋给一个整型变量得值0。 实现赋值号超载的方法是： 1、编写subroutine子程序 (实现=的超载功能) 子程序只有两个虚元，第一个虚元具有intent（out）属性，第二个虚元具有intent（in）属性 2、在主调程序中编写一个接口，接口语句的形式为： interface assignment(=) 注意：①子程序的虚元一定要有INTENT属性 ②虚元顺序：将右边类型赋值给左边 注意(P142) 进行超载赋值运算时，必须编写成子例子程序形式； 要实现超载运算符或自定义运算符功能时，必须编成函数子程序形式。 A）接口块说明必须以INTERFACE开始，END INTERFACE结束。 B）任何程序单位内均可使用接口块说明。 C）定义超载运算符必须使用接口块说明。 D）定义超载赋值符必须使用接口块。 A）CONTAINS语句用来分隔程序单位的主体部分与内部过程