从 Fortran 中的文件读取函数指针

Question

我试图从外部指定应该调用哪个函数。在以下代码中，使用所选包络高斯调用 getEnvelope。然而，我想从使用特定信封的文件中读取而不是编码 env =>;高斯。

有办法做到这一点吗？或者还有其他首选方式吗？

module laser
  implicit none

  abstract interface
    double precision function envelope(t, tau) result(f)
      double precision, intent(in) :: t, tau
    end function envelope
  end interface

  contains

   double precision function getEnvelope(env, t, tau) result(f)
     procedure(envelope) :: env
     double precision, intent(in) :: t, tau
     f = env(t, tau)
   end function getEnvelope

   double precision function gaussian(t, tau) result(f)
     double precision, intent(in) :: t, tau
     f = exp(-2.d0*log(2.d0)*(t/tau)**2.d0)
   end function gaussian

end module laser

program main
  use laser
  implicit none
  procedure(envelope), pointer :: env
  double precision :: f
  double precision :: t, tau

  env => gaussian

  t = 1.d0
  tau = 200.d0
  f = getEnvelope(env, t, tau)
end program main