Télécharger tabesc.eso

Retour à la liste

Numérotation des lignes :

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

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