Esope source files

   1 : C SNOM2     SOURCE    CHAT      05/01/13    03:21:14     5004           
   2 :       SUBROUTINE SNOM2(IP1,ITLACC,IRET)                                         
   3 : C=======================================================================        
   4 : C   BUT :  CHERCHE SI UN POINTEUR EST DANS UNE PILE                             
   5 : C          SI OUI IRET = INDICE DANS LA PILE                                    
   6 : C                                                                               
   7 : C   .                                                                           
   8 : C    ECRIT PAR FARVACQUE -LENA                                                  
   9 : C    APPELE PAR FNOMOB                                                          
  10 : C=======================================================================        
  11 :       IMPLICIT INTEGER(I-N)
  12 : -INC CCOPTIO                                                                    
  13 :       SEGMENT/ITLACC/(ITLAC(0))                                                 
  14 : C                                                                               
  15 :       IRET=0                                                                    
  16 : C                                                                               
  17 :       IF (ITLACC.EQ.0) GO TO 2                                                  
  18 :       N=ITLAC(/1)                                                               
  19 :       IF (N.EQ.0) GO TO 3                                                       
  20 :       DO 1 J=1,N                                                                
  21 :       IF(ITLAC(J).NE.IP1) GOTO 1                                                
  22 :       IRET=J                                                                    
  23 :       GO TO 3                                                                   
  24 :    1  CONTINUE                                                                  
  25 :    3  CONTINUE                                                                  
  26 :    2  RETURN                                                                    
  27 :       END                                                                       
  28 :