Status Transpose SMatrix( Tsmatrix MO, TSMatrix &t fTmu=Mnu; T nu=M. mu; T tu=M tu if(T tut for(col=1; c oK<=Mnu; col+ for(p=O; P<=M tu, p++) if(M data[ j==col)t Tdata[ql i=M.datalp]j; Tdata gl j=M data[p]. 1; T data qle=Mdatap e, q++, return OKStatus TransposeSMatrix( TSMatrix M0,TSMatrix &T) {T.mu=M.nu; T.nu=M.mu; T.tu=M.tu; if(T.tu){ q=1; for(col=1;col<=M.nu;col++) for(p=0;p<=M.tu;p++) if(M.data[p].j==col){ T.data[q].i=M.data[p].j; T.data[q].j=M.data[p].i; T.data[q].e=M.data[p].e; q++; } } return OK; }