FORTRAN模块与面向对象.pptVIP

本章内容 13.1 模块的定义 13.2 模块的基本组成 13.3 模块中的USE 13.4 模块中的重载性应用 13.5 模块的继承性应用 本章小结 【例13-10】利用操作符重载，实现乘方运算 这个程序主要是用来展示操作符的重载使用方法，程序的第31行把m和n拿来做乘方运算，由于这两个变量是派生数据类型，本来是没有办法做乘方运算的。但是，由于在MODULE POWERTYPE中定义了一个特别的INTERFACE，它把乘方“**”符号也拿来作为虚拟函数的名称。 因此，在主程序中出现乘方运算时，如果做运算的两个变量都TYPE(POWER)类型，程序会自动转换成调用函数MULTI来执行。 注意：如果要进行操作符的重载，INTERFACE后面必须紧跟着OPERATOR关键字，在其后用括号（）把操作符号包起来。 在一般情况下，赋值号“=”只允许两边类型相同才能进行赋值操作，因此没有必要重载“=”符号。但是，在一些特殊情况下，必须要重载赋值符号，所以，FORTRAN 90中允许通过重载赋值符号“=”，来完成这些特殊情况下的操作。 看例13-11，把输入的实数时间转换成相应的小时和分钟，然后输出。例如，输入为1.5，输出为1小时30分钟。 这个程序比较简单，只是根据输入的实数，最终输出小时和分钟。通过这个程序，我们看到，可以根据需要重载赋值符号，以便实现不同数据类型之间的赋值操作。 继承是面向对象的另一个重要特征，在FORTRAN 90/95中，可以通过继承MODULE来增强新的功能。 采取类似C+ + 类的组合方式，将某个派生数据类型的对象作为另一个派生数据类型的一个数据成员，从而将隶属关系转变为包含关系。 NANJING UNIVERSITY OF INFORMATION SICENCE TECHNOLOGY 第十三章 FORTRAN模块与面向对象 * FORTRAN语言程序设计 NANJING UNIVERSITY OF INFORMATION SICENCE TECHNOLOGY 第十三章 FORTRAN模块与面向对象 * FORTRAN语言程序设计 第十三章  FORTRAN模块与面向对象 模块的定义 模块的基本组成 模块的使用 模块的应用（重载性应用、继承性应用） 模块的一般定义格式： MODULE 模块名 模块说明语句 CONTAINS 模块子程序1 模块子程序2 END MODULE 模块名 说明： （1）在模块的说明语句部分，可以声明常量（使用PARAMETER语句）、变量、数组、派生数据类型（TYPE 语句）、模块函数名、模块子程序名。这些被声明的对象可在本模块内使用，对于具有共有属性的对象也可在模块外其他程序单元使用。 （2）在模块中可包含CONTAINS结构，允许定义模块函数和模块子例行程序，这些程序可在模块内调用，对于具有公共属性的模块子程序也可在模块外其他程序单元使用。 （3）在模块中可只有数据声明，或者只有子程序定义，或者两者都有。 举例：MODULE DATA_MODULE REAL, SAVE ::St_RainFall=50 END MODULE DATA_MODULE PROGRAM ex13_01 USE DATA_MODULE IMPLICIT NONE REAL RainFall PRINT *, “输入过去3小时的降水总量（毫米）： READ*, RainFall IF(RainFall=St_RainFall) then PRINT*,请立即发出橙色预警信号，注意防涝！ ELSE PRINT*,请注意观察！ END IF；END 说明： DATA_MODULE为模块的名称，主程序通过引用(USE)模块，来使用模块当中的数据和过程。注意：USE语句须位于IMPLICIT NONE语句之前；模块和主程序可以放在不同的源文件中，若模块和主程序放于同一个文件中，模块应位于主程序的前面。 模