Use MMBSZ=8, prepare to check shmem size

cuda/cuda_util.c

@@ -375,6 +375,13 @@ int getGPUMaxRegistersPerBlock()
   return(count);
 }
 
+int getGPUSharedMemPerBlock()
+{ int count=0;
+  if (prop!=NULL) 
+    count = prop->sharedMemPerBlock;
+  return(count);
+}
+
 void cpyGPUNameString(char *cstring)
 {
   *cstring='\0';

cuda/cuda_util.h

@@ -65,6 +65,7 @@ int getGPUWarpSize();
 int getGPUMaxThreadsPerBlock();
 int getGPUMaxThreadsPerMP();
 int getGPUMaxRegistersPerBlock();
+int getGPUSharedMemPerBlock();
 void cpyGPUNameString(char *cstring);
 
 

cuda/psb_cuda_env_mod.F90

@@ -165,6 +165,11 @@ module psb_cuda_env_mod
       use iso_c_binding
       integer(c_int) :: res
     end function psb_C_get_MaxRegistersPerBlock
+    function psb_C_get_SharedMemPerBlock() &
+         & result(res) bind(c,name='getGPUSharedMemsPerBlock')
+      use iso_c_binding
+      integer(c_int) :: res
+    end function psb_C_get_SharedMemPerBlock
   end interface
   interface 
     subroutine psb_C_cpy_NameString(cstring) &

cuda/spgpu/kernels/hell_dspmv.cu

@@ -21,6 +21,7 @@ extern "C"
 {
 #include "core.h"
 #include "hell.h"
+  int  getGPUSharedMemPerBlock();
 }
 
 #include "debug.h"
@@ -34,7 +35,7 @@ extern "C"
 
 #if defined(NEW_MM)
 
-#define MMBSZ   12
+#define MMBSZ 8
 
 #undef GEN_SPGPU_HELL_NAME
 #define GEN_SPGPU_HELL_NAME(x) CONCAT(CONCAT(spgpu,x),hellspmm)
@@ -53,7 +54,7 @@ CONCAT(GEN_SPGPU_HELL_NAME(TYPE_SYMBOL), _krn)
   VALUE_TYPE *pz,*px,*py;
   VALUE_TYPE zProd = CONCAT(zero_,VALUE_TYPE)();
   VALUE_TYPE yVal; 
-  __shared__ VALUE_TYPE temp[THREAD_BLOCK][MMBSZ];
+  __shared__ VALUE_TYPE temp[MMBSZ][THREAD_BLOCK];
         
   int i = threadIdx.x + blockIdx.x * (THREAD_BLOCK);
     
@@ -74,7 +75,7 @@ CONCAT(GEN_SPGPU_HELL_NAME(TYPE_SYMBOL), _krn)
     
     int rowSize = rS[i];
     for (int k=0; k<count; k++) {
-      temp[threadIdx.x][k] = CONCAT(zero_,VALUE_TYPE)();
+      temp[k][threadIdx.x] = CONCAT(zero_,VALUE_TYPE)();
     }      
     
     for (int j = 0; j < rowSize; j++) {
@@ -91,8 +92,8 @@ CONCAT(GEN_SPGPU_HELL_NAME(TYPE_SYMBOL), _krn)
       px = (VALUE_TYPE *) x;
       for (int k=0; k<count; k++) {
 	fetch = px[pointer]; 
-	temp[threadIdx.x][k] =
-	  CONCAT(VALUE_TYPE, _fma)(value, fetch, temp[threadIdx.x][k]);
+	temp[k][threadIdx.x] =
+	  CONCAT(VALUE_TYPE, _fma)(value, fetch, temp[k][threadIdx.x]);
 	px = px + xPitch;
       }
     }
@@ -103,13 +104,13 @@ CONCAT(GEN_SPGPU_HELL_NAME(TYPE_SYMBOL), _krn)
     if (CONCAT(VALUE_TYPE, _isNotZero(beta)))
       for (int k=0; k<count; k++) {
 	yVal = py[i];
-	pz[i] = CONCAT(VALUE_TYPE, _fma)(beta, yVal, CONCAT(VALUE_TYPE, _mul) (alpha,  temp[threadIdx.x][k]));
+	pz[i] = CONCAT(VALUE_TYPE, _fma)(beta, yVal, CONCAT(VALUE_TYPE, _mul) (alpha,  temp[k][threadIdx.x]));
 	py += yPitch;
 	pz += zPitch;
       }
     else
       for (int k=0; k<count; k++) {
-	pz[i] = CONCAT(VALUE_TYPE, _mul) (alpha,  temp[threadIdx.x][k]);
+	pz[i] = CONCAT(VALUE_TYPE, _mul) (alpha,  temp[k][threadIdx.x]);
 	pz += zPitch;
       }
   }
@@ -127,7 +128,8 @@ CONCAT(_,GEN_SPGPU_HELL_NAME_VANILLA(TYPE_SYMBOL))
   dim3 grid ((rows + THREAD_BLOCK - 1) / THREAD_BLOCK);
   // Should we generalize the code to 1/2/4/8 threads per row?
   // And maybe adjust THREAD_BLOCK size? 
-  int shrMemSize;
+  int shrMemSize,maxShmemSz;
+  maxShmemSz=getGPUSharedMemPerBlock();
   shrMemSize=MMBSZ*THREAD_BLOCK*sizeof(VALUE_TYPE);
   CONCAT(GEN_SPGPU_HELL_NAME(TYPE_SYMBOL), _krn) 
     <<< grid, block, shrMemSize, handle->currentStream >>> (count, z, zPitch,y, yPitch,
@@ -229,3 +231,4 @@ GEN_SPGPU_HELL_NAME(TYPE_SYMBOL)
 }
 
 #endif
+