Commit 63e9e612 authored by Andreas Marek's avatar Andreas Marek

Some intendation

parent 1daaa172
......@@ -202,7 +202,7 @@
logical :: useGPU_reduction_lower_block_to_tridiagonal
integer(kind=ik), intent(in) :: max_threads
logical :: do_memcpy
integer(kind=ik) :: i_blk,blk_off
integer(kind=ik) :: i_blk,blk_off, blk_end
call obj%get("is_skewsymmetric",skewsymmetric,error)
if (error .ne. ELPA_OK) then
......@@ -366,6 +366,7 @@
endif ! useQr
#endif /* REALCASE */
blk_end = (na-1)/nbw
if (useGPU) then
successCUDA = cuda_host_register(int(loc(a_mat),kind=c_intptr_t), &
......@@ -383,6 +384,7 @@
check_alloc_cuda("bandred: tmat_dev", successCUDA)
istep = (na-1)/nbw
blk_end = (na-1)/nbw
n_cols = min(na,(istep+1)*nbw)-istep*nbw
l_cols = local_index(istep*nbw, my_pcol, np_cols, nblk, -1)
l_rows = local_index(istep*nbw, my_prow, np_rows, nblk, -1)
......@@ -428,7 +430,7 @@
endif ! useGPU
do istep = (na-1)/nbw, 1, -1
do istep = blk_end, 1, -1
n_cols = MIN(na,(istep+1)*nbw) - istep*nbw ! Number of columns in current step
......
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