Télécharger decesc.eso

Retour à la liste

Numérotation des lignes :

  1. C DECESC SOURCE CHAT 06/03/16 21:15:59 5336
  2. SUBROUTINE DECESC(NESRES,DESRET,DESREV)
  3. C cette procedure est apellée depuis LIRABJ
  4. C elle effectue le decodage des objets esclaves
  5. C elle est tres fortement inspirée de PRENOM
  6.  
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCNOYAU
  9. -INC CCOPTIO
  10. -INC CCASSIS
  11. external long
  12. integer desrev
  13. character*(*) desret
  14. desret = esrety
  15. desrev = esreva
  16. if (esrety.eq.'LOGIQUE ') then
  17. call poslog(esrelo,desrev)
  18. elseif (esrety.eq.'FLOTTANT') then
  19. call posree(esrere,desrev)
  20. elseif (esrety.mq.'MOT ') then
  21. ncar = long(esrech)
  22. call poscha(esrech(1:ncar),incha)
  23. desrev=incha
  24. end if
  25. return
  26. end
  27.  
  28.  

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