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