C POSREE    SOURCE    CHAT      06/03/16    21:23:36     5336           
      subroutine posree(xxva,iplace)
      implicit integer (I-N)
      implicit real*8 (a-h,o-z)
-INC CCNOYAU
-INC CCOPTIO
-INC CCASSIS
C                                                   
C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE         
C
        if(nbesc.ne.0) segact ipiloc*mod            
        IL=XIFLOT(/1)                               
        IF(IL.NE.0) THEN                            
           DO 55 J=1,LMNREE                         
           IF(XIFLOT(J).NE.XXVA) GO TO 55           
C LA VALEUR EXISTE DEJA  EN J IEME POSITION         
           Iplace=J
           if(nbesc.ne.0) segdes ipiloc             
            RETURN                                  
  55       CONTINUE                                 
        ENDIF                                     
C LA VALEUR N'EXISTE PAS                            
        LMNREE=LMNREE+1
        IF(LMNREE.GT.IL) THEN 
           lmcc=ipchar(/1)
           lmmm=ichara(/1)
           lmll=iplogi(/1)                          
           LMxx=LMNREE+100                          
           SEGADJ IPILOC                            
        ENDIF                                       
        XIFLOT(LMNREE)=XXVA                         
        IPLACE=LMNREE
        if(nbesc.ne.0) segdes ipiloc                
        RETURN 
        END