Sources Esope | Cast3M

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