Télécharger ergaus.eso

Retour à la liste

Numérotation des lignes :

  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
  18. CALL CALERF(X,RESULT,JINT)
  19. ergaus = RESULT
  20. RETURN
  21. C---------- Last card of XERF ----------
  22. END
  23.  
  24.  
  25.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales