Sources Esope | Cast3M

gentst
C GENTST    SOURCE    CHAT      05/01/13    00:17:44     5004
      LOGICAL FUNCTION GENTST(NUM1,NUM2,NPTO)
C--------------------------------------------------------------------
C
C     ON VERIFIE SI 2 NPTO-UPLET SONT IDENTIQUES MAIS DANS LE DESORDRE
C
C     PP 9/97
C     Pierre Pegon/JRC Ispra
C--------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
      DIMENSION NUM1(NPTO),NUM2(NPTO)
C
      GENTST=.TRUE.
      DO IE1=1,NPTO
        DO IE2=1,NPTO
          IF(NUM1(IE1).EQ.NUM2(IE2))GOTO 1
        ENDDO
        GOTO 2
 1      CONTINUE
      ENDDO
      RETURN
C
 2    GENTST=.FALSE.
      RETURN
C
      END