实战fortran77基础语法

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

子例行函数

---

下面传递两个参数：

---

参数换行：