fortran90程序設(shè)計(jì)chapter13

1、第十三章第十三章接口與模塊接口與模塊13.113.1接口界面塊接口界面塊在調(diào)用執(zhí)行外部子程序時(shí)一般要用EXTERNAL語句對(duì)調(diào)用的外部子程序進(jìn)行聲明但這種聲明只給出外部子程序名并沒有給出外部函數(shù)子程序名和參數(shù)的類型。由于主調(diào)程序單元與外部子程序獨(dú)立編寫分別編譯所以僅聲明子程序名有時(shí)系統(tǒng)難以獲得外部子程序詳細(xì)、準(zhǔn)確的調(diào)用信息從而無法正確編譯導(dǎo)致程序調(diào)用失敗。FTRAN90新增接口界面塊功能可有效解決這些問題同時(shí)還能提高程序的可讀性。接口界

2、面塊可用在主程序單元、模塊單元、外部子程序單元中以指明主調(diào)程序與被調(diào)用外部子程序之間的接口信息以便保證外部子程序的正確使用。例如使用接口界面塊求三個(gè)整數(shù)最大值的示例程序如下:!主程序單元PROGRAMmainIMPLICITNONEINTERFACEFUNCTIONmax3(abc)IMPLICITNONEINTEGERmax3abcENDFUNCTIONENDINTERFACEINTEGERxyzREADxyzWRITE(“(1X三個(gè)

3、數(shù)的最大值為:I4)“)max3(xyz)END!求三個(gè)整數(shù)最大值的外部函數(shù)子程序FUNCTIONmax3(abc)INTEGERmax3abcmaxmax=aIF(Bmax)max=BIF(Cmax)max=Cmax3=maxENDFUNCTION第十三章接口與模塊366SUBROUTINEP2(A1A2)INTEGERDIMENSION(4050)::A1A2ENDSUBROUTINE!定義矩陣相乘函數(shù)F1接口界面FUNCTIONF

4、1(XY)INTEGERDIMENSION(5050)::F1XYENDFUNCTION!定義計(jì)算向量X和Y內(nèi)積的函數(shù)F2接口界面FUNCTIONF2(XY)REALF2X(10)Y(10)ENDFUNCTIONENDINTERFACE接口界面塊定義后在調(diào)用其定義的外部子程序時(shí)可使用關(guān)鍵詞指定實(shí)在參數(shù)允許改變實(shí)在參數(shù)傳遞位置如:CALLP1(matrix1matrix2matrix3)!按形參定義次序依次傳遞CALLP1(A=matri

5、x1C=matrix3B=matrix2)!按指定形參關(guān)鍵字傳遞CALLP1(A=matrix1C=matrix3)!B數(shù)組內(nèi)容區(qū)默認(rèn)值13.213.2模塊模塊外部子程序?yàn)槿藗兲峁┝艘环N并行設(shè)計(jì)、共享使用子程序的有效機(jī)制對(duì)提高程序設(shè)計(jì)質(zhì)量和效率有很大幫助。外部子程序支持模塊程序設(shè)計(jì)方法。外部子程序也有它的局限性只能對(duì)子程序發(fā)揮作用但對(duì)數(shù)據(jù)、類型或接口定義不能達(dá)到并行設(shè)計(jì)、共享使用的目的。目前面向?qū)ο蟪绦蛟O(shè)計(jì)方法方興未艾支持面向?qū)ο蟪绦蛟O(shè)

6、計(jì)方法體現(xiàn)面向?qū)ο蟪绦蛟O(shè)計(jì)特色已成為新一代程序設(shè)計(jì)語言不可缺少的內(nèi)容。面向?qū)ο蟪绦蛟O(shè)計(jì)方法中有幾個(gè)非常重要的概念:數(shù)據(jù)封裝、特性繼承、操作重載、公私分隔等這些概念的應(yīng)用使程序更加安全、可靠、高效易于修改。例如儲(chǔ)蓄所保險(xiǎn)柜中的錢款只有儲(chǔ)蓄所有關(guān)人員才有權(quán)從中取錢或存錢嚴(yán)格禁止顧客進(jìn)行這些活動(dòng)顧客只能在柜臺(tái)前完成存取款操作。如果儲(chǔ)蓄所的保險(xiǎn)柜對(duì)所有人開放其結(jié)果可想而知。儲(chǔ)蓄所的操作規(guī)程是數(shù)據(jù)封裝在現(xiàn)實(shí)生活中的具體應(yīng)用。設(shè)計(jì)和編寫程序亦如此。