87 plasma_error(
"PLASMA_zgesv_incpiv",
"PLASMA not initialized");
92 plasma_error(
"PLASMA_zgesv_incpiv",
"illegal value of N");
96 plasma_error(
"PLASMA_zgesv_incpiv",
"illegal value of NRHS");
99 if (LDA <
max(1, N)) {
100 plasma_error(
"PLASMA_zgesv_incpiv",
"illegal value of LDA");
103 if (LDB <
max(1, N)) {
104 plasma_error(
"PLASMA_zgesv_incpiv",
"illegal value of LDB");
108 if (
min(N, NRHS) == 0)
114 plasma_error(
"PLASMA_zgesv_incpiv",
"plasma_tune() failed");
122 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
129 NT*IB, NT*NB, 0, 0, NT*IB, NT*NB);
133 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N ,
plasma_desc_mat_free(&(descA)) );
134 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
155 status = sequence->
status;
211 if (plasma == NULL) {
218 status = sequence->
status;
261 if (plasma == NULL) {
265 if (sequence == NULL) {
269 if (request == NULL) {
281 plasma_error(
"PLASMA_zgesv_incpiv_Tile",
"invalid first descriptor");
285 plasma_error(
"PLASMA_zgesv_incpiv_Tile",
"invalid second descriptor");
289 plasma_error(
"PLASMA_zgesv_incpiv_Tile",
"invalid third descriptor");
293 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
294 plasma_error(
"PLASMA_zgesv_incpiv_Tile",
"only square tiles supported");