C ECRESC    SOURCE    PV        11/04/08    21:15:33     6934           
C  retourne une position libre dans la pile esclave
C
      SUBROUTINE ECRESC(IPOS)
      IMPLICIT INTEGER(I-N)
-INC CCASSIS
      ith=0
      call ooonth(ith)
      mescla=imescl(ith)
      do 10 i=1,100
       if (esoplu(i)) goto 10
       goto 11
  10  continue
      i=101
  11  continue
      i=i-1
      if (i.eq.0) then
*  faire un peu de place
       do 20 i=90,1,-1
         esoplu(i+10)=esoplu(i)
         esopty(i+10)=esopty(i)
         esopva(i+10)=esopva(i)
         esopch(i+10)=esopch(i)
         esoplo(i+10)=esoplo(i)
         esopre(i+10)=esopre(i)
  20   continue
       do 30 i=1,10
         esoplu(i)=.true.
  30   continue
       i=10
      endif
      ipos=i
      end