ortran.pptVIP

第 10 章 模 块 模块概述: 1、作用：共享。提供常量、变量、类型说明以及数据、过程的共享。 2、模块是一种不能直接执行的程序单元。 3、模块是通过USE语句调用的。 4、模块对程序来说是全局的，模块名不能与本程序内的任何程序单元名相同，也不得与模块内的任何局部变量同名。 10.1 模块的定义 MODULE 模块名 类型说明部分 [CONTAINS 内部子程序] END MODULE [模块名] MODULE是关键字，模块定义以MODULE语句开始，END MODULE语句结束。 类型说明部分可以是类型说明语句、派生类型定义及接口块等，但不能有执行语句、语句函数、ENTRY语句或FORMAT语句。 模块的内部过程以CONTAINS语句开始，这部分是可选的。当模块有内部子程序时，必须将整个过程完整地写入。 假设有几个子程序都用到了同一个变量，只需把变量放到一个模块中，这些子程序通过引用该模块，便相当于将该模块移到自己的说明部分中，从而实现共享数据。 下面是一个包含模块内部过程的例子： 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 模块名 这是最简单的模块引用语句，通过该语句，程序就可以使用模块内的所有公共的对象。 例如： USE MY_MUDULE 该语句使模块MY_MODULE中的全部公用对象都可以被使用。 如果要引用多个模块，可以在一个USE语句的后面添加多个模块名，各个模块名之间用逗号间隔开。 ⒉ 模块内的对象重新命名 USE语句允许对模块内的对象重新命名，以解决局部对象和模块内对象之间的名字冲突问题。要重新命名时，USE语句的一般形式为： USE 模块名，更名表 其中，更名表的一般形式为： 别名=模块内对象名 例如： USE MY_MODULE, SWAP1=SWAP 表示可以使用模块MY_MODULE中的全部对象，并且通过别名SWAP1来使用模块中的对象SWAP，换句话说，就是给模块内的对象SWAP重新起了一个名字SWAP1。 ⒊ 使用模块中的部分对象 如果只需要使用模块中的部分对象，可在USE语句中使用ONLY选项。这时USE语句的一般形式为： USE 模块名, ONLY:[ONLY表] 其中，ONLY表的形式为： [别名=]模块内对象名, [别名=]模块内对象名,…… 例如： USE MY_MODULE, ONLY:SWAP1=SWAP 该语句使我们只能使用模块MY_MODULE中的公用对象SWAP，并且通过别名SWAP1来访问模块中的对象SWAP 一个例子： PROGRAM USE_MODULE USE MY_MODULE IMPLICIT NONE REAL::A, B READ *, A B=PI CALL SWAP (A, B) PRINT *, A, B END PROGRAM USE_MODULE 10.3 接口块 接口块的概念 接口块的格式 接口块的概念 要使编译器能够正确地调用子程序，它必须知道这个子程序的一些信息，如程序名、变量的数目和变量的类型等。我们将这些信息收集在一起就称为子程序的接口块。 接口可以分为显式接口和隐式接口。某些子程序 (如内部子程序)的接口对编译器来说是已知的，这类子程序的接口就被称为显式接口。某些子程序(如外部子程序)的接口对编译器来说是未知的，这类子程序的接口就被称为隐式接口。显式接口不需要定义，我们要定义的是隐式接口。 接口定义的一般形式为： INTERFACE [类属说明] [接口体] [模块子程序语句] END INTERFACE 关于接口定义的几点说明： ⑴ 接口的定义以INTERFACE语句开始，以END INTERFACE语句结束，定义的位置在类型说明语句之前，IMPLICIT NONE语句之后。 ⑵ 类属说明主要包括： 类属子程序名 或OPERATOR(运算符) 或ASSIGNMENT(=) 其中，类属子程序名用于定义