Esope source files

   1 : C KDTB      SOURCE    CHAT      05/01/13    00:54:44     5004           
   2 :       SUBROUTINE KDTB
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C*****************************************************************************
   6 : C
   7 : C
   8 : C
   9 : C
  10 : C*****************************************************************************
  11 : -INC SMTABLE
  12 :       POINTEUR KNOMI.MTABLE,IPT.MTABLE
  13 :       PARAMETER (NL=4)
  14 :       CHARACTER*8 TYPE,NOMI,LISTYP(NL),NOMT
  15 :       DATA LISTYP/'ENTIER  ','FLOTTANT','MOT     ','LOGIQUE '/
  15 :       CALL LIROBJ('TABLE   ',MTABLE,1,IRET)
  16 :       IF(IRET.EQ.0)THEN
  17 :       WRITE(6,*)'On a pas trouve d''objet de type TABLE'
  18 :       RETURN
  19 :       ENDIF
  19 :       CALL QUENOM(NOMT)
  20 :       SEGACT MTABLE
  21 : 
  22 :       NIND=MLOTAB
  22 :       CALL ECROBJ('TABLE   ',MTABLE)
  22 :       CALL INDETA
  23 :       TYPE='TABLE   '
  23 :       CALL LIROBJ(TYPE,KNOMI,1,IRET)
  24 :       SEGACT KNOMI
  25 :       DO 1 I=1,NIND
  25 :       CALL ACEM(KNOMI,I,NOMI)
  26 :       TYPE=' '
  26 :       CALL ACMO(KNOMI,NOMI,TYPE,IPT)
  26 :       CALL OPTLI(IP,LISTYP,TYPE,NL)
  27 :       IF(IP.EQ.0)THEN
  28 :       SEGSUP IPT
  29 :       ENDIF
  30 :  1    CONTINUE
  30 :       CALL ECRCHA(NOMT)
  30 :       CALL OUBLIE
  31 :       SEGSUP MTABLE
  32 :       RETURN
  33 :       END
  34 :