Sources Esope | Cast3M

ergaus
C ERGAUS    SOURCE    CHAT      05/01/12    23:44:57     5004
       FUNCTION ERgaus(X)
C--------------------------------------------------------------------
C
C This subprogram computes approximate values for erf(x).
C   (see comments heading CALERF).
C
C   Author/date: W. J. Cody, January 8, 1985
C
C--------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      INTEGER JINT
      REAL*8 ergaus
      REAL*8             X, RESULT
C------------------------------------------------------------------
      JINT = 0
      CALL CALERF(X,RESULT,JINT)
      ergaus = RESULT
      RETURN
C---------- Last card of XERF ----------
      END