调用子程序为什么每一次得出的结果都不一样呢

布衣龙共

楼主这个过程，是非常适合用函数的。
PS：任何程序，无论大小，都不推荐使用common，这东西就让它逝去吧。

[Fortran] 纯文本查看 复制代码

program para
  use , intrinsic :: iso_fortran_env, only: R8 => real64
  implicit none
  write(*,*) func(1.0_R8,1.0_R8)
contains
  Pure real(R8) Function func(x,y) result(f)
    real(R8),intent(in) :: x, y
    f = 2._R8*x+3._R8*y
  End Function func
end program para