Commit 3a63d86a authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove error from unify of real/complex trans_ev_tridi_to_band

parent 55d014a1
......@@ -363,7 +363,13 @@
#endif
#endif /* COMPLEXCASE */
#if REALCASE == 1
last_stripe_width = l_nev - (stripe_count-1)*stripe_width
#endif
#if COMPLEXCASE == 1
! only needed in no OMP case check thsis
! last_stripe_width = l_nev - (stripe_count-1)*stripe_width
#endif
endif ! useGPU
#else /* WITH_OPENMP */
......@@ -744,6 +750,11 @@
row_group(:, row_group_size) = q(src_offset, 1:l_nev)
#endif
#else /* WITH_OPENMP */
#if COMPLEXCASE == 1
call unpack_and_prepare_row_group_complex_gpu_PRECISION(i - limits(ip),.false.)
row_group(:, row_group_size) = q(src_offset, 1:l_nev)
#endif
#endif /* not OpenMP */
else
row(:) = q(src_offset, 1:l_nev)
......@@ -1473,6 +1484,21 @@
call timer%stop("OpenMP parallel" // PRECISION_SUFFIX)
#endif
#if COMPLEXCASE == 1
call 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 timer%stop("OpenMP parallel_PRECISION")
#endif
#else /* WITH_OPENMP */
#ifdef WITH_MPI
......@@ -1549,7 +1575,7 @@
MPI_REAL_PRECISION, &
#endif
#if COMPLEXCASE == 1
MPI_COMPLEX_EXPLICIT_PRECISION, &
MPI_COMPLEX_EXPLICIT_PRECISION, &
#endif
my_prow+1, bottom_recv_tag, mpi_comm_rows, bottom_recv_request(i), mpierr)
call timer%stop("mpi_communication")
......@@ -1711,9 +1737,9 @@
#endif /* WITH_MPI */
#if REALCASE == 1
!#if REALCASE == 1
endif ! this endif is not here in complex -case is for bottom_msg_length
#endif
!#endif
#else /* WITH_OPENMP */
......@@ -1919,8 +1945,10 @@
#endif /* WITH_OPENMP */
#ifndef WITH_OPENMP
#if COMPLEXCASE == 1
endif
#endif
#endif
! until here unify
!compute
......
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