Esope source files

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