实战fortran77基础语法

 

1.数组在主函数和子例行函数中传递

一个项目中有两个源代码文件：

代码：

 1       PROGRAM ARRAYZBL
 2       DOUBLE PRECISION A,B,C,D(0:10)
 3       INTEGER I
 4       DATA A,B,C/1.0,2.0,3.0/
 5       
 6       DO 10,I=0,10
 7             D(I)=I
 8 10    CONTINUE            
 9       
10       WRITE(*,*)A,B,C
11       WRITE(*,*)D
12       WRITE(*,*)
13       CALL SUBARRZBL(D)
14       
15       STOP
16       END

主函数

1       SUBROUTINE SUBARRZBL(A)
2 C     记得传入什么都要在此再声明一次，且尽量和原来的数组一样大，
3       DOUBLE PRECISION A(0:10)
4       WRITE(*,*)A
5       END

子例行函数

---

下面传递两个参数：

 

 

---

参数换行：

 

 

 

转载于:https://www.cnblogs.com/zhubinglong/p/8486481.html