C TABESC    SOURCE    CHAT      06/03/16    21:26:29     5336           
       SUBROUTINE TABESC(MTABLE,IND,NESRES)
      IMPLICIT INTEGER(I-N)
-INC SMTABLE
-INC CCASSIS
-INC CCNOYAU
           external long
           character*72 motass

              segdes mtable
              segact mtable*mod
              MTABTV(ind)=esrety
              if (esrety.eq.'MOT     ') then
                  motass=esrech
                  ncar=long(motass)
                  CALL POSCHA(MOTASS(1:NCAR),INCHA)
                  mtabiv(ind)=incha
              elseif (esrety.eq.'FLOTTANT') then
                  rmtabv(ind)=esrere
              elseif (esrety.eq.'LOGIQUE ') then
                  call poslog(esrelo,iree)
                  mtabiv(ind)=iree                 
              else
                 mtabiv(ind)=esreva
              endif
        return
          end