Télécharger ksig.eso

Retour à la liste

Numérotation des lignes :

  1. C KSIG SOURCE CHAT 05/01/13 01:07:52 5004
  2. FUNCTION KSIG(F,EPS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IF (F.GT.EPS) THEN
  6. KSIG = 1
  7. RETURN
  8. ELSE
  9. IF (F.LT.-EPS) THEN
  10. KSIG = -1
  11. RETURN
  12. ELSE
  13. KSIG = 0
  14. RETURN
  15. ENDIF
  16. ENDIF
  17. END
  18.  
  19.  

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