1.数组在主函数和子例行函数中传递
一个项目中有两个源代码文件：
代码：
PROGRAM ARRAYZBL
DOUBLE PRECISION A,B,C,D(:)
INTEGER I
DATA A,B,C/1.0,2.0,3.0/ DO ,I=,
D(I)=I
CONTINUE WRITE(*,*)A,B,C
WRITE(*,*)D
WRITE(*,*)
CALL SUBARRZBL(D) STOP
END
主函数
SUBROUTINE SUBARRZBL(A)
C 记得传入什么都要在此再声明一次，且尽量和原来的数组一样大，
DOUBLE PRECISION A(:)
WRITE(*,*)A
END
子例行函数
下面传递两个参数：
参数换行：