Télécharger la plaquette Cast3M


fr en

Télécharger oooap1.eso

Retour à la liste

Numérotation des lignes : 

oooap1

  1. C OOOAP1    SOURCE    PV090527  26/04/24    08:23:00     12524          
  2. CMODE 92/04/09 17:33:44     ESOPV10
  3.       SUBROUTINE OOOAP1 (LRET,HARG,PSEG,HTYPE,HPOINT,
  4.      *                  PARCH)
  5. C
  6. C    ->LRET     RETOUR D'ERREUR
  7. C               = 1 SI SEGMENT SUPPRIME(POINTEUR NUL)
  8. C               = 2 SI SEGMENT ACTIF
  9. C               = 3 SI SEGMENT INACTIF EN MEMOIRE
  10. C               = 4 SI SEGMENT INACTIF SUR DISQUE
  11. C
  12. C      IRET     0
  13. C      HARG     'NOM_SUBROUTINE NUMERO_LIGNE NOM_SEGMENT '
  14. C      PSEG     POINTEUR DU SEGMENT
  15. C      HTYPE    NOM DU SEGMENT DESIGNE
  16. C      HPOINT   NOM DU POINTEUR DU SEGMENT
  17. C      PARCH
  18. C
  19. C     H_MULLEMAN 1/8/91
  20. C     M.F. ROBEAU SUPPRESSION DE LGR INUTILISE ET ->ERREUR SUR CRAY
  21. C-----------------------------------------------------------------------
  22. %INC IOOWCOM
  23. %INC IOOARC
  24. C
  25.       PARAMETER  (NPRINT=6)
  26.       CHARACTER *(*)  HARG , HPOINT , HTYPE
  27.  
  28.       POINTEUR   PSEG.PSEG ,PARCH.KARCHIV
  29. C
  30.       MACRO , (SUPPRIME , ACTIF     , INACTIF_EN_MEMOIRE
  31.      *      ,  INACTIF_SUR_DISQUE                         )
  32. C
  33.       KASINS = INSTRUCTION_SEGINIA
  34.       HDIA   = HARG
  35.       LDIA   = LEN(HARG)
  36. C     MESSAGE D'ERREUR SI PSEG INVALIDE
  37.       CALL OOOVPN (PSEG)
  38. C
  39.       IF(PSEG.EQ.0) THEN
  40.         LRET = SUPPRIME
  41.       ELSE
  42.         CALL OOOETA(PSEG,IETA,IMOD)
  43.         LRET=IETA+1
  44.       ENDIF
  45. C
  46.       IACTIF=.FALSE.
  47.       CASE         , LRET
  48.       WHEN , SUPPRIME
  49.       WHEN , ACTIF
  50.       WHEN , INACTIF_EN_MEMOIRE
  51.         SEGACT , PSEG
  52.         IACTIF=.TRUE.
  53.       WHEN , INACTIF_SUR_DISQUE
  54.         SEGACT , PSEG
  55.         IACTIF=.TRUE.
  56.       ENDCASE
  57. C
  58. C     INITIALISATION DU SEGMENT ARCHIVE
  59.       LOOK=1000
  60.       SEGINI   PARCH
  61. C     SEGACT , PARCH
  62.       INDICE=1
  63.       RETURN
  64. C   ..............................................
  65.       ENTRY      OOOAP2 (LRET,HARG,PSEG,PARCH)
  66. C        REMETTRE LE SEGMENT PARCH A SA VRAIE LONGUEUR
  67.       LOOK=INDICE-1
  68.       SEGADJ PARCH
  69. C        RETOUR A L'ETAT ANTERIEUR DU SEGMENT
  70.         IF (IACTIF) SEGDES , PSEG*NOMOD
  71.         SEGDES , PARCH
  72.       RETURN
  73. C   ..............................................
  74.       ENTRY OOOBP1 (LRET,HARG,HTYPE,HPOINT,PARCH)
  75.       IACTIF=.TRUE.
  76.       INDICE=1
  77.       SEGACT  ,PARCH
  78.       RETURN
  79. C   ..............................................
  80.       ENTRY      OOOBP2 (LRET,HARG,PSEG,PARCH)
  81. C         PSEG RESTE ACTIF COMME POUR UN SEGINI
  82.       SEGDES , PARCH*NOMOD
  83.       RETURN
  84.       END
  85. C   ..............................................
  86.  
  87.  

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