C TYPE      SOURCE    CHAT      05/01/13    03:57:33     5004
      SUBROUTINE TYPE
C---------------------------------------------
C          DONNE LE TYPE D'UN OBJET
C---------------------------------------------
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
      CHARACTER*8 MAUX
C
      CALL QUETYP(MAUX,0,IRETOU)
      IF(IRETOU.EQ.0) THEN
        CALL ERREUR (533)
        RETURN
      ENDIF
      CALL LIROBJ(MAUX,IRET,1,IRETOU)
      IF(IERR.NE.0) RETURN
C
      CALL ECRCHA(MAUX)
      RETURN
      END