Télécharger la plaquette Cast3M


fr en

Télécharger ooosuw.eso

Retour à la liste

Numérotation des lignes : 

ooosuw

  1. C OOOSUW    SOURCE    PV090527  26/04/24    08:23:24     12524          
  2.       SUBROUTINE OOOSUW (LRET,PSEG)
  3. C--------------------------------------------------------------------
  4. C
  5. C              ECRITURE D'UN SEGMENT OU D'UN SUPER-SEGMENT
  6. C                       EN ZONE DE DEBORDEMENT
  7. C
  8. C    ->LRET  1  PLUS DE PLACE SUR DISQUE
  9. C            2  OK
  10. C
  11. C      PSEG     DESCRIPTEUR DU SEGMENT  SI GROS SEGMENT
  12. C               OU          DU MARQUEUR SI SUPER SEGMENT
  13. C
  14. C         LE(S) SEGMENTS SONT ECRITS EN ZONE DE DEBORDEMENT S'IL
  15. C         N'Y A PAS DE COPIE SUR DISQUE
  16. C
  17. C         SUPPRESSION DU GROS SEGMENT OU DES PETITS SEGMENTS
  18. C                  EN MEMOIRE ACTIVE
  19. C
  20. C PROGRAMMEUR : MOUGIN
  21. C       MODIF : 16/11/88    RETIRER L'ARGUMENT LRET DANS CALL OOOMSU
  22. C       MODIF : 04/02/89    RETIRER L'ARGUMENT LRET DANS CALL OOODWD
  23. C
  24. C--------------------------------------------------------------------
  25. C
  26. %INC IOOADR
  27. %INC IOOADZ
  28. %INC IOODES
  29. %INC IOOSGM
  30.       POINTEUR PSEG.PSEG
  31. C
  32. C****** CARACTERISTIQUES DU SEGMENT
  33. C
  34.       ISEG = MDISG(PSEG)
  35.       ITRK = MDTRK(PSEG)
  36.       ITYP = MDTYP(PSEG)
  37.       ICAT = MDCAT(ITYP)
  38. C
  39.       IF (ICAT.EQ.MDMARK)                              THEN
  40.         ISA   = ISEG+(MSLMARK)
  41.         LSA   = MSMARK(ISEG)
  42.         ICATX = MDBLOCK
  43.       ELSE
  44.         ISA   = ISEG
  45.         LSA   = MSLS1(ISEG)
  46.         ICATX = MDISOLE
  47.       ENDIF
  48. C
  49. C****** PAS DE COPIE DISQUE? : ECRITURE EN ZONE DE DEBORDEMENT
  50. C
  51.       IF (ITRK.EQ.0)                                   THEN
  52.         CALL OOODWD (MZPTRK,ITRK,JSG(ISA+1),LSA)
  53.         IF (ITRK.EQ.0)                                 THEN
  54.           LRET = 1
  55.                                                        RETURN
  56.         ENDIF
  57.       ENDIF
  58. C
  59. C****** MISE A JOUR DES DESCRIPTEURS DES SEGMENTS
  60. C
  61.       ISX=ISA
  62.       ISF=ISA+LSA
  63. C
  64.       DO WHILE (ISX.LT.ISF)
  65.         LSX = MSLS1(ISX)
  66.         IDX = MSIDE(ISX)
  67.         MDCH0 , IDX
  68.         IF (ICAT.NE.MDMARK)                            THEN
  69.           LST=LSX
  70.           CALL OOOMSU (IZA,MDISG(IDX),LST)
  71.         ENDIF
  72.         MDLEN(IDX)=LSA
  73.         MDTRK(IDX)=ITRK
  74.         MDTYP(IDX)=MDLTYP(ICATX,MDDISQUE,0,0,0)
  75. C
  76.         MZJSS(VIDES)=MZJSS(VIDES)+1
  77.         MZJSM(VIDES)=MZJSM(VIDES)+LSX
  78. C
  79.         ISX=ISX+LSX
  80.       ENDDO
  81.       LRET = 2
  82.  
  83.       END
  84.  
  85.  

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