Esope source files

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