17072be85SIrina Sokolova #define MKL_Complex16 PetscScalar 27072be85SIrina Sokolova #define MKL_Complex8 PetscScalar 39371c9d4SSatish Balay #define PetscCallMKL(stat) \ 4*d71ae5a4SJacob Faibussowitsch do { \ 5*d71ae5a4SJacob Faibussowitsch PetscCheck(stat == SPARSE_STATUS_SUCCESS, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in MKL sparse matrix call"); \ 6*d71ae5a4SJacob Faibussowitsch } while (0) 77072be85SIrina Sokolova #if !defined(PETSC_USE_COMPLEX) 87072be85SIrina Sokolova #if defined(PETSC_USE_REAL_SINGLE) 97072be85SIrina Sokolova #define mkl_sparse_x_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) mkl_sparse_s_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) 107072be85SIrina Sokolova #elif defined(PETSC_USE_REAL_DOUBLE) 117072be85SIrina Sokolova #define mkl_sparse_x_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) mkl_sparse_d_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) 127072be85SIrina Sokolova #endif 137072be85SIrina Sokolova #else 147072be85SIrina Sokolova #if defined(PETSC_USE_REAL_SINGLE) 157072be85SIrina Sokolova #define mkl_sparse_x_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) mkl_sparse_c_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) 167072be85SIrina Sokolova #elif defined(PETSC_USE_REAL_DOUBLE) 177072be85SIrina Sokolova #define mkl_sparse_x_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) mkl_sparse_z_create_bsr(A, indexing, block_layout, rows, cols, block_size, rows_start, rows_end, col_indx, values) 187072be85SIrina Sokolova #endif 197072be85SIrina Sokolova #endif 207072be85SIrina Sokolova 217072be85SIrina Sokolova #if !defined(PETSC_USE_COMPLEX) 227072be85SIrina Sokolova #if defined(PETSC_USE_REAL_SINGLE) 237072be85SIrina Sokolova #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_s_mv(operation, alpha, A, descr, x, beta, y) 247072be85SIrina Sokolova #elif defined(PETSC_USE_REAL_DOUBLE) 257072be85SIrina Sokolova #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_d_mv(operation, alpha, A, descr, x, beta, y) 267072be85SIrina Sokolova #endif 277072be85SIrina Sokolova #else 287072be85SIrina Sokolova #if defined(PETSC_USE_REAL_SINGLE) 297072be85SIrina Sokolova #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_c_mv(operation, alpha, A, descr, x, beta, y) 307072be85SIrina Sokolova #elif defined(PETSC_USE_REAL_DOUBLE) 317072be85SIrina Sokolova #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_z_mv(operation, alpha, A, descr, x, beta, y) 327072be85SIrina Sokolova #endif 337072be85SIrina Sokolova #endif 34