Télécharger la plaquette Cast3M


fr en

Télécharger tabesc.eso

Retour à la liste

Numérotation des lignes : 

tabesc

  1. C TABESC    SOURCE    PV        19/10/17    21:15:28     10339          
  2.        SUBROUTINE TABESC(MTABLE,IND,MESRES)
  3.  
  4.       IMPLICIT INTEGER(I-N)
  5.  
  6. -INC PPARAM
  7. -INC SMTABLE
  8. -INC CCASSIS
  9. -INC CCNOYAU
  10.  
  11.            external long
  12.            character*(LOCHAI) motass
  13.            logical esrell
  14.  
  15.               segdes mtable
  16.               segact mtable*mod
  17.               MTABTV(ind)=esrety
  18.               if (esrety.eq.'MOT     ') then
  19.                   motass=esrech
  20.                   ncar=long(motass)
  21.                   CALL POSCHA(MOTASS(1:NCAR),INCHA)
  22.                   mtabiv(ind)=incha
  23.               elseif (esrety.eq.'FLOTTANT') then
  24.                   rmtabv(ind)=esrere
  25.               elseif (esrety.eq.'LOGIQUE ') then
  26.                   esrell=esrelo
  27.                   call poslog(esrell,iree)
  28.                   mtabiv(ind)=iree
  29.               else
  30.                  mtabiv(ind)=esreva
  31.               endif
  32.           end
  33.  
  34.  
  35.  
  36.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales