Esope source files

   1 : C TABESC    SOURCE    CHAT      06/03/16    21:26:29     5336           
   2 :        SUBROUTINE TABESC(MTABLE,IND,NESRES)
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC SMTABLE
   5 : -INC CCASSIS
   6 : -INC CCNOYAU
   7 :            external long
   8 :            character*72 motass
   9 : 
  10 :               segdes mtable
  11 :               segact mtable*mod
  12 :               MTABTV(ind)=esrety
  13 :               if (esrety.eq.'MOT     ') then
  14 :                   motass=esrech
  15 :                   ncar=long(motass)
  15 :                   CALL POSCHA(MOTASS(1:NCAR),INCHA)
  16 :                   mtabiv(ind)=incha
  17 :               elseif (esrety.eq.'FLOTTANT') then
  18 :                   rmtabv(ind)=esrere
  19 :               elseif (esrety.eq.'LOGIQUE ') then
  19 :                   call poslog(esrelo,iree)
  20 :                   mtabiv(ind)=iree                 
  21 :               else
  22 :                  mtabiv(ind)=esreva
  23 :               endif
  24 :         return
  25 :           end
  26 :