Esope source files

   1 : C MOTSUB    SOURCE    CHAT      05/01/13    01:52:19     5004           
   2 : C  OPERATEUR MOT DONNE LE TYPE MOT A LA DONNEE ENTRE COTE QUI LE SUIT           
   3 :       SUBROUTINE MOTSUB                                                         
   4 :       IMPLICIT INTEGER(I-N)
   5 : -INC CCOPTIO                                                                    
   6 :       CHARACTER*(1) CHAR                                                        
   6 :       CALL LIRCHA(CHAR,1,IRETOU)                                                
   7 :       IF(IERR.NE.0)  RETURN                                                     
   7 :       CALL REFUS                                                                
   8 :       RETURN                                                                    
   9 :       END                                                                       
  10 :