fortran - 用变量的值初始化常量

Question

program main
   real, parameter :: a = 1 
   !real :: a
   !a=1

   res = func(a)
   write(*,*) res

end program main

function func(a)
   real, parameter :: b=a+1  !(*)
   func = b
   return
end function func

我的编译器在标有 (*) 的行提示。有没有办法用一个超出该函数的值来设置一个常量的值？

Answer 1

您不能将“b”声明为参数，因为它的值在编译时不是常量，因为它取决于函数参数。

使用“implicit none”是个好主意，这样您就可以确保声明所有变量。还将您的过程放入一个模块并“使用”该模块，以便调用者知道该接口(interface)。如:

module my_funcs
implicit none
contains

function func(a)
   real :: func
   real, intent (in) :: a
   real :: b
   b = a + 1
   func = b
   return
end function func

end module my_funcs

program main
   use my_funcs
   implicit none
   real, parameter :: a = 1
   real :: res

   res = func(a)
   write(*,*) res

end program main