Commit e62678d3 authored by Andreas Marek's avatar Andreas Marek
Browse files

Error in complex single precision

The thread_width was not set correctly
parent 96363a5e
...@@ -3156,7 +3156,7 @@ ...@@ -3156,7 +3156,7 @@
if (useGPU) then if (useGPU) then
stripe_width = 256 stripe_width = 256
else else
#ifdef DOUBLE_PRECISION_REAL #ifdef DOUBLE_PRECISION_COMPLEX
stripe_width = 48 ! Must be a multiple of 2 stripe_width = 48 ! Must be a multiple of 2
#else #else
stripe_width = 48 ! Must be a multiple of 4 stripe_width = 48 ! Must be a multiple of 4
...@@ -3190,7 +3190,7 @@ ...@@ -3190,7 +3190,7 @@
#endif /* WITH_OPENMP */ #endif /* WITH_OPENMP */
if (.not.(useGPU)) then if (.not.(useGPU)) then
#ifdef DOUBLE_PRECISION_REAL #ifdef DOUBLE_PRECISION_COMPLEX
stripe_width = ((stripe_width+1)/2)*2 ! Must be a multiple of 2 because of AVX/SSE memory alignment of 32 bytes stripe_width = ((stripe_width+1)/2)*2 ! Must be a multiple of 2 because of AVX/SSE memory alignment of 32 bytes
! (2 * sizeof(double complex) == 32) ! (2 * sizeof(double complex) == 32)
#else #else
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment