trying to fix spblas example

Author: jfdev001

CMakeLists.txt

@@ -22,6 +22,7 @@ if(${ENABLE_SPBLAS})
         message(FATAL_ERROR "MKLROOT environment variable is not set.")
     endif()
     set(MKLLIB ${MKLROOT}/lib CACHE PATH "Path to Intel MKL Libraries")
+    set(MKLINCLUDE ${MKLROOT}/include CACHE PATH "Path to Intel MKL include files")
 endif()
 
 set(CMAKE_MODULE_PATH ${CMAKE_MODULE_PATH} "${PROJECT_SOURCE_DIR}/cmake")

README.md

@@ -16,7 +16,7 @@ Then, you can configure, build, and run tests for the project.
 ```
 
 Alternatively, if on a system where you need to specify a different MKL library
-you can do this with the flags `-DMKLLIB` during configuration. The below bash 
+you can do this with the flags during configuration. The below bash 
 script does the necessary configuration, as an example, for DKRZ's Levante.
 
 ```shell

test/CMakeLists.txt

@@ -21,8 +21,13 @@ if(${ENABLE_SPBLAS})
         test_spblas.f90
     )
 
+    # Add include directories
+    target_include_directories(
+        test_spblas 
+        PRIVATE ${MKLINCLUDE}
+    )
+
     # Specify the MKL libraries for linking
-    # NOTE: No target_include_directories MKL INCLUDE... even tho link line advisor suggests it
     target_link_libraries(
         test_spblas
         PRIVATE

test/test_spblas.f90

@@ -49,10 +49,12 @@ PROGRAM TEST_SPBLAS
     !     |  0   0 50 60 70  0 |
     !     |  0   0  0  0  0 80 |
 
-    ! create csr
+    x = [1, 1, 1, 1, 1, 1] ! for spmv
+    values = [10, 20, 30, 40, 50, 60, 70, 80] ! for matrix values 
+
+    !! create csr
     ia = [1, 3, 5, 8, 9]
     ja = [1, 2, 2, 4, 3, 4, 5, 6]
-    values = [10, 20, 30, 40, 50, 60, 70, 80]
 
     stat = mkl_sparse_s_create_csr( &
            a, SPARSE_INDEX_BASE_ONE, rows, cols, ia(1:4), ia(2:5), ja, values)
@@ -61,22 +63,24 @@ PROGRAM TEST_SPBLAS
     descr%TYPE = SPARSE_MATRIX_TYPE_GENERAL
 
     ! create coo
-    row_indx = [1, 1, 2, 2, 3, 3, 3, 4]
-    col_indx = [1, 2, 2, 4, 3, 4, 5, 6]
-    stat = mkl_sparse_s_create_coo( &
-           A_coo, SPARSE_INDEX_BASE_ONE, rows, cols, nnz, row_indx, col_indx, &
-           values)
+    !row_indx = [1, 1, 2, 2, 3, 3, 3, 4]
+    !col_indx = [1, 2, 2, 4, 3, 4, 5, 6]
+    !stat = mkl_sparse_s_create_coo( &
+           !A_coo, SPARSE_INDEX_BASE_ONE, rows, cols, nnz, row_indx, col_indx, &
+           !values)
+    !PRINT *, "stat create = ", stat
+    !descr%TYPE = SPARSE_MATRIX_TYPE_GENERAL
+    !PRINT *, "descr%TYPE", descr%TYPE
 
     ! spmv csr
-    x = [1, 1, 1, 1, 1, 1]
     stat = mkl_sparse_s_mv(SPARSE_OPERATION_NON_TRANSPOSE, 1.0, a, descr, x, 0.0, y)
     PRINT *, "stat mv = ", stat
     PRINT *, "result csr  = ", y
     PRINT *, "expected = ", [30., 70., 180., 80.]
 
-    ! spmv coo
-    stat = mkl_sparse_s_mv( &
-           SPARSE_OPERATION_NON_TRANSPOSE, 1.0, A_coo, descr, x, 0.0, y_coo)
-    PRINT *, "result coo  = ", y_coo
+    !! spmv coo
+    !stat = mkl_sparse_s_mv( &
+           !SPARSE_OPERATION_NON_TRANSPOSE, 1.0, A_coo, descr, x, 0.0, y_coo)
+    !PRINT *, "result coo  = ", y_coo
 
 END PROGRAM TEST_SPBLAS