cja12

function mtensor_decomp
%
% function to decompose a moment-tensor
% 
% INPUT:
%        Moment tensor, M, in Aki & Richards format
%
%            Mnn Mne Mnz
%            Men Mee Mez
%            Mzn Mze Mzz