C MULT      SOURCE    CB215821  15/06/25    21:15:04     8553
      SUBROUTINE MULT
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C  Operateur MULT
C
C  OBJET       : Donne VRAI IP1 est multiple de IP2
C  SYNTAXE     : LOGI1 = MULT ENTI1 ENTI2
C
C  CORRECTIONS :
C    - 2015/06/26 CB215821 : Retourne FAUX si IP2 = 0
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      LOGICAL IR
      ICOD=1
      CALL LIRENT (IP1,ICOD,IRETOU)
      IF(IERR.NE.0)  RETURN
      CALL LIRENT (IP2,ICOD,IRETOU)
      IF(IERR.NE.0)  RETURN

      IF (IP2 .EQ. 0) THEN
        IR=.FALSE.
      ELSE
        IR1=MOD(IP1,IP2)
        IR=IR1.EQ.0
      ENDIF

      CALL ECRLOG(IR)

      RETURN
      END