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

some clean-up

parent dbc8c1d1
...@@ -547,7 +547,7 @@ subroutine trans_ev_band_to_full_& ...@@ -547,7 +547,7 @@ subroutine trans_ev_band_to_full_&
#endif #endif
!call obj%timer%stop("mkl_offload") !call obj%timer%stop("mkl_offload")
tmat_complete(1:t_rows,t_rows+1:t_rows+t_cols) = t_tmp2(1:t_rows,1:t_cols) tmat_complete(1:t_rows,t_rows+1:t_rows+t_cols) = t_tmp2(1:t_rows,1:t_cols)
else else ! useIntelGPU
#ifdef WITH_CUDA_AWARE_MPI #ifdef WITH_CUDA_AWARE_MPI
successGPU = gpu_memcpy(tmat_dev, int(loc(tmat_complete),kind=c_intptr_t), & successGPU = gpu_memcpy(tmat_dev, int(loc(tmat_complete),kind=c_intptr_t), &
cwy_blocking*cwy_blocking*size_of_datatype, gpuMemcpyHostToDevice) cwy_blocking*cwy_blocking*size_of_datatype, gpuMemcpyHostToDevice)
...@@ -592,7 +592,7 @@ subroutine trans_ev_band_to_full_& ...@@ -592,7 +592,7 @@ subroutine trans_ev_band_to_full_&
tmat_complete(1:t_rows,t_rows+1:t_rows+t_cols) = t_tmp2(1:t_rows,1:t_cols) tmat_complete(1:t_rows,t_rows+1:t_rows+t_cols) = t_tmp2(1:t_rows,1:t_cols)
#endif /* WITH_CUDA_AWARE_MPI */ #endif /* WITH_CUDA_AWARE_MPI */
endif endif ! useIntelGPU
else ! useGPU else ! useGPU
call obj%timer%start("blas") call obj%timer%start("blas")
...@@ -688,7 +688,7 @@ subroutine trans_ev_band_to_full_& ...@@ -688,7 +688,7 @@ subroutine trans_ev_band_to_full_&
! Q = Q - V * T**T * V**T * Q ! Q = Q - V * T**T * V**T * Q
if (l_rows>0) then if (l_rows > 0) then
if (useGPU) then if (useGPU) then
if (useIntelGPU) then if (useIntelGPU) then
!call obj%timer%start("mkl_offload") !call obj%timer%start("mkl_offload")
...@@ -845,7 +845,7 @@ subroutine trans_ev_band_to_full_& ...@@ -845,7 +845,7 @@ subroutine trans_ev_band_to_full_&
endif endif
#else /* WITH_MPI */ #else /* WITH_MPI */
if (l_rows>0) then if (l_rows > 0) then
if (useGPU) then if (useGPU) then
if (useIntelGPU) then if (useIntelGPU) then
#if 0 #if 0
......
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