【正文】 TERFACE FUNCTION IPR(A,N,M)RESULT(A_RESULT) INTEGER,INTENT(IN)::N,M INTEGER,DIMENSION(1:N,1:N)::A INTEGER::A_RESULT END FUNCTION IPR END INTERFACE INTEGER::I,J,M,PROD INTEGER,DIMENSION(1:5,1:5)::X READ*,((X(I,J),J=1,5),I=1,5) READ*,M PROD=IPR(X,5,M) PRINT*,PROD END PROGRAM LI7_27 可不寫接口塊而定義函數(shù)的類型 INTEGER::IPR 如函數(shù)值為數(shù)組 ,主調(diào)程序中必須寫接口塊 例 726:假設(shè)有兩個(gè)形狀相同（ 3行 4列）的數(shù)組 A和 B，編寫求 A+B的函數(shù)子程序，并把 A+B的值作為函數(shù)值。 數(shù)組也可作為函數(shù)過程的函數(shù)值 Function f(a,b)result(c) Implicit none Integer,dimension(3,4)::a,b,c C=a+b End Program main Implicit none Interface Function f(a,b)result(c) Integer,dimension(3,4)::a,b,c end endinterface Integer,dimension(3,4)::a,b,c Integer::I,J Read*,(a(i,1:4),i=1,3) Read*,(b(i,1:4),i=1,3) C=f(a,b) Do I=1,3 Print*,(c(I,j),j=1,4) Enddo end 函數(shù)值為數(shù)組 主調(diào)程序必須寫接口 虛數(shù)組 A和 B也可使用 m n的可調(diào)數(shù)組，此時(shí) A、 B、M和 N都應(yīng)列入虛元表中。例 Function f(a,b,M,N)result(c) Implicit none INTEGER,INTENT(IN)::M,N Integer,dimension(M,N)::a,b,c C=a+b End 當(dāng)虛實(shí)結(jié)合時(shí)，調(diào)用語句可寫為： CC=F(AA,BB,3,4) 在子例子程序中，除了用變量作虛元外，也可以用數(shù)組作虛元。 數(shù)組作子例子程序變?cè)? 例 729 用子例子程序改寫例 727，求一個(gè) 5 5整型數(shù)組主對(duì)角線上前 M個(gè)元素之積。 SUBROUTINE IPR(A,N,M,A_RESULT) IMPLICIT NONE INTEGER,INTENT(IN)::N,M INTEGER,DIMENSION(1:N,1:N)::A INTEGER,INTENT(OUT)::A_RESULT INTEGER::I IF(M=N)THEN PRINT*,39。ERR:39。,M A_RESULT=1 ELSE A_RESULT=1 DO I=1,M A_RESULT=A_RESULT*A(I,I) ENDDO ENDIF END SUBROUTINE IPR 原函數(shù)值作變?cè)? PROGRAM LI7_29 IMPLICIT NONE INTERFACE SUBROUTINE IPR(A,N,M,A_RESULT) INTEGER,INTENT(IN)::N,M INTEGER,DIMENSION(1:N,1:N)::A INTEGER,INTENT(OUT)::A_RESULT END SUBROUTINE IPR END INTERFACE INTEGER::I,J,M,PROD INTEGER,DIMENSION(1:5,1:5)::X READ*,((X(I,J),J=1,5),I=1,5) READ*,M CALL IPR(X,5,M,PROD) PRINT*,PROD END PROGRAM LI7_29 CALL語句調(diào)用 虛元只能為變量名、數(shù)組名、過程名。實(shí)元任意 當(dāng)虛元為變量名 時(shí)，對(duì)應(yīng)的實(shí)元可為同類型的變量名、常量或表達(dá)式、 數(shù)組元素 虛實(shí)結(jié)合規(guī)則：傳送地址，虛元借用實(shí)元的存儲(chǔ)單元 當(dāng)虛元為數(shù)組名 時(shí)對(duì)應(yīng)的實(shí)元可為同類型的數(shù)組名、數(shù)組元素名、數(shù)組片段。 注意：要求虛實(shí)數(shù)組應(yīng)具有同樣大?。ㄒ部梢詫?shí)數(shù)組比虛數(shù)組大，反之則不行），而不要求它們具有同樣的維和維界 (假定形狀的數(shù)組維數(shù)應(yīng)一致） 當(dāng)虛元為過程名 時(shí)，對(duì)應(yīng)的實(shí)元可為外部過程名(EXTERNAL)或內(nèi)部函數(shù)名 (INTRINSIC) 總結(jié)：虛實(shí)對(duì)應(yīng)情況 虛實(shí)結(jié)合的規(guī)則：傳送地址 （ 1） 當(dāng)虛實(shí)都為數(shù)組名時(shí) ：結(jié)合起點(diǎn)均從第一個(gè)元素開始，結(jié)合的順序?yàn)閮?nèi)存順序（二維為列序）， 例： INTEGER,DIMENSION(6)::A A=(/1,2,3,4,5,6/) CALL S(A) PRINT*,A END 實(shí)元為數(shù)組名 作為虛元的數(shù)組必須是數(shù)組名，而作為實(shí)元的數(shù)組既可以是數(shù)組名，也可以是數(shù)組片段或數(shù)組元素。 SUBROUTINE S(B) INTEGER,DIMENSION(2,3)::B B=B+1 END 2 3 4 5 6 7 （ 2）當(dāng)虛元為數(shù)組名，對(duì)應(yīng)實(shí)元為數(shù)組元素名 結(jié)合的起點(diǎn)：虛元的第一個(gè)元素與實(shí)元指定的數(shù)字元素結(jié)合，結(jié)合的順序?yàn)閮?nèi)存順序 例： SUBROUTINE S(B) INTEGER,DIMENSION(2,2)::B B=B+1 END INTEGER,DIMENSION(6)::A A=(/1,2,3,4,5,6/) CALL S( A(2) ) PRINT*,A END 1 3 4 5 6 6 實(shí)元為數(shù)組元素名 （ 3） 虛元為數(shù)組名，對(duì)應(yīng)實(shí)元為數(shù)組片段 注意到數(shù)組片段構(gòu)成一個(gè)新的數(shù)組，虛實(shí)結(jié)合同 1 例： SUBROUTINE S(X) INTEGER,DIMENSION(4)::X PRINT*,X END INTEGER,DIMENSION(3,3)::A A=RESHAPE((/1,4,7,2,5,8,3,6,9/),(/3,3/)) CALL S( A(2:3,1:2) ) END 4 7 5 8 實(shí)元為數(shù)組 片段 虛數(shù)組可為假定大小數(shù)組和可調(diào)數(shù)組等多種情況。虛實(shí)結(jié)合方式同常數(shù)組。 虛數(shù)組的大小不能超過實(shí)數(shù)組。 例 730 利用過程求數(shù)組片段中各元素的和。 function sum_part(a,m,n)result(sum_p) implicit none integer::m,n integer,dimension(m,n),intent(in)::a integer::sum_p,i,j sum_p=0 do i=1,m do j=1,n sum_p=sum_p+a(i,j) enddo enddo end function 可調(diào)數(shù)組作虛元 主調(diào)程序 program li7_30 implicit none integer,dimension(4,5)::a integer::i,j,s,sum_part do i=1,4 do j=1,5 a(i,j)=5*(i1)+j enddo enddo write(*,39。(1x,5i5)39。)(a(i,1:5),i=1,4) s=sum_part(a(1:3,1:4),3,4) print*,39。sum=39。,s end program 數(shù)組片段作實(shí)元 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 sum= 90 n維數(shù)組 多維數(shù)組概念 P196 一維數(shù)組 ：具有一個(gè)下標(biāo)的數(shù)組元素組成的數(shù)組，表示一行或一列數(shù)據(jù)； 二維數(shù)組 ：具有兩個(gè)下標(biāo)的數(shù)組元素組成的數(shù)組，表示一頁表格； 三維數(shù)組 ：具有三個(gè)下標(biāo)的數(shù)組元素組成的數(shù)組，表示若干頁表格； …… 最多到 七 維。 統(tǒng)稱為 n維數(shù)組 n維數(shù)組的說明的一般格式： 類型 [([長度說明 ],[種別說明 ])],Dimension(形狀說明 )[,其它屬性說明 ]::數(shù)組名 1[=初值 ][， 數(shù)組名 2[=初值 ]…… ] 形狀說明：須寫明維數(shù)，維界 維數(shù) —— 逗號(hào)分隔 每維維界 —— d1:d2，稱為界偶 下界 d1，上界 d2。 維長： d2d1+1 元素個(gè)數(shù)：各維維長的乘積 例： real,dimension(1:2,1:4,4:6)::r 則其元素個(gè)數(shù)為？ n維數(shù)組的使用： n維數(shù)組 （ n=2時(shí) ） 與二維數(shù)組具有相似的結(jié)構(gòu)和性質(zhì) ， 其基本概念都可以從二維數(shù)組中引申而來 。 例如 ， 數(shù)組片段的使用 、 可分配數(shù)組（ 動(dòng)態(tài)數(shù)組 ） 的說明以及數(shù)組的形狀等都適用于 n維數(shù)組 。 n維數(shù)組存放時(shí)要按第 n維 、 第 n1維 、 … 、 第2維 、 第 1維的次序進(jìn)行 ， n=2時(shí)就是按列 （ 第 2維 ）存放的 。 例 ， 三維數(shù)組的存儲(chǔ)結(jié)構(gòu)： 三維數(shù)組的結(jié)構(gòu) ? 三維數(shù)組是由 行 、 列 和 頁 組成的三維表。三維數(shù)組也可理解為幾頁的二維表，即每頁由一張二維表組成。 在內(nèi)存中按 頁、列、行 的順序存放。例： Integer,dimension(3,3,2) ::page Page(3,1,1) Page(2,1,1) Page(1,1,2) Page(3,2,1) Page(2,2,1) Page(1,2,2) Page(3,3,2) Page(2,3,2) Page(1,3,2) Page(3,1,1) Page(2,1,1) Page(1,1,1) Page(3,2,1) Page(2,2,1) Page(1,2,1) Page(3,3,1) Page(2,3,1) Page(1,3,1) Page(1,1,1) Page(2,1,1) Page(3,1,1) Page(1,2,1) … Page(3,3,1) Page(1,1,2) Page(2,1,2) Page(3,1,2) Page(1,2,2) … Page(3,3,2) 練習(xí)：若數(shù)組說明語句為： INTEGER,DIMENSION(2:2,0:4,1:2)::a 則數(shù)組元素 a(1,1,1)是第幾個(gè)元素？ A 58 B 85 C 95 D 59 向量下標(biāo) P197 向量下標(biāo)（一維數(shù)組）指定一個(gè)下標(biāo)的序列 。 例： integer,dimension(1:3)::u integer,dimension(1:5)::v u=(/1,5,3/) v=(/2,1,1,5,3/) 則可以使用 u、 v作為 向量下標(biāo) 訪問數(shù)組。 例： z(2,v)表示數(shù)組 z中第 2行的元素 z(2,2)、 z(2,1)、z(2,1)、 z(2,5)、 z(2,3)。 注意：在使用向量下標(biāo)時(shí)，作為下標(biāo)的數(shù)組必須有定義（有值），且其值要在相應(yīng)的數(shù)組維界之內(nèi)。 A(u)代表哪些元素？