猪冰龙

导航

实战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
子例行函数

下面传递两个参数：

 

 

参数换行：

 

 

 

posted on 2018-03-01 00:18  猪冰龙  阅读(553)  评论(0)  编辑  收藏  举报