Esope source files

   1 : C GENTST    SOURCE    CHAT      05/01/13    00:17:44     5004           
   2 :       LOGICAL FUNCTION GENTST(NUM1,NUM2,NPTO)
   3 : C--------------------------------------------------------------------
   4 : C
   5 : C     ON VERIFIE SI 2 NPTO-UPLET SONT IDENTIQUES MAIS DANS LE DESORDRE
   6 : C
   7 : C     PP 9/97
   8 : C     Pierre Pegon/JRC Ispra
   9 : C--------------------------------------------------------------------
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8 (A-H,O-Z)
  12 : C
  13 :       DIMENSION NUM1(NPTO),NUM2(NPTO)
  14 : C
  15 :       GENTST=.TRUE.
  16 :       DO IE1=1,NPTO
  17 :         DO IE2=1,NPTO
  18 :           IF(NUM1(IE1).EQ.NUM2(IE2))GOTO 1
  19 :         ENDDO
  20 :         GOTO 2
  21 :  1      CONTINUE
  22 :       ENDDO
  23 :       RETURN
  24 : C
  25 :  2    GENTST=.FALSE.
  26 :       RETURN
  27 : C
  28 :       END
  29 :  
  30 :