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
      end



block 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 来改名。