HP MLIB User's Guide Vol. 2 7th Ed.

764 HP MLIB LAPACK User’s Guide
Sample programs
if ( it = (SOLVEstruct.gsmv_comm)->ind_tosend ) free(it);
if ( it = (SOLVEstruct.gsmv_comm)->ind_torecv ) free(it);
free((SOLVEstruct.gsmv_comm)->ptr_ind_tosend);
free((SOLVEstruct.gsmv_comm)->SendCounts);
if ( dt = (SOLVEstruct.gsmv_comm)->val_tosend ) free(dt);
if ( dt = (SOLVEstruct.gsmv_comm)->val_torecv ) free(dt);
free(SOLVEstruct.gsmv_comm);
options.RefineInitialized = NO;
}
free(SOLVEstruct.row_to_proc);
free(SOLVEstruct.inv_perm_c);
free(SOLVEstruct.diag_procs);
free(SOLVEstruct.diag_len);
options.SolveInitialized = NO;
}
free(b_global);
free(b);
free(A.Store);
free(berr);
/* ------------------------------------------------------------
RELEASE THE SUPERLU PROCESS GRID.
------------------------------------------------------------*/
out:
superlu_gridexit(&grid);
/* ------------------------------------------------------------
TERMINATES THE MPI EXECUTION ENVIRONMENT.
------------------------------------------------------------*/
MPI_Finalize();
}