數(shù)據(jù)共用存儲(chǔ)單元和數(shù)據(jù)塊子程序

1、第 九 章 數(shù)組第 十 章 語(yǔ)句函數(shù)第十二章 數(shù)據(jù)共用存儲(chǔ)單元 和數(shù)據(jù)塊子程序第十三章 文件第十一章 子程序1一、等價(jià)語(yǔ)句（Equivalence語(yǔ)句）Equivalence（變量表1），（變量表2），作用：使同一個(gè)程序單位中的兩個(gè)或更多的變量共用 一個(gè)存儲(chǔ)單元。說(shuō)明：1. Equivalence 語(yǔ)句是說(shuō)明語(yǔ)句，必須出現(xiàn)在程序單位的執(zhí)行語(yǔ)句之前。2. 每一對(duì)括號(hào)內(nèi)的變量表中，可以是變量名、數(shù)組名或數(shù)組元素，但至少應(yīng)該有兩個(gè)變量名，中間用逗號(hào)隔開(kāi)。不允許出現(xiàn)虛擬參數(shù)名。Equivalence（W,ST）3. 每對(duì)括號(hào)中的變量可以具有不同類(lèi)型，一個(gè)等價(jià)語(yǔ)句可以使多組變量等價(jià)。Equivalenc

2、e（A,B）, （X,Y,Z）24. 等價(jià)語(yǔ)句可以節(jié)省內(nèi)存。Equivalence（IM，NPL，JJ2，NEG）不能同時(shí)或交叉使用！5. 等價(jià)語(yǔ)句允許用兩個(gè)或更多的變量名代表同一個(gè)量。Equivalence（A，A0，A1）6. 數(shù)組的等價(jià)。Dimension A(8)，B(4，2)，C(2，2，2)Equivalence (A，B，C)等價(jià)于Equivalence (A(1)，B(1,1)，C(1,1,1)7. 不能利用等價(jià)語(yǔ)句建立矛盾的等價(jià)關(guān)系。Dimension A(10)Equivalence (X,A(1)，(X,A(3)3二、公用語(yǔ)句（COMMON）語(yǔ)句傳統(tǒng)Fortran程序不同

3、單位之間的數(shù)據(jù)交換是通過(guò)：虛實(shí)結(jié)合優(yōu)點(diǎn)：符合結(jié)構(gòu)化程序設(shè)計(jì)的指導(dǎo)思想。程序有較好的可讀性，容易跟蹤數(shù)據(jù)的流向，便于對(duì)程序進(jìn)行調(diào)試和維護(hù)。缺點(diǎn)：傳輸速度慢。4Fortran程序中有 兩種公共區(qū)無(wú)名公共區(qū)（只有一個(gè)）有名公共區(qū)開(kāi)辟公用區(qū)用common語(yǔ)句主程序 common x, y, i, z(3)子程序 common a, b, j, t(3)無(wú)名公用區(qū)程序中只能有一個(gè)無(wú)名公用區(qū) 不同程序單位在common語(yǔ)句中的變量或數(shù)組按其在語(yǔ)句中出現(xiàn)的先后順序占用相同連續(xù)的存儲(chǔ)單元。5read(*,*)a1,a2,a3call quad(a1,a2,a3,z1,z2)write(*,*)z1,z2end

4、subroutine quad(a,b,c,x1,x2)p=-b/(2.0*a)q=sqrt(b*b-4.0*a*c)/(2.0*a)x1=p+qx2=p-qendcommon z1,z2read(*,*)a1,a2,a3call quad(a1,a2,a3)write(*,*)z1,z2endsubroutine quad(a,b,c)common x1,x2endcommon z1,z2,a1,a2,a3read(*,*)a1,a2,a3call quadwrite(*,*)z1,z2endsubroutine quadcommon x1,x2,a,b,cend例：用子例行程序解一元二次方程的兩個(gè)根6說(shuō)明： 1. common語(yǔ)句是說(shuō)明語(yǔ)句，必須 出現(xiàn)在所有可執(zhí)行語(yǔ)句之前。3. 一個(gè)程序只有一個(gè)無(wú)名公共區(qū)， 同一程序單位中出現(xiàn)多個(gè)common 語(yǔ)句，作用相當(dāng)于一個(gè)。4. 公用語(yǔ)句區(qū)中的變量或數(shù)組類(lèi) 型必須按順序一一對(duì)應(yīng)。5. 變量或數(shù)組名只能在同一程序 單位的公用語(yǔ)句定義中出現(xiàn)一次。6. 區(qū)分equivalence和common語(yǔ)句 的作用。common x, y, z(3)common