C KDTB      SOURCE    CHAT      05/01/13    00:54:44     5004           
      SUBROUTINE KDTB
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C*****************************************************************************
C
C
C
C
C*****************************************************************************
-INC SMTABLE
      POINTEUR KNOMI.MTABLE,IPT.MTABLE
      PARAMETER (NL=4)
      CHARACTER*8 TYPE,NOMI,LISTYP(NL),NOMT
      DATA LISTYP/'ENTIER  ','FLOTTANT','MOT     ','LOGIQUE '/
      CALL LIROBJ('TABLE   ',MTABLE,1,IRET)
      IF(IRET.EQ.0)THEN
      WRITE(6,*)'On a pas trouve d''objet de type TABLE'
      RETURN
      ENDIF
      CALL QUENOM(NOMT)
      SEGACT MTABLE

      NIND=MLOTAB
      CALL ECROBJ('TABLE   ',MTABLE)
      CALL INDETA
      TYPE='TABLE   '
      CALL LIROBJ(TYPE,KNOMI,1,IRET)
      SEGACT KNOMI
      DO 1 I=1,NIND
      CALL ACEM(KNOMI,I,NOMI)
      TYPE=' '
      CALL ACMO(KNOMI,NOMI,TYPE,IPT)
      CALL OPTLI(IP,LISTYP,TYPE,NL)
      IF(IP.EQ.0)THEN
      SEGSUP IPT
      ENDIF
 1    CONTINUE
      CALL ECRCHA(NOMT)
      CALL OUBLIE
      SEGSUP MTABLE
      RETURN
      END