Télécharger decesc.eso

Retour à la liste

Numérotation des lignes :

  1. C DECESC SOURCE CB215821 18/11/06 21:15:02 9966
  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.  
  12. external long
  13.  
  14. integer desrev
  15. character*(*) desret
  16. REAL*8 FLOT1
  17. LOGICAL LOG1
  18.  
  19. C La longueur 72 provient de la longueur de esrech dans CCASSIS.INC
  20. character*(72) cha72
  21.  
  22. desret = esrety
  23. desrev = esreva
  24. if (esrety.eq.'LOGIQUE ') then
  25. LOG1 =esrelo
  26. call poslog(LOG1 ,desrev)
  27. elseif (esrety.eq.'FLOTTANT') then
  28. FLOT1=esrere
  29. call posree(FLOT1,desrev)
  30. elseif (esrety.eq.'MOT ') then
  31. ncar = long(esrech)
  32. cha72= esrech
  33. call poscha(cha72(1:ncar),incha)
  34. desrev=incha
  35. endif
  36.  
  37. end
  38.  
  39.  
  40.  

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