C MULT      SOURCE    CHAT      05/01/13    01:55:32     5004           
      SUBROUTINE MULT                                                           
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      LOGICAL IR                                                                
      ICOD=1                                                                    
      CALL LIRENT (IP1,ICOD,IRETOU)                                             
      IF(IERR.NE.0)  RETURN                                                     
      CALL LIRENT (IP2,ICOD,IRETOU)                                             
      IF(IERR.NE.0)  RETURN                                                     
      IR1=MOD(IP1,IP2)                                                          
      IR=IR1.EQ.0                                                               
      CALL ECRLOG(IR)                                                           
      RETURN                                                                    
      END