Sources Esope | Cast3M

iups
C IUPS      SOURCE    CHAT      05/01/13    00:45:36     5004
c  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C  FONCTION UNITE STRICTE = 1 SI (A - B) > 0, = 0 SINON
c  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      INTEGER FUNCTION IUPS (A, B)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
      IF((A - B).LE.0.) THEN
        IUPS = 0
      ELSE
        IUPS = 1
      ENDIF
      END