Fortran77 函数与子程序

Fortran77 函数与子程序

时间：2020年10月13日
定义外部函数，经过测试，自定义函数语句可以放在主函数之前，
也可以放在主函数之后，不过最好还是放在主函数后面。
这段代码中FAC就是 外部函数，可以计算阶乘。
fortran中的函数都是为了数学计算用的，需要返回值val，返回规则为< 函数名=val>
Fortran中复杂且重复的代码，可以写到子程序封装起来，重复利用，关键词为SUBROUTINE

SQ(U,V),SQ1(U,V) 为语句函数，语句函数必须放在开头，否则运行出错

      PROGRAM JIECHENG
      SQ(U,V)=U**2+V**2
      SQ1(U,V)=U**4+V**4
      A=FAC(4)
      WRITE(*,*),A,SQ(1,1),SQ1(2,2)
      PAUSE
      END
C***************UNSER FUNCTION*************
      FUNCTION FAC(N)
          INTEGER N
          FAC=1
          IF(N.GE.2