Esope source files

   1 : C ECRESC    SOURCE    PV        11/04/08    21:15:33     6934           
   2 : C  retourne une position libre dans la pile esclave
   3 : C
   4 :       SUBROUTINE ECRESC(IPOS)
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCASSIS
   7 :       ith=0
   7 :       call ooonth(ith)
   8 :       mescla=imescl(ith)
   9 :       do 10 i=1,100
  10 :        if (esoplu(i)) goto 10
  11 :        goto 11
  12 :   10  continue
  13 :       i=101
  14 :   11  continue
  15 :       i=i-1
  16 :       if (i.eq.0) then
  17 : *  faire un peu de place
  18 :        do 20 i=90,1,-1
  19 :          esoplu(i+10)=esoplu(i)
  20 :          esopty(i+10)=esopty(i)
  21 :          esopva(i+10)=esopva(i)
  22 :          esopch(i+10)=esopch(i)
  23 :          esoplo(i+10)=esoplo(i)
  24 :          esopre(i+10)=esopre(i)
  25 :   20   continue
  26 :        do 30 i=1,10
  27 :          esoplu(i)=.true.
  28 :   30   continue
  29 :        i=10
  30 :       endif
  31 :       ipos=i
  32 :       end
  33 :  
  34 :  
  35 :  
  36 :  
  37 :  
  38 :  
  39 :