Fortran第7章2详解.pptVIP

例：实参数是数组元素时的对应关系： PROGRAM MAIN3 REAL,DIMENSION(1:8)::A CALL SUB3(A(4)) …… END PROGRAM MAIN3 SUBROUTINE SUB3(B) REAL,DIMENSION(0:3)::B …… END SUBROUTINE SUB3 ? B(3) B(2) B(1) B(0) ? ? ? 子程序 ? ? ? ? ? ? ? ? 存储单元 A(8) A(7) A(6) A(5) A(4) A(3) A(2) A(1) 主程序 例2：阅读下列程序，写出运行结果 INTEGER,DIMENSION(2,3)::A A=reshape((/1,2,3,4,5,6/),(/2,3/)) CALL S(A(2,1)) PRINT*,A END SUBROUTINE S(B) INTEGER,DIMENSION(2,2)::B B=B+1 END 实元为数组元素名 答案： 1 3 4 5 6 6 3、当虚元为数组名，实元为数组片段时： 数组片段构成一个新的数组 新的实数组将第一个元素的地址传送给虚数组的第一个元素， 其它元素按内存顺序结合（二维为列序） 虚实结合传送地址的方式3 例3：阅读下列程序，写出运行结果 INTEGER,DIMENSI