Sources Esope | Cast3M

oooxds
C OOOXDS    SOURCE    PV090527  26/04/24    08:23:33     12524          
      SUBROUTINE OOOXDS (NDE,IDDE)
C------------------------------------------------------------------
C
C                EXTENSION DU SEGMENT DES DESCRIPTEURS
C              ET MODIFICATION DE L'INCREMENT PAR DEFAUT
C
C      NDE    NOMBRE DE DESCRIPTEURS LIBRES A PREVOIR
C      IDDE   NOMBRE DE DESCRIPTEURS A RAJOUTER A CHAQUE EXTENSION
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 17/01/89    UTILISER LE  OOODEX  SIMPLIFIE
C
C------------------------------------------------------------------
C
%INC IOOADR
%INC IOOADZ
%INC IOODES
%INC IOOSGM
%INC IOOWCOM
C
       if (thread) call ooogll(1)
C      EXTENSION DU SEGMENT DES DESCRIPTEURS SI NDE
 
      IF (NDE.NE.0)                                    THEN
         CALL OOODEX (LRET,NDE)
         IF (LRET.EQ.1)                                GO TO 901
      ENDIF
 
C       ET VALEUR DE L'INCREMENT NOMBRE DESCRIPTEUR SI IDDE
 
      IF (IDDE.NE.0)                                   THEN
         MZNDEX=IDDE
      ENDIF
       if (thread) call ooogll(0)
                                                       RETURN
C----------------------------------------------------------------
C
C                     MESSAGES D'ERREUR
C
 901  CALL OOOERR (0,0,'OOOXDS : PAS ASSEZ DE PLACE MEMOIRE')
                                                       STOP 16
      END