Esope source files

   1 : C POSREE    SOURCE    CHAT      06/03/16    21:23:36     5336           
   2 :       subroutine posree(xxva,iplace)
   3 :       implicit integer (I-N)
   4 :       implicit real*8 (a-h,o-z)
   5 : -INC CCNOYAU
   6 : -INC CCOPTIO
   7 : -INC CCASSIS
   8 : C                                                   
   9 : C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE         
  10 : C
  11 :         if(nbesc.ne.0) segact ipiloc*mod            
  12 :         IL=XIFLOT(/1)                               
  13 :         IF(IL.NE.0) THEN                            
  14 :            DO 55 J=1,LMNREE                         
  15 :            IF(XIFLOT(J).NE.XXVA) GO TO 55           
  16 : C LA VALEUR EXISTE DEJA  EN J IEME POSITION         
  17 :            Iplace=J
  18 :            if(nbesc.ne.0) segdes ipiloc             
  19 :             RETURN                                  
  20 :   55       CONTINUE                                 
  21 :         ENDIF                                     
  22 : C LA VALEUR N'EXISTE PAS                            
  23 :         LMNREE=LMNREE+1
  24 :         IF(LMNREE.GT.IL) THEN 
  25 :            lmcc=ipchar(/1)
  26 :            lmmm=ichara(/1)
  27 :            lmll=iplogi(/1)                          
  28 :            LMxx=LMNREE+100                          
  29 :            SEGADJ IPILOC                            
  30 :         ENDIF                                       
  31 :         XIFLOT(LMNREE)=XXVA                         
  32 :         IPLACE=LMNREE
  33 :         if(nbesc.ne.0) segdes ipiloc                
  34 :         RETURN 
  35 :         END  
  36 :