Esope source files

   1 : C ERGAUS    SOURCE    CHAT      05/01/12    23:44:57     5004           
   2 :        FUNCTION ERgaus(X)
   3 : C--------------------------------------------------------------------
   4 : C
   5 : C This subprogram computes approximate values for erf(x).
   6 : C   (see comments heading CALERF).
   7 : C
   8 : C   Author/date: W. J. Cody, January 8, 1985
   9 : C
  10 : C--------------------------------------------------------------------
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8(A-H,O-Z)
  13 :       INTEGER JINT
  14 :       REAL*8 ergaus
  15 :       REAL*8             X, RESULT
  16 : C------------------------------------------------------------------
  17 :       JINT = 0
  17 :       CALL CALERF(X,RESULT,JINT)
  18 :       ergaus = RESULT
  19 :       RETURN
  20 : C---------- Last card of XERF ----------
  21 :       END
  22 :  
  23 :