A=[((Subscript[Thr, 1])ααααα0…00⋱αααα0…000(Subscript[Thr, m])ααα0…00⋱0(Subscript[(OverTilde[γ]), 1])αα0…00…00⋱α0…00…000(Subscript[(OverTilde[γ]), l])0000…00…0(Subscript[γ, m+l+1])000…00…00⋱00…00…000(Subscript[γ, r]))]