erf.for

来自「Numerical Recipes一书中例子的源码所用到的函数集,William」· FOR 代码 · 共 12 行

      FUNCTION erf(x)
      REAL erf,x
CU    USES gammp
      REAL gammp
      if(x.lt.0.)then
        erf=-gammp(.5,x**2)
      else
        erf=gammp(.5,x**2)
      endif
      return
      END