fortran.ppt

《fortran.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第10章模块模块概述:1、作用：共享。提供常量、变量、类型说明以及数据、过程的共享。2、模块是一种不能直接执行的程序单元。3、模块是通过USE语句调用的。4、模块对程序来说是全局的，模块名不能与本程序内的任何程序单元名相同，也不得与模块内的任何局部变量同名。10.1模块的定义MODULE模块名类型说明部分[CONTAINS内部子程序]ENDMODULE[模块名]MODULE是关键字，模块定义以MODULE语句开始，ENDMODULE语句结束。类型说明部分可以是类型说明语句、派生类型定义及接口块等，但不能有执行语句、语句函数、ENT

2、RY语句或FORMAT语句。模块的内部过程以CONTAINS语句开始，这部分是可选的。当模块有内部子程序时，必须将整个过程完整地写入。假设有几个子程序都用到了同一个变量，只需把变量放到一个模块中，这些子程序通过引用该模块，便相当于将该模块移到自己的说明部分中，从而实现共享数据。说明下面是一个包含模块内部过程的例子：MODULEMY_MODULEREAL,PARAMETER::PI=3.1415926CONTAINSSUBROUTINESWAP(X,Y)REAL::TEMP,X,YTEMP=XX=YY=TEMPENDSUBROUTI

3、NESWAPENDMODULEMY_MODULE10.2USE语句⒈直接使用直接使用USE语句的一般形式为：USE模块名这是最简单的模块引用语句，通过该语句，程序就可以使用模块内的所有公共的对象。例如：USEMY_MUDULE该语句使模块MY_MODULE中的全部公用对象都可以被使用。如果要引用多个模块，可以在一个USE语句的后面添加多个模块名，各个模块名之间用逗号间隔开。⒉模块内的对象重新命名USE语句允许对模块内的对象重新命名，以解决局部对象和模块内对象之间的名字冲突问题。要重新命名时，USE语句的一般形式为：USE模块名，更

4、名表其中，更名表的一般形式为：别名=>模块内对象名例如：USEMY_MODULE,SWAP1=>SWAP表示可以使用模块MY_MODULE中的全部对象，并且通过别名SWAP1来使用模块中的对象SWAP，换句话说，就是给模块内的对象SWAP重新起了一个名字SWAP1。⒊使用模块中的部分对象如果只需要使用模块中的部分对象，可在USE语句中使用ONLY选项。这时USE语句的一般形式为：USE模块名,ONLY:[ONLY表]其中，ONLY表的形式为：[别名=>]模块内对象名,[别名=>]模块内对象名,……例如：USEMY_MODULE,O

5、NLY:SWAP1=>SWAP该语句使我们只能使用模块MY_MODULE中的公用对象SWAP，并且通过别名SWAP1来访问模块中的对象SWAP一个例子：PROGRAMUSE_MODULEUSEMY_MODULEIMPLICITNONEREAL::A,BREAD*,AB=PICALLSWAP(A,B)PRINT*,A,BENDPROGRAMUSE_MODULE注意：USE语句出现的位置，在IMPLICITNONE语句前面10.3接口块接口块的概念接口块的格式接口块的概念要使编译器能够正确地调用子程序，它必须知道这个子程序的一些信息，

6、如程序名、变量的数目和变量的类型等。我们将这些信息收集在一起就称为子程序的接口块。接口可以分为显式接口和隐式接口。某些子程序(如内部子程序)的接口对编译器来说是已知的，这类子程序的接口就被称为显式接口。某些子程序(如外部子程序)的接口对编译器来说是未知的，这类子程序的接口就被称为隐式接口。显式接口不需要定义，我们要定义的是隐式接口。接口定义的一般形式为：INTERFACE[类属说明][接口体][模块子程序语句]ENDINTERFACE关于接口定义的几点说明：⑴接口的定义以INTERFACE语句开始，以ENDINTERFACE语句结

7、束，定义的位置在类型说明语句之前，IMPLICITNONE语句之后。⑵类属说明主要包括：类属子程序名或OPERATOR(运算符)或ASSIGNMENT(=)其中，类属子程序名用于定义类属子程序、OPERATOR用于超载运算符、ASSIGNMENT用于超载赋值运算，具体内容我们下一节介绍。关于接口定义的几点说明：⑶接口内的语句称为接口体。接口体的一般形式为：FUNCTION语句[说明部分]END[FUNCTION语句]或SUBROUTINE语句[说明部分]END[SUBROUTINE语句]看教材P196的例子关于接口定义的几点说明：

8、⑷接口体中不能含有ENTRY语句、DATA语句、FORMAT语句以及其它可执行语句。⑸当接口进行类属说明或定义超载，并且接口说明的是一个模块的内部子程序时，应使用模块子程序语句。模块子程序语句的一般形式为：MODULEPROCEDURE子程序名表看