C NOMREE    SOURCE    CHAT      06/03/16    21:22:45     5336           
      SUBROUTINE NOMREE(NAM,XVAL)                             
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                  
-INC SMBLOC                                                   
      CHARACTER*(*) NAM                                       
      REAL*8 XVAL                                             
      call posree(xval,ii)                                    
C RECHERCHE DU NOM DANS LA PILE DES NOMS
      IL=LEN(NAM)  
      DO 765 I=IL,1,-1
      IF(NAM(I:I).NE.' ') GO TO 764
  765 CONTINUE
      I=1
  764 IL=I      
      CALL POSCHA(NAM(1:IL),IPOSCH)                           
      IO=INOOB1(/1)                                           
      IF(IO.EQ.0) GO TO 11                                    
      DO 3 I =MDEOBJ,LMNNOM                                   
      IF(IPOSCH.EQ.INOOB1(I)) THEN                            
C ON A TROUVE                                                 
          INOOB2(I)='FLOTTANT'                                
          IOUEP2(I)=II                                        
          RETURN                                              
      ENDIF                                                   
   3  CONTINUE                                                
  11  CONTINUE                                                
C IL FAUT CREER LE NOM                                        
      LMNNOM=LMNNOM+1                                         
      IF(LMNNOM.GT.IO) THEN                                   
         N=LMNNOM+50                                          
         SEGADJ ITABOB,ITABOC,ITABOD                          
      ENDIF                                                   
      N=LMNNOM                                                
      INOOB1(N)=IPOSCH                                        
      INOOB2(N)='FLOTTANT'                                    
      IOUEP2(N)=II                                            
      RETURN                                                  
      END