Esope source files

   1 : C NOMREE    SOURCE    CHAT      06/03/16    21:22:45     5336           
   2 :       SUBROUTINE NOMREE(NAM,XVAL)                             
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                  
   5 : -INC SMBLOC                                                   
   6 :       CHARACTER*(*) NAM                                       
   7 :       REAL*8 XVAL                                             
   7 :       call posree(xval,ii)                                    
   8 : C RECHERCHE DU NOM DANS LA PILE DES NOMS
   9 :       IL=LEN(NAM)  
  10 :       DO 765 I=IL,1,-1
  11 :       IF(NAM(I:I).NE.' ') GO TO 764
  12 :   765 CONTINUE
  13 :       I=1
  14 :   764 IL=I      
  14 :       CALL POSCHA(NAM(1:IL),IPOSCH)                           
  15 :       IO=INOOB1(/1)                                           
  16 :       IF(IO.EQ.0) GO TO 11                                    
  17 :       DO 3 I =MDEOBJ,LMNNOM                                   
  18 :       IF(IPOSCH.EQ.INOOB1(I)) THEN                            
  19 : C ON A TROUVE                                                 
  20 :           INOOB2(I)='FLOTTANT'                                
  21 :           IOUEP2(I)=II                                        
  22 :           RETURN                                              
  23 :       ENDIF                                                   
  24 :    3  CONTINUE                                                
  25 :   11  CONTINUE                                                
  26 : C IL FAUT CREER LE NOM                                        
  27 :       LMNNOM=LMNNOM+1                                         
  28 :       IF(LMNNOM.GT.IO) THEN                                   
  29 :          N=LMNNOM+50                                          
  30 :          SEGADJ ITABOB,ITABOC,ITABOD                          
  31 :       ENDIF                                                   
  32 :       N=LMNNOM                                                
  33 :       INOOB1(N)=IPOSCH                                        
  34 :       INOOB2(N)='FLOTTANT'                                    
  35 :       IOUEP2(N)=II                                            
  36 :       RETURN                                                  
  37 :       END             
  38 :