pxnew.f

Go to the documentation of this file.

CDECK  ID>, PXNEW.
******............................................................******
       LOGICAL FUNCTION pxnew(TSTLIS,JETLIS,NTRAK,NJET)
******............................................................******
      IMPLICIT NONE
*
      INTEGER mxtrak,mxprot
      parameter(mxtrak=200,mxprot=100)
       INTEGER ntrak,njet
       LOGICAL tstlis(mxtrak),jetlis(mxprot,mxtrak)
*** Checks to see if TSTLIS entries correspond to a jet already found
*** and entered in JETLIS
       INTEGER n, i
       LOGICAL match
*
       pxnew = .true.
       DO 100 i = 1,njet
          match = .true.
          DO 110 n = 1,ntrak
            IF(tstlis(n).NEQV.jetlis(i,n)) THEN
             match = .false.
             go to 100
            ENDIF
110       CONTINUE
          IF (match) THEN
           pxnew = .false.
           RETURN
          ENDIF
100    CONTINUE
       RETURN
       END