Esope source files

   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 :