Sources Esope | Cast3M

quetyp
C QUETYP    SOURCE    CHAT      06/06/01    21:19:56     5450
      SUBROUTINE QUETYP(ICHA , ICODE , IRETOU )
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      CHARACTER*(*) ICHA
      IF(LEN(ICHA).NE.8) CALL ERREUR (5)
      ICHA=' '
      ICOD=ICODE
      CALL LIRABJ(ICHA ,IRAT,ICOD,IRETOU)
      IF(IERR.NE.0) RETURN
      IF (IRETOU.EQ.0) RETURN
      CALL REFUS
      RETURN
      END