errintg.f

来自「Fortran的数学物理方程数值算法源程序。这是"Numerical Metho」· F 代码 · 共 13 行

      real*8 function errintg( x, param )
      real*8 x, param(*)
! Error function integrand
! Inputs
!    x            Value where integrand is evaluated
!    param        Parameter list (not used)
! Output
!    errintg      Integrand of the error function

      errintg = exp(-x*x)
      return
      end