C SNOM1     SOURCE    CHAT      05/01/13    03:21:10     5004           
      SUBROUTINE SNOM1(CNOM,ISGTR,IRET)                                         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C=======================================================================        
C                                                                               
C   BUT :  CHERCHE SI LE NOM EST DANS UN SEGMENT                                
C          EN AVANCANT DE INC EN INC                                            
C        . SI L'OBJET (I1-I2-) EST  DANS LA PILE NOMMEE,IRET=J                  
C        . SI NON    IRET =0                                                    
C    ECRIT PAR FARVACQUE-LENA                                                   
C    APPELE PAR FNOMOB                                                          
C=======================================================================        
-INC CCOPTIO                                                                    
      CHARACTER*8 CNOM                                                          
      SEGMENT ISGTR                                                             
        CHARACTER*8 ISGTRC(KS)                                                  
        INTEGER ISGTRI(KS)                                                      
      ENDSEGMENT                                                                
C                                                                               
      IRET=0                                                                    
      IF (ISGTR.EQ.0) GO TO 1                                                   
      N=ISGTRI(/1)                                                              
      DO 2 J=1,N                                                                
      IF(ISGTRC(J).NE.CNOM) GOTO 2                                              
      IRET=J                                                                    
      GO TO 3                                                                   
   2  CONTINUE                                                                  
   3  CONTINUE
   1  RETURN                                                                    
      END