Télécharger iups.eso

Retour à la liste

Numérotation des lignes :

  1. C IUPS SOURCE CHAT 05/01/13 00:45:36 5004
  2. c ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  3. C FONCTION UNITE STRICTE = 1 SI (A - B) > 0, = 0 SINON
  4. c ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5. INTEGER FUNCTION IUPS (A, B)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. C
  9. IF((A - B).LE.0.) THEN
  10. IUPS = 0
  11. ELSE
  12. IUPS = 1
  13. ENDIF
  14. END
  15.  
  16.  
  17.  

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