Esope source files

   1 : C NOMENT    SOURCE    CHAT      06/03/16    21:22:30     5336           
   2 :       SUBROUTINE NOMENT(NAM,IVAL)                                        
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                             
   5 : -INC SMBLOC                                                              
   6 : -INC CCOPTIO                                                             
   7 :       CHARACTER*(*) NAM                                                    
   8 :       II=IVAL                                                            
   9 : C RECHERCHE DU NOM DANS LA PILE DES MOTS
  10 :       IL=LEN(NAM)  
  11 :       DO 765 I=IL,1,-1
  12 :       IF(NAM(I:I).NE.' ') GO TO 764
  13 :   765 CONTINUE
  14 :       I=1
  15 :   764 IL=I                                            
  15 :       CALL POSCHA(NAM(1:IL),IPOSCH)                                        
  16 :       DO 3 I =MDEOBJ,LMNNOM                                              
  17 :       IF(IPOSCH.EQ.INOOB1(I)) THEN                                       
  18 : C ON A TROUVE                                                            
  19 :           INOOB2(I)='ENTIER  '                                           
  20 :           IOUEP2(I)=II                                                   
  21 : C          IF(IIMPI.EQ.1757) WRITE(IOIMP,1546)NOM,IVAL,II,MDEOBJ,ILON    
  22 : C 1546     FORMAT('  NOMENT : NOM IVAL II MDEOBJ ILON ',A8,4I6)          
  23 :           RETURN                                                         
  24 :       ENDIF                                                              
  25 :    3  CONTINUE                                                           
  26 :   11  CONTINUE                                                           
  27 : C IL FAUT CREER LE NOM                                                   
  28 :       LMNNOM=LMNNOM+1 
  29 : *      write(6,*) ' lmmnom ' ,lmnnom 
  30 :       ILON=INOOB1(/1)                                                    
  31 :       IF(LMNNOM.GT.ILON) THEN                                            
  32 :          N=LMNNOM+50                                                     
  33 :          SEGADJ ITABOB,ITABOC,ITABOD                                     
  34 :       ENDIF                                                              
  35 :       N=LMNNOM                                                           
  36 :       INOOB1(N)=IPOSCH                                                   
  37 :       INOOB2(N)='ENTIER  '                                               
  38 :       IOUEP2(N)=II                                                       
  39 : C          IF(IIMPI.EQ.1757) WRITE(IOIMP,1546)NOM,IVAL,II,MDEOBJ,ILON    
  40 :       RETURN                                                             
  41 :       END                       
  42 :