Commit c20ab6b3 authored by Pavel Kus's avatar Pavel Kus Committed by Andreas Marek
Browse files

removed piece of code same for real and complex

parent 1de3ba91
...@@ -1323,12 +1323,8 @@ ...@@ -1323,12 +1323,8 @@
call MPI_Wait(bottom_recv_request(i), MPI_STATUS_IGNORE, mpierr) call MPI_Wait(bottom_recv_request(i), MPI_STATUS_IGNORE, mpierr)
if (wantDebug) call obj%timer%stop("mpi_communication") if (wantDebug) call obj%timer%stop("mpi_communication")
#endif #endif
#if REALCASE == 1
call obj%timer%start("OpenMP parallel" // PRECISION_SUFFIX) call obj%timer%start("OpenMP parallel" // PRECISION_SUFFIX)
!$omp parallel do private(my_thread, n_off, b_len, b_off), schedule(static, 1) !$omp parallel do private(my_thread, n_off, b_len, b_off), schedule(static, 1)
do my_thread = 1, max_threads do my_thread = 1, max_threads
n_off = current_local_n+a_off n_off = current_local_n+a_off
...@@ -1339,23 +1335,6 @@ ...@@ -1339,23 +1335,6 @@
enddo enddo
!$omp end parallel do !$omp end parallel do
call obj%timer%stop("OpenMP parallel" // PRECISION_SUFFIX) call obj%timer%stop("OpenMP parallel" // PRECISION_SUFFIX)
#endif
#if COMPLEXCASE == 1
call obj%timer%start("OpenMP parallel_PRECISION")
!$omp parallel do private(my_thread, n_off, b_len, b_off), schedule(static, 1)
do my_thread = 1, max_threads
n_off = current_local_n+a_off
b_len = csw*nbw
b_off = (my_thread-1)*b_len
aIntern(1:csw,n_off+1:n_off+nbw,i,my_thread) = &
reshape(bottom_border_recv_buffer(b_off+1:b_off+b_len,i), (/ csw, nbw /))
enddo
!$omp end parallel do
call obj%timer%stop("OpenMP parallel_PRECISION")
#endif
#else /* WITH_OPENMP */ #else /* WITH_OPENMP */
#ifdef WITH_MPI #ifdef WITH_MPI
......
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