* dm24: STB-23
program define t_drop
    while ("`1'"!="") {
        local i 2
        local s `1'_str
        while (`i'<$`s') {
            cap mac drop `1'_`i'
            local i = `i' + 1
        }
        cap mac drop `1'_r
        local i 1
        local c `1'_c
        while (`i' <= $`c') {
            cap mac drop `c'`i'
            cap mac drop `1'_a`i'
            cap mac drop `1'_t`i'
            local i = `i' + 1
        }
        cap mac drop `1'_c
        cap mac drop `1'_f
        cap mac drop `1'_tit
        cap mac drop `1'_str
        cap mac drop S_t
        cap mat drop `1'_V
        cap mat drop `1'_F
        cap mat drop `1'_M
        mac shift
    }
end