Sources Esope | Cast3M

ooolis
C OOOLIS    SOURCE    PV090527  26/04/24    08:23:12     12524          
      SUBROUTINE OOOLIS (PLIS)
C----------------------------------------------------------------------
C
C   ->PLIS    POINTEURS SUR TOUS LES SEGMENTS ACTUELS (DU CLIENT)
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 15/09/88  VERPEAU A MOUGIN : T'AS OUBLIE DE COMPTER PLIS
C
C-----------------------------------------------------------------------
C
%INC IOOADR
%INC IOOADZ
%INC IOODES
%INC IOOSGM
%INC IOOWCOM
      SEGMENT , PLIS
        POINTEUR P(NP).XXX
      ENDSEGMENT
C
C     LES SEGMENTS DE GESTION DU DEBORDEMENT DISQUE NE COMPTENT PAS
C
      IF (MZPBUF.EQ.0)                                 THEN
        IDX=MZIDEX
      ELSE
        IDX=MZPBUF+MDLDE
      ENDIF
      IDY=MZIDEY
      LDE=MDLDE
C
      NP = (IDY-IDX)/LDE+2
 
*     Vider les queues de suppression
      if (thread) call ooogll(1)
      do ith=0,128
        call ooosuq(ith)
      enddo
      if (thread) call ooogll(0)
 
      SEGINI /ERR=100/ PLIS
      if (thread) call ooogll(1)
C  En cas d'extension du segment des descripteurs
      IF (MZPBUF.EQ.0)                                 THEN
        IDX=MZIDEX
      ELSE
        IDX=MZPBUF+MDLDE
      ENDIF
      IDY=MZIDEY
      LDE=MDLDE
C
C     COMPTER LES DESCRIPTEURS NON LIBRES , NE CORRESPONDANT
C     PAS A UN MARQUEUR DE SUPER SEGMENT .
C
C
C     CHARGER LE SEGMENT , PLIS
C
      NP  = 0
      DO    IDE=IDX,IDY,LDE
        IF (MDIDS(IDE).GE.0 )                          THEN
          ITYP=MDTYP(IDE)
          IF (MDCAT(ITYP).NE.MDMARK )                  THEN
            NP   =NP+1
            P(NP)=IDE
          ENDIF
        ENDIF
      ENDDO
      if (thread) call ooogll(0)
      SEGADJ /ERR=100/ PLIS
                                                       RETURN
 100  PLIS = 0
      CALL OOOERR(NP,3,'PAS ASSEZ DE PLACE EN MEMOIRE')
      STOP 16
                                                       RETURN
      END