fortran90第十三章.ppt

1 接口2 模块3 重载4 习题十三 第十三章接口与模块 4 FORTRAN90程序设计 课 13 1接口 概述 接口界面功能类似EXTERNAL语句 为主调程序提供外部子程序有关接口信息 接口界面可看作是EXTERNAL语句的扩充 提供的信息比EXTERNAL丰富 使用接口界面块可提高程序可读性 接口界面块可用在主程序单元 模块单元 外部子程序单元中 以指明主调程序与被调用外部子程序之间的接口信息 以便保证外部子程序的正确使用 13 1接口 第十三章接口与模块 概述格式说明示例 13 1接口 格式 13 1接口 第十三章接口与模块 INTERFACEENDINTERFACE FUNCTION ENDFUNCTION SUBROUTINE ENDSUBROUTINE 概述格式说明示例 13 1接口 说明 13 1接口 第十三章接口与模块 对于一些常规函数和子例行程序 使用时不需要用INTERFACE接口声明它们的接口信息 但遇到以下情况必须在主调程序中使用接口界面块 外部函数返回结果是一个数组 即外部函数名类型为数组 外部函数返回结果是一个字符串 且长度不是常数 也不是假定长度 外部函数返回结果是一个指针 外部子程序形式参数 哑元 是一个数组片段 外部子程序实在参数是关键字变元或是缺省的可选变元 外部子程序扩展了赋值号的使用范围 外部子程序参数个数不确定 外部子程序改变参数传递位置 概述格式说明示例 13 1接口 示例 13 1接口 第十三章接口与模块 PROGRAMmain 主程序单元 求三个数最大值IMPLICITNONEINTERFACEFUNCTIONmax3 a b c IMPLICITNONEINTEGERmax3 a b cENDFUNCTIONENDINTERFACEINTEGERx y zREAD x y zWRITE 1X 三个数的最大值为 I4 max3 x y z ENDFUNCTIONmax3 a b c 求三个数最大值外部函数子程序INTEGERmax3 a b c maxmax aIF B max max BIF C max max Cmax3 maxENDFUNCTION 概述格式说明示例 13 2模块 概述 面向对象程序设计重要概念 数据封装 处理封装 特性继承 操作重载 公私属性等 如储蓄所存取款业务 模块功能用于实现面向对象程序设计的一些重要概念 使用模块可设计安全 可靠 高效的程序 模块中可声明常量 变量 数组 数据块 派生类型 结构体 接口 模块函数 模块子例行程序 示例 计算半径为10的圆面积和周长 示例 参见教材p367示例程序 计算某班平均成绩 13 2模块 第十三章接口与模块 概述定义属性使用 13 2模块 概述 示例 面向对象程序设计重要概念 数据封装 处理封装 特性继承 操作重载 公私属性等 如储蓄所存取款业务 模块功能用于实现面向对象程序设计的一些重要概念 使用模块可设计安全 可靠 高效的程序 模块中可声明常量 变量 数组 数据块 派生类型 结构体 接口 模块函数 模块子例行程序 示例 计算半径为10的圆面积和周长 示例 参见教材p367示例程序 计算某班平均成绩 13 2模块 第十三章接口与模块 概述定义属性使用 13 2模块 定义 模块定义一般格式 MODULE CONTAINS ENDMODULE 示例 modulepaiparameter pi 3 14159 endmodule 13 2模块 第十三章接口与模块 概述定义属性使用 13 2模块 属性 公有属性 public 允许在该模块外使用 可缺省 PUBLIC 私有属性 private 允许在该模块外使用 不可缺省 PRIVATE MODULEmod1PRIVATE 指定所有变量n1 n2 n3为私有变量PUBLICn3 指定变量n3为公有变量 n1和n2为私有变量INTEGERn1 n2 n3ENDMODULEmod1MODULEmod2PUBLIC 指定所有变量n1 n2 n3为公有变量PRIVATEn3 指定变量n3为私有变量 n1和n2为公有变量INTEGERn1 n2 n3ENDMODULEmod2 13 2模块 第十三章接口与模块 概述定义属性使用 13 2模块 使用 13 2模块 第十三章接口与模块 概述定义属性使用 13 3重载 概述 重载概述子程序操作符赋值号 13 3重载 第十三章接口与模块 13 3重载 子程序 13 3重载 子程序重载 一个子程序名实现多个子程序功能 示例 用一个put子程序名实现不同类型数据输出 参见教材p373示例程序MODULEoutputINTERFACEputMODULEPROCEDUREput integerMODULEPROCEDUREput real ENDINTERFACECONTAINSFUNCTIONput integer i INTEGER INTENT IN IPRINT 1X i I4 iENDFUNCTION ENDMODULEoutput 第十三章接口与模块 重载概述子程序操作符赋值号 13 3重载 操作符 13 3重载 操作符重载 可对算术运算符 关系运算符 逻辑运算符进行重载 扩充其功能 示例 表示时间的结构体向加 参见教材p375示例程序