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

Correct line truncation erros in OpenMP case

parent 1b8ed210
...@@ -429,7 +429,8 @@ module compute_hh_trafo_real ...@@ -429,7 +429,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_double(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_double(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_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jj==1) call single_hh_trafo_real_cpu_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
...@@ -471,7 +472,8 @@ module compute_hh_trafo_real ...@@ -471,7 +472,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_double(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_double(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_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jj==1) call single_hh_trafo_real_cpu_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
...@@ -527,7 +529,8 @@ module compute_hh_trafo_real ...@@ -527,7 +529,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_double(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_double(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_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jjj==1) call single_hh_trafo_real_cpu_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
...@@ -584,7 +587,8 @@ module compute_hh_trafo_real ...@@ -584,7 +587,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_double(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_double(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_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), & if (jjj==1) call single_hh_trafo_real_cpu_double(a(1:stripe_width,1+off+a_off:1+off+a_off+nbw-1,istripe), &
......
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