Esope source files

   1 : C NOMLOG    SOURCE    CHAT      07/11/06    21:15:01     5953           
   2 :       SUBROUTINE NOMLOG(NAM,BVAL)                              
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                   
   5 : -INC SMBLOC                                                    
   6 :       CHARACTER*(*) NAM                                        
   7 :       LOGICAL BVAL 
   7 :       call poslog(bval,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 :       DO 3 I =MDEOBJ,LMNNOM                                    
  16 :       IF(IPOSCH.EQ.INOOB1(I)) THEN                             
  17 : C ON A TROUVE                                                  
  18 :           INOOB2(I)='LOGIQUE  '                                
  19 :           IOUEP2(I)=II                                         
  20 :           RETURN                                               
  21 :       ENDIF                                                    
  22 :    3  CONTINUE                                                 
  23 :    11 CONTINUE                                                 
  24 : C IL FAUT CREER LE NOM                                         
  25 :       LMNNOM=LMNNOM+1
  26 :       IO=inoob1(/1)                                          
  27 :       IF(LMNNOM.GT.IO) THEN                                    
  28 :          N=LMNNOM+50                                           
  29 :          SEGADJ ITABOB,ITABOC,ITABOD                           
  30 :       ENDIF                                                    
  31 :       N=LMNNOM                                                 
  32 :       INOOB1(N)=IPOSCH                                         
  33 :       INOOB2(N)='LOGIQUE '                                     
  34 :       IOUEP2(N)=II                                             
  35 :       RETURN                                                   
  36 :       END           
  37 :  
  38 :