Sources Esope | Cast3M

motsub
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