第九章模块.优秀PPT.ppt

《第九章模块.优秀PPT.ppt》由会员分享，可在线阅读，更多相关《第九章模块.优秀PPT.ppt（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、9 模块模块9.1 模块模块的定义的定义9.2 USE语句语句9.3 接口块接口块9.4 重载和定义操作符重载和定义操作符9.5 模块模块的应用的应用9.1 模块模块的定义的定义9.1 模块模块的定义的定义9.2 Use语句语句9.2 Use语句语句例如：MODULE MY_MODULEREAL,PARAMETER:PI=3.14159CONTAINS SUBROUTINE SWAP(X,Y)REAL TEMP,X,Y TEMP=X X=Y Y=TEMP END SUBROUTINE SWAPEND MODULE MY_MODULEPROGRAMUSE_MODULE UES MY_MODULE

2、 IMPLICIT NONE REAL A,B READ*,A B=PI CALL SWAP(A,B)PRINT*,A,BEND 9.3 接口语句接口语句例如：MODULE INTERVAL_ARITHMETICTYPE INTERVAL REAL LOWER,UPPER END TYPE INTERVALINTERFACE OPERATOR(+)MODULE PROCEDURE COMB_INTERVALSEND INTERFACECONTAINSFUNCTION COMB_INTERVALS(A,B)TYPE(INTERVAL)COMB_INTERVALS,A,B COMB_INTERVA

3、LS%LOWER=MIN(A%LOWER,B%LOWER)COMB_INTERVALS%UPPER=MAX(A%UPPER,B%UPPER)END FUNCTION COMB_INTERVALSEND MODULE INTERVAL_ARITHMETIC 9.3 接口语句接口语句9.4 超载和定义操作符超载和定义操作符9.4.1 类属过程类属过程例例:整数整数,实数实数,点的坐标的交换点的坐标的交换module swap_them implicit none TYPE POINT REAL X,Y,Z END TYPE POINT interface swap module procedure

4、 swapi,swapr,swapp end interface contains subroutine swapi(a,b)integer a,b,t t=a;a=b;b=t end subroutine swapi subroutine swapr(a,b)real a,b,t t=a;a=b;b=t end subroutine swapr subroutine swapp(a,b)type(point):a,b,t t=a;a=b;b=t end subroutine swappend module swap_themuse swap_themreal a,binteger c,dty

5、pe(point):p,qa=1.1;b=2.2;c=3;d=4p=point(5,6,7);q=point(8,9,10)print*,a,b,c,dprint*,p,qcall swap(p,q)!交换点的坐标交换点的坐标call swap(a,b)!交换实数值交换实数值call swap(c,d)!交换整数值交换整数值print*,a,b,c,dprint*,p,qend9.4 超载和定义操作符超载和定义操作符9.4.2 超载赋值号超载赋值号例例:将百分制的成果用四级记分制表示。将百分制的成果用四级记分制表示。module level interface Assignment(=)!重载

6、赋值号重载赋值号 module procedure slevel end interface contains subroutine Slevel(b,a)!赋值的新定义赋值的新定义 integer,intent(in):a character(2),intent(out):b Select case(a)case(90:);b=优优;case(75:89);b=良良 case(60:74);b=中中;case(:59);b=差差 End select end subroutine slevelend module level简洁的主程序如下简洁的主程序如下:use levelinteger

7、acharacter(2)bprint*,请输入百分制成果请输入百分制成果read*,ab=aprint(I4,2a),a,分的等级为分的等级为,bend9.4 超载和定义操作符超载和定义操作符9.4.3 超载运算符超载运算符9.4 超载和定义操作符超载和定义操作符9.4.3 超载运算符超载运算符9.4 超载和定义操作符超载和定义操作符9.4.4 用户定义的运算符用户定义的运算符简洁的测试主程序：简洁的测试主程序：use operatereal a,b,cprint*,请输入两个电阻值请输入两个电阻值read*,a,bprint(3f8.2),a,b,cend9.4 超载和定义操作符超载和定义

8、操作符9.4.5 超载固有函数超载固有函数利利用用模模块块的的特特性性和和用用法法,可可以以实实现现数数据据的的共共享享。将将全全部部或或部部分分程程序序单单元元用用到到的的数数据据有有组组织织地地放放在在一一些些模模块块中中,通通过过Use语语句句引引用用,就就可可以以在在相相关关的的程程序序单单元元之之间间传传递递数数据据。这这是是有有别别于于虚虚实实结结合合方方法法的的一一种种新新方方法法。必必要要时时,可可以以用用Use语语句句的的Only选选项项选选择择过过滤滤共共享享数数据据;也也可可以以利利用用Use语语句句的的变变量量更更名功能避开名字冲突。名功能避开名字冲突。9.5 模块的应

9、用模块的应用9.5.1 数据共享数据共享将将派派生生类类型型的的定定义义放放在在一一个个模模块块内内,在在运运用用这这些些派派生生类类型型的的程程序序单单元元中中就就不不必必再再定定义义这这些些派派生生类类型型了了,通通过过Use语语句句引引用用,可可以以实实现多个程序单元共享这些派生类型。现多个程序单元共享这些派生类型。9.5 模块的应用模块的应用9.5.2 公用派生类型公用派生类型9.5.3 9.5.3 可安排数组的共享可安排数组的共享作作为为数数据据共共享享的的一一个个特特例例,将将在在多多个个程程序序单单元元中中运运用用的的可可安安排排数数组组的的定定义义放放在在一一个个模模块内块内,

10、就实现了可安排数组的共享。就实现了可安排数组的共享。抽抽象象数数据据类类型型可可以以用用派派生生类类型型来来实实现现,前前面面定定义义的的派派生生类类型型point可可以以当当作作矢矢量量来来用用。关关于于矢矢量量的的运运算算有有:负负矢矢量量、矢矢量量加加减减、矢矢量量长长度度与与方方向向、点点积积、叉叉积积、混混合合积积等等,将将这这些些运运算算与与派派生生类类型型的的定定义义放放在在一一个个模模块块内内,就实现了抽象数据类型就实现了抽象数据类型。9.5 模块的应用模块的应用9.5.4 抽象数据类型抽象数据类型前前面面的的例例子子通通过过重重载载方方法法已已经经解解决决的的矢矢量量的的运运

11、算算有有:负负矢矢量量、矢矢量量加加减减、矢矢量量长长度度计计算算。其其它它内内部部过过程程的的设设计计应应当当不不难难,有有爱爱好好者可以自己添加。者可以自己添加。当当然然,用用作作矢矢量量类类型型时时,派派生生类类型型的的名名字字最最好改成好改成vector。9.5 模块的应用模块的应用9.5.4 抽象数据类型抽象数据类型抽抽象象数数据据类类型型是是从从实实际际的的工工程程问问题题中中抽抽象象出出来来的的。常常用用的的数数学学上上的的抽抽象象类类型型有有:矢矢量量、集集合合、堆堆栈栈、队队列列、链链表表、树树、图图等等等等;在在建建筑筑结结构构工工程程中中,可可以以把把某某种种结结构构构构件件抽抽象象成一种数据类型。成一种数据类型。在在编编程程中中广广泛泛运运用用抽抽象象数数据据类类型型,是是现现代代面面对对象程序设计的基本特点。对对象程序设计的基本特点。