Esope source files

   1 : C SNOM1     SOURCE    CHAT      05/01/13    03:21:10     5004           
   2 :       SUBROUTINE SNOM1(CNOM,ISGTR,IRET)                                         
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C=======================================================================        
   6 : C                                                                               
   7 : C   BUT :  CHERCHE SI LE NOM EST DANS UN SEGMENT                                
   8 : C          EN AVANCANT DE INC EN INC                                            
   9 : C        . SI L'OBJET (I1-I2-) EST  DANS LA PILE NOMMEE,IRET=J                  
  10 : C        . SI NON    IRET =0                                                    
  11 : C    ECRIT PAR FARVACQUE-LENA                                                   
  12 : C    APPELE PAR FNOMOB                                                          
  13 : C=======================================================================        
  14 : -INC CCOPTIO                                                                    
  15 :       CHARACTER*8 CNOM                                                          
  16 :       SEGMENT ISGTR                                                             
  17 :         CHARACTER*8 ISGTRC(KS)                                                  
  18 :         INTEGER ISGTRI(KS)                                                      
  19 :       ENDSEGMENT                                                                
  20 : C                                                                               
  21 :       IRET=0                                                                    
  22 :       IF (ISGTR.EQ.0) GO TO 1                                                   
  23 :       N=ISGTRI(/1)                                                              
  24 :       DO 2 J=1,N                                                                
  25 :       IF(ISGTRC(J).NE.CNOM) GOTO 2                                              
  26 :       IRET=J                                                                    
  27 :       GO TO 3                                                                   
  28 :    2  CONTINUE                                                                  
  29 :    3  CONTINUE
  30 :    1  RETURN                                                                    
  31 :       END                                                                       
  32 :  
  33 :