Some intendation

src/elpa2/elpa2_bandred_template.F90

@@ -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