for90 第6章2讲义教材.pptVIP

功能：用于通知编译程序主调程序所调用的外部过程的名字、虚元名字及它们的类型等。 位置：写在主调程序的类型说明语句之前，IMPLICIT语句之后。最简接口块结构形式： INTERFACE !接口入口 　　　　被调程序的单位定义语句，说明语句，单位结束语句 END INTERFACE !接口出口 说明:功能简单的程序，不必写接口块。 如有接口，主调程序不必再说明外部函数名的类型。;6.4 虚实结合;1、计算实元值（作为输出的可预先无值） 2、虚实按地址结合：虚元按顺序借用实元存储单元 3、运行权至子程序的第一句，直至遇子程序的END语句返回到主调程序： ①运行权返回至调用点 ②函数值返回给调用表达式 ③虚实脱离结合，但子程序运行时造成的实元值的改变将保留。;PROGRAM MAIN IMPLICIT NONE INTEGER::X,Y,Z,f Y=f(X,X) PRINT*,X,Y,Z Z=f(Y,X) PRINT*,X,Y,Z END;PROGRAM MAIN REAL::MN,X,S X=3.0 PRINT*,S(X,MN(X)),X !按从左向右依次输出 END;PROGRAM MAIN INTEGER::X,Y CALL SUB(X,X,Y) CALL SUB(X,Y,Y) END;6.4.1 实元用关键字变元;PROGRAM main IMPLICIT NONE INTERFACE FUNCTION F(X,Y,Z)RESULT(F_RESULT) INTEGER::F_RESULT,X,Y,Z END ENDINTERFACE INTEGER::M,N,L READ*,M,N K=F(X=M,Z=L,Y=N) PRINT*,L END;注意：;例如，对子例子程序语句：;6.4.2 可选择变元;PROGRAM MAIN INTERFACE SUBROUTINE S(Y,X) INTEGER ::X INTEGER,OPTIONAL::Y END ENDINTERFACE INTEGER::A,B A=2;B=3 CALL S(X=B) CALL S(X=B,Y=A) END;例6-8 编写一个函数子程序。根据需要，既能求出圆柱的底面积值，也能求出圆柱的体积值。此时可将高度H列为可选择变元。 ;FUNCTION SS(R,H) RESULT(SS_RESULT) IMPLICIT NONE REAL,INTENT(IN)::R REAL,OPTIONAL,INTENT(IN)::H REAL::SS_RESULT REAL::TEMP_H IF(PRESENT(H)) THEN TEMP_H=H ELSE TEMP_H=1.0 ENDIF SS_RESULT=3.141593*R**2*TEMP_H END FUNCTION SS;主调程序;6.4.3 通过接口块更改虚元名称;6.4.4 虚数组;6.5 子程序的嵌套调用;子程序嵌套调用;6.5.2 虚过程;外部函数作为实过程(例6-10);PROGRAM ACTUAL_PROCEDURE IMPLICIT NONE INTERFACE FUNCTION SUM(X,Y) RESULT(SUM_RESULT) INTEGER,INTENT(IN)::X,Y INTEGER::SUM_RSULT END FUNCTION SUM FUNCTION MINU(X,Y) RESULT(MINU_RESULT) INTEGER,INTENT(IN)::X,Y INTEGER::MINU_RESULT END FUNCTION MINU END INTERFACE INTEGER::A,B READ*,A,B CALL PROC(A,B,SUM) CALL PROC(A,B,MINU) END PROGRAM ACTUAL_PROCEDURE;！虚元FUN是虚过程的子例行子程序 SUBROUTINE PROC(A,B,FUN) IMPLICIT NONE INTERFACE FUNCTION FUN(X,Y) RESULT(FUN_RESULT) INTEGER,INTENT(IN)::X,Y INTEGER::FUN_RESULT END FUNCTION FUN END INTERFACE INTEGER,INTENT