Télécharger la plaquette Cast3M


fr en

Télécharger ooopos.eso

Retour à la liste

Numérotation des lignes : 

ooopos

  1. C OOOPOS    SOURCE    PV090527  26/04/24    08:23:18     12524          
  2.       SUBROUTINE OOOPOS (NTAPE,IREP,IPS)
  3. C----------------------------------------------------------------------
  4. C
  5. C               POSITIONNEMENT APRES UN REPERE DE SVGDE
  6. C
  7. C       POUR PERMETTRE L'EPURATION DES SVGDES,ON SE POSITIONNE APRES
  8. C       LA SVGDE DE REPERE IREP(SUR FIN DE FICHIER SI DERNIERE)
  9. C             IPS=2 OK
  10. C             IPS=1 REPERE NON TROUVE
  11. C       ATTENTION:PAS DE REWIND PREALABLE DU FICHIER SVGDE
  12. C
  13. C     NTAPE   SUR LE FICHIER SEQUENTIEL NTAPE
  14. C     IREP    REPERE DE LA SAUVEGARDE ( MOT 1 DE CHAQUE ENREGISTREMENT )
  15. C     IPS     POINTEUR DE REPRISE ( POUR RETROUVER TOUS LES SEGMENTS )
  16. C
  17. C-----------------------------------------------------------------------
  18. C
  19. C****** INIT ZONE DE CONTROLE-->7 MOTS
  20.       DIMENSION IREC(8)
  21. C
  22.       DATA IREC /8*0/
  23. C
  24.       IPS=2
  25. C      POSITIONNEMENT SUR ENR TYPE 1
  26.  210  READ (NTAPE,END=250) IREC
  27.       IF (IREC(2).NE.IREP)                             GO TO 210
  28.       IF (IREC(3).NE.1)                                GO TO 210
  29. C      LECTURE DE LA SVGDE DE REPERE IREP
  30.  220  READ (NTAPE,END=902) IREC
  31.       IF (IREC(2).NE.IREP)                             GO TO 903
  32.       IF (IREC(3).NE.2)                                GO TO 230
  33.                                                        GO TO 220
  34. C      FIN DE SVGDE
  35.  230  IF (IREC(3).NE.3)                                GO TO 903
  36.                                                        RETURN
  37.  250  IPS=1
  38.                                                        GO TO 904
  39. C-----------------------------------------------------------------------
  40. C
  41. C                        MESSAGES D'ERREUR
  42. C
  43.  902  CALL OOOERR (IREP,1,' SAUVEGARDE INCOMPLETE')
  44.                                                         GO TO 950
  45.  903  CALL OOOERR (IREP,1,' SAUVEGARDE INCOHERENTE')
  46.                                                         GO TO 950
  47.  904  CALL OOOERR (IREP,1,' SAUVEGARDE NON TROUVEE')
  48.                                                         RETURN
  49.  950                                                    STOP 16
  50.       END
  51.  
  52.  

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