trigl0.F
...
        IF (QKPI2) THEN
          IF (KT) THEN
            NKTKP2 = NKTKP2 + 1
            IF (STDOTA) THEN
              NTAKP2 = NTAKP2 + 1
              IF (BCT) THEN 
                NLBKP2 = NLBKP2 + 1
                VETO = RNGBUS(19,1) .OR. RNGBUS(20,1) .OR. RNGBUS(21,1)
                IF (.NOT.VETO) THEN
                  NMVKP2 = NMVKP2 + 1
                  L0KP2 = .TRUE.
                ENDIF
              ENDIF
            ENDIF
          ENDIF
        ENDIF
...