第10章 模块与接口.pptVIP

FORTRAN90 语言程序设计 第10章 模块与接口 主要内容 模块的基本概念、定义及使用 接口的概念及应用 了解超载和定义操作符的一般方法 了解模块在数据共享、公用派生类型、可分配数组的共享、抽象数据类型的定义等方面的一般应用 10.1 模块的定义 一般形式 MODULE 模块名 类型说明部分 [CONTAINS 内部子程序1 …… 内部子程序N] END MODULE [模块名] 10.1 模块的定义 说明 模块名后面通常加后缀“_MODULE”，以增强可读性。 类型说明部分可以是类型说明语句、派生类型定义等。 模块的内部子程序以CONTAINS语句开始。当模块有内部子程序时，各内部子程序次序可以任意。 一个程序中也可以有多个模块，每个模块都要独立编写。 模块名对程序来说是全局的，不能与本程序内的任何程序单元名相同，也不得与模块内的任何局部变量同名。 10.1 模块的定义 举例 MODULE MY_MODULE REAL,PARAMETER::PI=3.1415926 CONTAINS SUBROUTINE SWAP(X,Y) REAL TEMP,X,Y TEMP=X; X=Y; Y=TEMP END SUBROUTINE SWAP END MODULE MY_MODULE 10.2 USE语句 ⒈ 直接使用 一般形式 USE 模块名表 功能 引用所指模块内的所有公共的对象 举例 USE MY_MUDULE 10.2 USE语句 ⒉ 模块内的对象重新命名 一般形式 USE 模块名，更名表 举例 USE MY_MODULE, SWAP1=SWAP 10.2 USE语句 ⒊ 使用模块中的部分对象 一般形式 USE 模块名, ONLY:[ONLY表] 举例 USE MY_MODULE, ONLY:SWAP1=SWAP 10.2 USE语句 ⒋ 综合举例 10.3 接口 一般形式 10.3 接口 说明 ⑴ 接口的定义位置在类型说明语句之前，IMPLICIT NONE语句之后。 ⑵ 类属说明主要包括： 类属子程序名 或OPERATOR(运算符) 或ASSIGNMENT(=) 10.3 接口 说明 ⑶ 接口体的一般形式为： FUNCTION语句 [说明部分] END [FUNCTION语句] 或 SUBROUTINE语句 [说明部分] END [SUBROUTINE语句] 10.3 接口 说明 ⑷ 当用接口进行类属说明或定义超载，并且接口说明的是一个模块的内部子程序时，应使用模块子程序语句。 模块子程序语句的一般形式为： MODULE PROCEDURE 子程序名表 10.3 接口 说明 ⑸ 不允许对一个程序中的内部子程序进行接口定义。 ⑹ 一个接口中可以有多个接口体。 10.4 超载和定义操作符 定义类属过程 超载赋值号 超载运算符 用户自定义的运算符 超载固有函数 10.4.1 类属过程 定义 类属过程是子程序的一种。它允许不同类型的实参与同一个虚参结合，放宽了虚实结合时类型必须一致的条件 举例 编写一个交换任意两个变量值的过程，其变量可以是整型或实型 10.4.1 类属过程 方法 ⑴ 首先编写两个分别实现整型变量交换值和实型变量交换值的过程SWAP_INT和SWAP_REAL。 ⑵ 在接口块语句中使用类属名SWAP，然后列出那些功能相同只是操作数据类型不同的模块过程名 10.4.1 类属过程 10.4.2 超载赋值号 问题 延伸赋值语句的类型转换功能，使得一个逻辑型的值能够赋予一个整型变量，即让赋值语句： I = L !其中L是逻辑型，而I是整型 在 L为.FALSE.时：I为0 L为.TRUE.时： I为1。 10.4.2 超载赋值号 超载赋值号的实现过程 ⑴ 完成此功能的过程 ⑵ 用接口块定义赋值号超载过程 ⑶ 完成此任务的整个模块 10.4.2 超载赋值号 10.4.3 超载运算符 概念 扩展已有运算符功能的过程就叫超载运算符 问题 定义运算符“+”， 它能够删除两个字符串的尾部空格后将两个字符串连接起来 10.4.3 超载运算符 超载运算符的实现步骤 ⑴ 定义一个函数子程序，完成两个字符串的相加功能 ⑵ 用接口将定义好的函数子程序和运算符进行绑定 ⑶ 完成此任务的整个模块 10.4.3 超载运算符 10.4.4 用户自定义的运算符 概述 自定义运算符由字母组成，两边用小