Esope source files

   1 : C SORT8     SOURCE    CHAT      05/01/13    03:22:53     5004           
   2 :       SUBROUTINE SORT8(ITAB,LTAB,ITLAC,LITLAC,IRET)                             
   3 : C=======================================================================        
   4 : C      POUR OPERATEUR SAUVER :                                                  
   5 : C   . SI ITAB (DE LONGUEUR LTAB) EST INCLUS DANS ITLAC (DE LONGUEUR             
   6 : C     LITLAC) ALORS IRET=0                                                      
   7 : C    ECRIT PAR FARVACQUE  EN FORTRAN                                            
   8 : C    APPELE PAR SORT1                                                           
   9 : C=======================================================================        
  10 :       IMPLICIT INTEGER(I-N)
  11 :       DIMENSION ITAB(LTAB),ITLAC(LITLAC)                                        
  12 :       IRET=0                                                                    
  13 :       DO 1 I=1,LTAB                                                             
  14 :       IP1=ITAB(I)                                                               
  15 :       DO 2 J=1,LITLAC                                                           
  16 :       IF(ITLAC(J).EQ.IP1) GOTO 1                                                
  17 :    2  CONTINUE                                                                  
  18 :       IRET=1                                                                    
  19 :       RETURN                                                                    
  20 :    1  CONTINUE                                                                  
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :