Télécharger binstl.eso

Retour à la liste

Numérotation des lignes :

  1. C BINSTL SOURCE CB215821 16/12/12 21:15:01 9247
  2. SUBROUTINE BINSTL(IUSTL,A,IRC,IRET)
  3. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  4. C
  5. C BUT: Conversion de 2 INTEGER*2 juxtaposés en 1 REAL*4
  6. C
  7. C Auteur : Clément BERTHINIER
  8. C Décembre 2016
  9. C
  10. C Entrees :
  11. C IUSTL : Unite logique du fichier STL binaire en cours de lecture
  12. C IRC : Position initiale pour l'acces DIRECT dans le fichier
  13. C
  14. C Sorties :
  15. C A : Flottant lu sur 4 octets
  16. C IRC : Position finale pour l'acces DIRECT dans le fichier
  17. C IRET : 1 si l'operation s'est deroulee avec Succes
  18. C 0 si la lecture a rencontree une erreur
  19. C
  20. C Liste des Corrections :
  21. C -
  22. C -
  23. C -
  24. C
  25. C Appelé par : LIRSTL
  26. C
  27. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  28.  
  29. IMPLICIT INTEGER(I-N)
  30. IMPLICIT REAL*8(A-H,O-Z)
  31.  
  32. -INC CCOPTIO
  33.  
  34. REAL*4 A,B
  35. INTEGER*2 IB(2)
  36. INTEGER IRC,IUSTL,IRET
  37. EQUIVALENCE(B,IB)
  38.  
  39. IRET = 1
  40.  
  41. READ(IUSTL,REC=IRC,ERR=992) IB(1)
  42. IRC=IRC+1
  43. READ(IUSTL,REC=IRC,ERR=992) IB(2)
  44. IRC=IRC+1
  45.  
  46. A = B
  47. RETURN
  48.  
  49. 992 CONTINUE
  50. C ERREUR en lisant le fichier
  51. IRET = 0
  52. RETURN
  53.  
  54. END
  55.  
  56.  
  57.  

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