trig10.F
...
        IF (QKMU2) THEN
          IF (KT) THEN
            NKTKM2 = NKTKM2 + 1
            IF (STDOTA) THEN
              NTAKM2 = NTAKM2 + 1
              IF (BCT) THEN
                NLBKM2 = NLBKM2 + 1
                VETO = RNGBUS(17,1) .OR. RNGBUS(18,1) .OR. RNGBUS(19,1)
                IF (VETO) THEN
                  NMVKM2 = NMVKM2 + 1
                  L0KM2 = .TRUE.
                ENDIF
              ENDIF
            ENDIF
          ENDIF
        ENDIF
...