Télécharger positi.eso

Retour à la liste

Numérotation des lignes :

  1. C POSITI SOURCE CHAT 05/01/13 02:18:12 5004
  2. c ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  3. C PARTIE POSITIVE DE (A - B)
  4. C ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5. FUNCTION POSITI(A, B)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. C
  9. IF((A - B).LT.0.) THEN
  10. POSITI = 0.
  11. ELSE
  12. POSITI = A - B
  13. ENDIF
  14. RETURN
  15. END
  16. C
  17.  
  18.  
  19.  
  20.  

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