Télécharger lireca.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRECA SOURCE GF238795 17/09/21 21:15:05 9557
  2. C ACQUISITION D'UNE CARTE (72 CARS) DE DONNEES
  3. C
  4. SUBROUTINE LIRECA
  5. C LIT LES CARTES DE DONNEES. REVIENT AUTOMATIQUEMENT SUR
  6. C L'UNITE IOTER EN CAS DE FIN DE FICHIER,CE QUI PERMET D'EXECUTER
  7. C UN FICHIER PREPARE A L'AVANCE
  8. C RECOPIE TOUTES LES CARTES LUES SUR UNITE 98
  9. IMPLICIT INTEGER(I-N)
  10. -INC CCREDLE
  11. -INC CCOPTIO
  12. -INC CCNOYAU
  13. CHARACTER*72 REP
  14. CHARACTER*72 IAERA
  15. CHARACTER*4 IRET
  16. LOGICAL INIPAS
  17. SAVE IECHA,INIPAS
  18. DATA INIPAS/.TRUE./
  19. sredle=iredle
  20. IF(INIPAS) THEN
  21. INIPAS=.FALSE.
  22. CALL PROCL2('INITIALE',IRET)
  23. IF(IRET(1:3).EQ.'999') THEN
  24. IOLEC=654321 + IOLEC
  25. CALL ERREUR(-305)
  26. IECHA=IECHO
  27. C write(6,*) ' on passe ici'
  28. IECHO= max(0,iecho - 1)
  29. ENDIF
  30. ENDIF
  31. I1=IPOS
  32. I2=I1+71
  33. 5 CONTINUE
  34. IF(IOLEC.LT.0. OR. IOLEC.GT.654321 ) THEN
  35. CALL PROCLI(IAERA,IRET)
  36. IF(IRET.EQ.'9999') THEN
  37. IF ( IOLEC.LT. 0) THEN
  38. IOLEC = -IOLEC
  39. ELSE
  40. IOLEC=IOLEC-654321
  41. CALL ERREUR (-306)
  42. ENDIF
  43. IECHO=IECHA
  44. GO TO 5
  45. ENDIF
  46. TEXT(I1:I2)=IAERA
  47. ELSE
  48. IF (IECHO.GT.0) CALL PROMPT
  49. READ(IOLEC,FMT='(A72)',END=2,ERR=4) TEXT(I1:I2)
  50. ENDIF
  51. C*******
  52. WRITE(98,FMT='(A72)') TEXT(I1:I2)
  53. C*******
  54. IF (IECHO.GE.1) WRITE(IOIMP,3) TEXT(I1:I2)
  55. 3 FORMAT(1X,'* ',A72)
  56. IF(TEXT(I1:I1).EQ.'*') THEN
  57. GO TO 5
  58. ENDIF
  59. IPOS=I2
  60. RETURN
  61. C traitement erreur en lecture
  62. 4 continue
  63. if (ierr.eq.623) then
  64. ierr=0
  65. call erreur(623)
  66. call opterm(ioter)
  67. ierr=0
  68. goto 5
  69. endif
  70. interr(1)=ioter
  71. call erreur (624)
  72. call opterm(ioter)
  73. goto 5
  74. c traitement fin de lecture
  75. 2 IF (IOLEC.EQ.IOTER) THEN
  76. IF (IOGRA.EQ.3) THEN
  77. REWIND IOLEC
  78. WRITE (IOIMP,7711)
  79. READ (IOLEC,7712,END=7720) REP
  80. IF (REP(1:3).NE.'OUI') THEN
  81. WRITE( IOIMP,7713)
  82. GOTO 5
  83. ENDIF
  84. endif
  85. 7720 CONTINUE
  86. RETURN
  87. ELSE
  88. WRITE (IOIMP,7714) IOLEC
  89. IOLEC=IOTER
  90. GOTO 5
  91. ENDIF
  92. 7711 FORMAT (' VOULEZ-VOUS VRAIMENT SORTIR DE GIBI ? OUI/NON')
  93. 7712 FORMAT (A72)
  94. 7713 FORMAT( ' LE PROGRAMME ATTEND LA SUITE DES DONNEES')
  95. 7714 FORMAT(' FIN DE FICHIER SUR L''UNITE ',I2,/,
  96. # ' LES DONNEES SONT MAINTENANT LUES SUR LE CLAVIER')
  97. END
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  

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