static int check_solution(int m, int n, int mb, int nb, PLASMA_Complex32_t *A, PLASMA_Complex32_t *B, int (*mapA)(int, int, int, int, int, int)) { int i, j; for( j=0; j<n; j++) { for (i=0; i<m; i++) { if (A[ mapA(m, n, mb, nb, i, j) ] != B[ mapA(n, m, mb, nb, j, i) ] ) { return -1; } } } return 0; }
int c_check_conversion(int m, int n, int mba, int nba, int mbb, int nbb, PLASMA_Complex32_t *A, PLASMA_Complex32_t *B, int (*mapA)(int, int, int, int, int, int), int (*mapB)(int, int, int, int, int, int)) { int i, j; for( j=0; j<n; j++) { for (i=0; i<m; i++) { if (A[ mapA(m, n, mba, nba, i, j) ] != B[ mapB(m, n, mbb, nbb, i, j) ] ) { return -1; } } } return 0; }