trigl0.F
...
        IF (QKMU22) THEN
          IF (KT) THEN
            NKTKM22 = NKTKM22 + 1
            IF (STDOTA) THEN
              NTAKM22 = NTAKM22 + 1
              IF (BCT) THEN
                NLBKM22 = NLBKM22 + 1
                IF (DELCON) THEN
                  NDCKM22 = NDCKM22 + 1
                  IF (RNGBUS(21,1)) THEN
                    N21KM22 = N21KM22 + 1
                    BVVETO = ESUMBV .GT. THSMBV
                    IF(BVVETO)THEN
                      NBVKM22 = NBVKM22 + 1
                      L0KM22 = .TRUE.
                    ENDIF
                  ENDIF
                ENDIF
              ENDIF
            ENDIF
          ENDIF
        ENDIF