Télécharger la plaquette Cast3M


fr en

Télécharger ooobuw.eso

Retour à la liste

Numérotation des lignes : 

ooobuw

  1. C OOOBUW    SOURCE    PV090527  26/04/24    08:23:02     12524          
  2.       SUBROUTINE OOOBUW (LRET,LBUF)
  3. C-------------------------------------------------------------------
  4. C
  5. C        ECRITURE DES SEGMENTS BLOQUES DANS LE SEGMENT BUFFER
  6. C                SUPPRIMER LEURS VERSIONS EN MEMOIRE
  7. C                ET METTRE A JOUR LEURS DESCRIPTEURS
  8. C
  9. C    ->LRET  1  PLUS DE PLACE SUR DISQUE
  10. C            2  OK
  11. C
  12. C      LBUF     ECRIRE : BUFFER(I),I=1,LBUF
  13. C
  14. C PROGRAMMEUR : MOUGIN
  15. C       MODIF : 16/11/88    RETIRER L'ARGUMENT   LRET DU CALL OOOMSU
  16. C       MODIF : 04/02/89    RETIRER L'ARGUMENT   LRET DU CALL OOODWD
  17. C
  18. C-------------------------------------------------------------------
  19. C
  20. %INC IOOADR
  21. %INC IOOADZ
  22. %INC IOODES
  23. %INC IOOSGM
  24. %INC IOOPBUF
  25. %INC IOOWCOM
  26. C
  27. C
  28. C****** ECRITURE EN ZONE DE DEBORDEMENT
  29. C
  30.       PBUF=MZPBUF
  31.       CALL OOODWD (MZPTRK,ITRK,PBUF.BUFFER(1),LBUF)
  32.       IF (ITRK.EQ.0)                                   THEN
  33.         LRET = 1
  34.                                                        RETURN
  35.       ENDIF
  36. C
  37. C****** MISE A JOUR DES DESCRIPTEURS DES SEGMENTS
  38. C
  39.       ISX=INDICE DU PREMIER PETIT SEGMENT DANS (PBUF)
  40.       ISF=ISX+LBUF
  41. C
  42.       DO WHILE (ISX.LT.ISF)
  43.         LSX=MSLS1(ISX)
  44.         IDX=MSIDE(ISX)
  45.         MDCH0 , IDX
  46.         LST=LSX
  47.         CALL OOOMSU (IZA,MDISG(IDX),LST)
  48.         MDLEN(IDX)=LBUF
  49.         MDTRK(IDX)=ITRK
  50.         MDTYP(IDX)=MDLTYP(MDBLOCK,MDDISQUE,0,0,0)
  51.  
  52.         MZJSS(VIDES)=MZJSS(VIDES)+1
  53.         MZJSM(VIDES)=MZJSM(VIDES)+LSX
  54.  
  55.         ISX=ISX+LSX
  56.       ENDDO
  57.       CALL OOOZMR (PBUF.BUFFER(1),LBUF)
  58.       LRET = 2
  59.  
  60.       END
  61.  
  62.  

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