8 #define _LAMCH LAPACKE_dlamch_work
10 #define _NAME "PLASMA_dgetrf_rectil"
12 #define _FMULS FMULS_GETRF(M, NRHS)
13 #define _FADDS FADDS_GETRF(M, NRHS)
15 #include "../control/common.h"
51 LAPACKE_dgetrf_work(LAPACK_COL_MAJOR, M, NRHS, A2, LDA, ipiv2 );
64 *descA, descA->mat, descA->mb*descA->nb, ipiv,
77 double *work = (
double *)malloc(
max(M, NRHS)*
sizeof(double));
83 if( ipiv[i] != ipiv2[i] ) {
84 fprintf(stderr,
"\nPLASMA (ipiv[%ld] = %d, A[%ld] = %e) / LAPACK (ipiv[%ld] = %d, A[%ld] = [%e])\n",
85 i, ipiv[i], i, (
A[ i * LDA + i ]),
86 i, ipiv2[i], i, (A2[ i * LDA + i ]));
92 M, NRHS,
A, LDA, work);
94 M, NRHS, A2, LDA, work);
100 M, NRHS, A2, LDA, work);