Sources Esope | Cast3M

ooomta
C OOOMTA    SOURCE    PV090527  26/04/24    08:23:16     12524          
      SUBROUTINE OOOMTA (LRET,LSEG)
C-----------------------------------------------------------------
C
C                      TASSER UNE ZONE MEMOIRE
C
C   ->LRET  1  TASSEMENT INSUFFISANT
C           2  OK
C
C     LSEG     NOMBRE DE MOTS DEMANDES
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 27/02/89    LRET = 1 SI TASSEMENT INSUFFISANT
C       MODIF : 06/03/89    SIMPLIFIER LES ARGUMENTS
C
C-----------------------------------------------------------------
C
%INC IOOADR
%INC IOOADZ
%INC IOODES
%INC IOOTRO
%INC IOOSGM
%INC IOOWCOM
%INC IOOSAF
C
C******  DEBUT:IS POINTE SUR DEBUT ZONE DES BLOCS
C
      iro=0
**    write (6,*) 'ooomta lnsf',(lnsf(i),i=0,64)
      do i=0,128
       if (i.ne.oothrd) iro=max(iro,lnsf(i))
      enddo
      goto 10
      entry ooomt2(lret,lseg)
      iro=0
  10  continue
 
      IS=MZIS0(IZA)
C
C******  CHAINE DES TROUS REDUITE A UN TROU?
C
      IT0 = MZIT0(IZA,ZMEMDYN)
      IF (MTITP(IT0).EQ.MTITS(IT0))                  THEN
        LS=-(MTLT1(IT0))
      ELSE
        IS=MZIS0(IZA)
        LS=MZDLIM(IZA)-IS
        if (thread) call oooblo
*  iro = 0 on deplace les segments actifs
*  iro = 1 on ne deplace pas les segments actifs
        CALL OOOMTX (IZA,IS,LS,LSEG,iro)
        if (thread) call ooodbl
      ENDIF
C
      LRET = 2
      IF (LS.LT.LSEG) LRET=1
 
      END