Télécharger xpuiss.eso

Retour à la liste

Numérotation des lignes :

  1. C XPUISS SOURCE CHAT 05/01/13 04:14:52 5004
  2. FUNCTION XPUISS(X,A,AMAX)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. IF (X.LE.0.0) THEN
  7. XPUISS = 0.0
  8. IF (A.LT.0.0) XPUISS = AMAX
  9. IF (A.EQ.0.0) XPUISS = 1.0
  10. ELSE
  11. XX = LOG(X)*A
  12. XM = LOG(AMAX)
  13. IF (XX.GT.XM) THEN
  14. XPUISS = AMAX
  15. ELSEIF (XX.LE.-XM) THEN
  16. XPUISS = 0.0
  17. ELSE
  18. XPUISS = EXP(XX)
  19. ENDIF
  20. ENDIF
  21. RETURN
  22. END
  23.  
  24.  

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