errintg.f

Fortran的数学物理方程数值算法源程序。这是"Numerical Methods for Physics"第二版的Fortran源程序

      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