Unverified Commit a81ffb0a authored by Andreas Marek's avatar Andreas Marek
Browse files

Line truncation error in single-precision OpenMP case

parent 164937e6
...@@ -604,7 +604,7 @@ module compute_hh_trafo_complex ...@@ -604,7 +604,7 @@ module compute_hh_trafo_complex
ttt = mpi_wtime() ttt = mpi_wtime()
do j = ncols, 1, -1 do j = ncols, 1, -1
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
call single_hh_trafo_complex_sse_1hv_double_single(a(1,j+off+a_off,istripe,my_thread), & call single_hh_trafo_complex_sse_1hv_single(a(1,j+off+a_off,istripe,my_thread), &
bcast_buffer(1,j+off),nbw,nl,stripe_width) bcast_buffer(1,j+off),nbw,nl,stripe_width)
#else #else
call single_hh_trafo_complex_sse_1hv_single(a(1,j+off+a_off,istripe), & call single_hh_trafo_complex_sse_1hv_single(a(1,j+off+a_off,istripe), &
...@@ -623,7 +623,7 @@ module compute_hh_trafo_complex ...@@ -623,7 +623,7 @@ module compute_hh_trafo_complex
ttt = mpi_wtime() ttt = mpi_wtime()
do j = ncols, 1, -1 do j = ncols, 1, -1
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
call single_hh_trafo_complex_avx_avx2_1hv_double_single(a(1,j+off+a_off,istripe,my_thread), & call single_hh_trafo_complex_avx_avx2_1hv_single(a(1,j+off+a_off,istripe,my_thread), &
bcast_buffer(1,j+off),nbw,nl,stripe_width) bcast_buffer(1,j+off),nbw,nl,stripe_width)
#else #else
call single_hh_trafo_complex_avx_avx2_1hv_single(a(1,j+off+a_off,istripe), & call single_hh_trafo_complex_avx_avx2_1hv_single(a(1,j+off+a_off,istripe), &
......
...@@ -983,7 +983,8 @@ module compute_hh_trafo_real ...@@ -983,7 +983,8 @@ module compute_hh_trafo_real
#endif #endif
enddo enddo
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
if (jj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe,my_thread), & if (jj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1, &
istripe,my_thread), &
bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width) bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width)
#else #else
if (jj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
...@@ -1027,7 +1028,8 @@ module compute_hh_trafo_real ...@@ -1027,7 +1028,8 @@ module compute_hh_trafo_real
#endif #endif
enddo enddo
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
if (jj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe,my_thread), & if (jj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1, &
istripe,my_thread), &
bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width) bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width)
#else #else
if (jj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
...@@ -1083,7 +1085,8 @@ module compute_hh_trafo_real ...@@ -1083,7 +1085,8 @@ module compute_hh_trafo_real
#endif #endif
enddo enddo
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
if (jjj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe,my_thread), & if (jjj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1, &
istripe,my_thread), &
bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width) bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width)
#else #else
if (jjj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jjj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
...@@ -1144,7 +1147,8 @@ module compute_hh_trafo_real ...@@ -1144,7 +1147,8 @@ module compute_hh_trafo_real
#endif #endif
enddo enddo
#ifdef WITH_OPENMP #ifdef WITH_OPENMP
if (jjj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe,my_thread), & if (jjj==1) call single_hh_trafo_real_cpu_openmp_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1, &
istripe,my_thread), &
bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width) bcast_buffer(1:nbw,off+1), nbw, nl, stripe_width)
#else #else
if (jjj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jjj==1) call single_hh_trafo_real_cpu_single(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
......
Supports Markdown
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