第十三章接口与模块.pptVIP

第十三章 接口与模块 13.1 接口/概述 13.1 接口/格式 13.1 接口/说明 13.1 接口/示例 13.2 模块/概述 13.2 模块/概述/示例 13.2 模块/定义 13.2 模块/属性 13.2 模块/使用 13.3 重载/概述 13.3 重载/子程序 13.3 重载/操作符 13.3 重载/赋值号 * 1. 接口 2. 模块 3. 重载 4. 习题十三 4 《FORTRAN90程序设计》课 接口界面功能类似EXTERNAL语句，为主调程序提供外部子程序有关接口信息，接口界面可看作是EXTERNAL语句的扩充，提供的信息比EXTERNAL丰富。 使用接口界面块可提高程序可读性。 接口界面块可用在主程序单元、模块单元、外部子程序单元中,以指明主调程序与被调用外部子程序之间的接口信息,以便保证外部子程序的正确使用。 13.1 接口 第十三章 接口与模块 概述 格式 说明 示例 13.1 接口 第十三章 接口与模块 接口界面块→INTERFACE 接口界面体 END INTERFACE 接口界面体→ {函数接口界面定义∣子例行程序接口界面定义} 函数接口界面定义→ [类型] FUNCTION 函数名(形式参数表) 函数名形式参数类型说明 END FUNCTION 子例行程序接口界面定义→ SUBROUTINE 子例行程序名(形式参数表) 形式参数类型说明 END SUBROUTINE 概述 格式 说明 示例 13.1 接口 第十三章 接口与模块 对于一些常规函数和子例行程序,使用时不需要用INTERFACE接口声明它们的接口信息,但遇到以下情况必须在主调程序中使用接口界面块: 外部函数返回结果是一个数组,即外部函数名类型为数组。 外部函数返回结果是一个字符串,且长度不是常数,也不是假定长度(*)。 外部函数返回结果是一个指针。 外部子程序形式参数(哑元)是一个数组片段。 外部子程序实在参数是关键字变元或是缺省的可选变元。 外部子程序扩展了赋值号的使用范围。 外部子程序参数个数不确定。 外部子程序改变参数传递位置。 概述 格式 说明 示例 13.1 接口 第十三章 接口与模块 PROGRAM main !主程序单元，求三个数最大值 IMPLICIT NONE INTERFACE FUNCTION max3(a,b,c) IMPLICIT NONE INTEGER max3,a,b,c END FUNCTION END INTERFACE INTEGER x,y,z READ*,x,y,z WRITE(*,(1X,三个数的最大值为:,I4)) max3(x,y,z) END FUNCTION max3(a,b,c) !求三个数最大值外部函数子程序 INTEGER max3,a,b,c,max max=a IF (Bmax) max=B IF (Cmax) max=C max3=max END FUNCTION 概述 格式 说明 示例 面向对象程序设计重要概念：数据封装、处理封装、特性继承、操作重载、公私属性等。如储蓄所存取款业务。 模块功能用于实现面向对象程序设计的一些重要概念。 使用模块可设计安全、可靠、高效的程序。 模块中可声明常量、变量、数组、数据块、派生类型、结构体、接口、模块函数、模块子例行程序。 示例：计算半径为10的圆面积和周长。 示例：参见教材p367示例程序，计算某班平均成绩。 13.2 模块 第十三章 接口与模块 概述 定义 属性 使用 面向对象程序设计重要概念：数据封装、处理封装、特性继承、操作重载、公私属性等。如储蓄所存取款业务。 模块功能用于实现面向对象程序设计的一些重要概念。 使用模块可设计安全、可靠、高效的程序。 模块中可声明常量、变量、数组、数据块、派生类型、结构体、接口、模块函数、模块子例行程序。 示例：计算半径为10的圆面积和周长。 示例：参见教材p367示例程序，计算某班平均成绩。 13.2 模块 第十三章 接口与模块 program main!不使用模块实现 parameter(pi=3.14159) real r,p,a read*,r p=peri(r); a=area(r) print*,’peri=’,p,’area=‘,a contains function peri(r) peri=2*pi*r end function