FORTRAN模块的.docVIP

目录 第7章 FORTRAN模块 7.1 模块概述 7.2 模块的基本组成与使用 7.2.1 模块的基本组成形式 7.2.2 模块的共享使用 7.2.3 公有共享和私有使用 7.2.4 别名共享和部分共享 7.3 面向对象的程序设计概述 7.4 类的定义与对象的使用 7.4.1 类的定义 7.4.2 对象的使用 7.4.3 组合—类对象的使用 7.5 过程重载与新运算符的定义 7.5.1 过程重载 7.5.2 运算符重载 7.5.3 重载赋值号7.5.4 定义新运算符 7.6 继承性和多态性 7.6.1 基类和派生类 7.6.2 多态性 7.7 模块应用举例 习题 7  第7章 FORTRAN模块 7.1 模块概述 在FORTRAN中有四种不同的程序单元：主程序、外部过程、数据块子程序和模块。 模块是在FORTRAN 90中新增加的一种独立编写的程序单元。 模块中可包含其它程序单元(主程序、函数子程序、子例行子程序)访问的数据、过程和派生类型的说明和定义。如变量、数组的说明,派生类型的定义,函数子程序、子例程子程序的定义等。 模块的主要作用是供其它程序单元引用和支持面向对象的程序设计。 一个程序单元如果引用模块，实际上就是把该模块内的全部语句复制到本程序单元中，并且所有与模块中的名字相同的变量，彼此共享存贮单元。如果模块程序单元中包含有过程的定义，那么，这些过程也可供其它程序单元使用。所以使用模块的第一个作用就是共享。 还可以把某个算法的数据及其实现、或者对于某种派生类型的定义和操作封装在一个模块中。 例如，高精度数值积分、快速傅立叶变换等算法各自封装在一个模块中；对于高考生、职工等派生类型的定义和操作各自封装在一个模块中。 这样，通过模块，Fortran可以支持面向对象的程序设计方法。所以使用模块的第二个作用就是进行面向对象的程序设计。 在Fortran的2003标准中，将增加和提高支持面向对象的程序设计的成分。使得模块的作用将进一步增强。 7.2 模块的基本组成与使用 7.2.1 模块的基本组成形式 MODULE 模块名 [ 说明部分 ] [ CONTAINS 模块过程部分 ] END [ MODULE [模块名] ] 其中: 说明部分可以出现类型说明、COMMON语句、 DATA语句、DIMENSION语句、POINTER语句等,但是不能出现语句函数、FORMAT语句、 ENTRY语句。 模块过程部分中可以包含若干个函数子程序、子例程子程序。因为这些过程是书写在模块内部，所以称它们为模块过程。 CONTAINS语句把模块的说明部分与模块过程部分区分开。 例如: ! 定义双精度数学常数 Module MathConstants implicit none ! INTEGER,PARAMETER::DP=SELECTED_REAL_KIND(15,307) INTEGER,PARAMETER::DP=KIND(1.d0) ! 前一注解中所含语句的另一形式 real(DP),parameter::DegPerRad=57.295779513082320876798155_DP real(DP),parameter::RadPerDeg=0.017453292519943295769237_DP real(DP),parameter::eValue=2.71828182845904523560287_DP real(DP),parameter::Euler=0.5772156649015328606_DP real(DP),parameter::Gamma=0.577215664901532860606512_DP real(DP),parameter::Golden_Ratio=0.618033988749894848_DP real(DP),parameter::piValue=3.141592653589793238462643_DP end Module MathConstants ! 定义双精度物理学常数 Module PhysicalConstants ! 定义选择的精度 INTEGER,PARAMETER::DP=KIND(1.d0) ! ========== 物理学常数和单位 ========== real(DP),parameter::AMUValue=1.6605402E-27_DP ! kg real(DP),parameter::AtmospherePres=9.80665E+04_DP ! Pa real(