Fortran 函数

子程序 subroutine
需要用 call来调用

Fortran的子程序的 传参 是传递引用。 不是按值传递。

函数和子程序的区别：
1，调用自定义函数 要声明
2，自定义函数执行后会返回一个数值。

Fortran的函数返回值很有意思， 返回值 ，就是函数的名字。

program  main      integer add       write(*,*) add(1,4)      end       integer function add(a,b)          integer a          integer b          add=a+b          return           end 

全局变量

common ，放在之后的变量，都是全局变量

取全局变量时，是根据它们的相对位置关系来对应的。而不是像C语言那样， 根据全局变量名来确定。

这样有个缺点， 如果想取第6个全局变量。需要把前面的 变量垫起来，才能取到后面的。

有一个方法是把全局变量 分区。

common /group1/ a,b
common /group2/ c,d

设置全局变量的初值，需要使用 block data

全局变量不能声明成 常量。

program  main      integer a      common a      integer b,c      common /g1/ b,c      write(*,*) a,b,c      endblock data    integer a    common a    data a /3/    integer b,c    common /g1/ b,c    data b,c /9,10/end block data

在使用 子程序或函数时， 两次 声明一定要一致， 否则， 就会把一段内存，做两次不同的解释。

每个函数都可以使用result 来改用另一个名字来设置返回值。
递归函数一定要使用result 来改名。