17072be85SIrina Sokolova #define MKL_Complex16 PetscScalar 27072be85SIrina Sokolova #define MKL_Complex8 PetscScalar 3*9371c9d4SSatish Balay #define PetscCallMKL(stat) \ 4*9371c9d4SSatish Balay do { \ 5*9371c9d4SSatish Balay if (stat != SPARSE_STATUS_SUCCESS) { PetscFunctionReturn(PETSC_ERR_LIB); } \ 6*9371c9d4SSatish Balay } 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