Actual source code: baijmkl.h

  1: #define MKL_Complex16 PetscScalar
  2: #define MKL_Complex8  PetscScalar
  3: #define PetscCallMKL(stat) \
  4:   do { \
  6:   } while (0)
  7: #if !defined(PETSC_USE_COMPLEX)
  8:   #if defined(PETSC_USE_REAL_SINGLE)
  9:     #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)
 10:   #elif defined(PETSC_USE_REAL_DOUBLE)
 11:     #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)
 12:   #endif
 13: #else
 14:   #if defined(PETSC_USE_REAL_SINGLE)
 15:     #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)
 16:   #elif defined(PETSC_USE_REAL_DOUBLE)
 17:     #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)
 18:   #endif
 19: #endif

 21: #if !defined(PETSC_USE_COMPLEX)
 22:   #if defined(PETSC_USE_REAL_SINGLE)
 23:     #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_s_mv(operation, alpha, A, descr, x, beta, y)
 24:   #elif defined(PETSC_USE_REAL_DOUBLE)
 25:     #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_d_mv(operation, alpha, A, descr, x, beta, y)
 26:   #endif
 27: #else
 28:   #if defined(PETSC_USE_REAL_SINGLE)
 29:     #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_c_mv(operation, alpha, A, descr, x, beta, y)
 30:   #elif defined(PETSC_USE_REAL_DOUBLE)
 31:     #define mkl_sparse_x_mv(operation, alpha, A, descr, x, beta, y) mkl_sparse_z_mv(operation, alpha, A, descr, x, beta, y)
 32:   #endif
 33: #endif