int
dprint_gsmv_comm(FILE *fp, int_t m_loc, pdgsmv_comm_t *gsmv_comm,
gridinfo_t *grid)
{
int_t procs = grid->nprow*grid->npcol;
fprintf(fp, "TotalIndSend " IFMT "\tTotalValSend " IFMT "\n", gsmv_comm->TotalIndSend,
gsmv_comm->TotalValSend);
file_PrintInt10(fp, "extern_start", m_loc, gsmv_comm->extern_start);
file_PrintInt10(fp, "ind_tosend", gsmv_comm->TotalIndSend, gsmv_comm->ind_tosend);
file_PrintInt10(fp, "ind_torecv", gsmv_comm->TotalValSend, gsmv_comm->ind_torecv);
file_PrintInt10(fp, "ptr_ind_tosend", procs+1, gsmv_comm->ptr_ind_tosend);
file_PrintInt10(fp, "ptr_ind_torecv", procs+1, gsmv_comm->ptr_ind_torecv);
file_PrintInt32(fp, "SendCounts", procs, gsmv_comm->SendCounts);
file_PrintInt32(fp, "RecvCounts", procs, gsmv_comm->RecvCounts);
return 0;
}
int file_zPrint_CompRowLoc_Matrix_dist(FILE *fp, SuperMatrix *A)
{
NRformat_loc *Astore;
int_t i, nnz_loc, m_loc;
doublecomplex *dp;
fprintf(fp, "\n==== CompRowLoc matrix: ");
fprintf(fp, "Stype %d, Dtype %d, Mtype %d\n", A->Stype,A->Dtype,A->Mtype);
Astore = (NRformat_loc *) A->Store;
fprintf(fp, "nrow %d, ncol %d\n", A->nrow, A->ncol);
nnz_loc = Astore->nnz_loc; m_loc = Astore->m_loc;
fprintf(fp, "nnz_loc %d, m_loc %d, fst_row %d\n", nnz_loc, m_loc,
Astore->fst_row);
file_PrintInt10(fp, "rowptr", m_loc+1, Astore->rowptr);
file_PrintInt10(fp, "colind", nnz_loc, Astore->colind);
if ( (dp = (doublecomplex *) Astore->nzval) != NULL )
file_PrintDoublecomplex(fp, "nzval", nnz_loc, dp);
fprintf(fp, "==== end CompRowLoc matrix\n");
}
