Sources Esope | Cast3M

sort8
C SORT8     SOURCE    CHAT      05/01/13    03:22:53     5004
      SUBROUTINE SORT8(ITAB,LTAB,ITLAC,LITLAC,IRET)
C=======================================================================
C      POUR OPERATEUR SAUVER :
C   . SI ITAB (DE LONGUEUR LTAB) EST INCLUS DANS ITLAC (DE LONGUEUR
C     LITLAC) ALORS IRET=0
C    ECRIT PAR FARVACQUE  EN FORTRAN
C    APPELE PAR SORT1
C=======================================================================
      IMPLICIT INTEGER(I-N)
      DIMENSION ITAB(LTAB),ITLAC(LITLAC)
      IRET=0
      DO 1 I=1,LTAB
      IP1=ITAB(I)
      DO 2 J=1,LITLAC
      IF(ITLAC(J).EQ.IP1) GOTO 1
   2  CONTINUE
      IRET=1
      RETURN
   1  CONTINUE
      RETURN
      END