94 plasma_error(
"PLASMA_cgetrs_incpiv",
"only PlasmaNoTrans supported");
98 plasma_error(
"PLASMA_cgetrs_incpiv",
"illegal value of N");
102 plasma_error(
"PLASMA_cgetrs_incpiv",
"illegal value of NRHS");
105 if (LDA <
max(1, N)) {
106 plasma_error(
"PLASMA_cgetrs_incpiv",
"illegal value of LDA");
109 if (LDB <
max(1, N)) {
110 plasma_error(
"PLASMA_cgetrs_incpiv",
"illegal value of LDB");
114 if (
min(N, NRHS) == 0)
120 plasma_error(
"PLASMA_cgetrs_incpiv",
"plasma_tune() failed");
128 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
135 NT*IB, NT*NB, 0, 0, NT*IB, NT*NB);
139 plasma_cooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N ,
plasma_desc_mat_free(&(descA)) );
140 plasma_cooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
160 status = sequence->
status;
214 if (plasma == NULL) {
221 status = sequence->
status;
264 if (plasma == NULL) {
268 if (sequence == NULL) {
272 if (request == NULL) {
284 plasma_error(
"PLASMA_cgetrs_incpiv_Tile",
"invalid first descriptor");
288 plasma_error(
"PLASMA_cgetrs_incpiv_Tile",
"invalid second descriptor");
292 plasma_error(
"PLASMA_cgetrs_incpiv_Tile",
"invalid third descriptor");
296 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
297 plasma_error(
"PLASMA_cgetrs_incpiv_Tile",
"only square tiles supported");