Some intendation

src/elpa2/elpa2_trans_ev_band_to_full_template.F90

@@ -51,7 +51,7 @@
 
 #include "../general/sanity.F90"
 
-    subroutine trans_ev_band_to_full_&
+subroutine trans_ev_band_to_full_&
     &MATH_DATATYPE&
     &_&
     &PRECISION &
@@ -64,39 +64,39 @@
      )
 #endif
 
-    !-------------------------------------------------------------------------------
-    !  trans_ev_band_to_full_real/complex:
-    !  Transforms the eigenvectors of a band matrix back to the eigenvectors of the original matrix
-    !
-    !  Parameters
-    !
-    !  na          Order of matrix a_mat, number of rows of matrix q_mat
-    !
-    !  nqc         Number of columns of matrix q_mat
-    !
-    !  nblk        blocksize of cyclic distribution, must be the same in both directions!
-    !
-    !  nbw         semi bandwith
-    !
-    !  a_mat(lda,matrixCols)    Matrix containing the Householder vectors (i.e. matrix a_mat after bandred_real/complex)
-    !              Distribution is like in Scalapack.
-    !
-    !  lda         Leading dimension of a_mat
-    !  matrixCols  local columns of matrix a_mat and q_mat
-    !
-    !  tmat(nbw,nbw,numBlocks) Factors returned by bandred_real/complex
-    !
-    !  q_mat           On input: Eigenvectors of band matrix
-    !              On output: Transformed eigenvectors
-    !              Distribution is like in Scalapack.
-    !
-    !  ldq         Leading dimension of q_mat
-    !
-    !  mpi_comm_rows
-    !  mpi_comm_cols
-    !              MPI-Communicators for rows/columns
-    !
-    !-------------------------------------------------------------------------------
+!-------------------------------------------------------------------------------
+!  trans_ev_band_to_full_real/complex:
+!  Transforms the eigenvectors of a band matrix back to the eigenvectors of the original matrix
+!
+!  Parameters
+!
+!  na          Order of matrix a_mat, number of rows of matrix q_mat
+!
+!  nqc         Number of columns of matrix q_mat
+!
+!  nblk        blocksize of cyclic distribution, must be the same in both directions!
+!
+!  nbw         semi bandwith
+!
+!  a_mat(lda,matrixCols)    Matrix containing the Householder vectors (i.e. matrix a_mat after bandred_real/complex)
+!              Distribution is like in Scalapack.
+!
+!  lda         Leading dimension of a_mat
+!  matrixCols  local columns of matrix a_mat and q_mat
+!
+!  tmat(nbw,nbw,numBlocks) Factors returned by bandred_real/complex
+!
+!  q_mat           On input: Eigenvectors of band matrix
+!              On output: Transformed eigenvectors
+!              Distribution is like in Scalapack.
+!
+!  ldq         Leading dimension of q_mat
+!
+!  mpi_comm_rows
+!  mpi_comm_cols
+!              MPI-Communicators for rows/columns
+!
+!-------------------------------------------------------------------------------
   use precision
   use cuda_functions
   use iso_c_binding
@@ -149,7 +149,7 @@
                                                                &PRECISION&
                                                                &_&
                                                                &MATH_DATATYPE
-      integer(kind=ik)                       :: blocking_factor, error
+  integer(kind=ik)                       :: blocking_factor, error, blk_end
 
   if(useGPU) then
     gpuString = "_gpu"
@@ -273,7 +273,8 @@
   endif
   l_cols = local_index(nqc, my_pcol, np_cols, nblk, -1) ! Local columns of q_mat
 
-      do istep=1,((na-1)/nbw-1)/blocking_factor + 1
+  blk_end = ((na-1)/nbw-1)/blocking_factor + 1
+  do istep=1, blk_end
 
     ! This the call when using na >= ((blocking_factor+1)*nbw)
     ! n_cols = MIN(na,istep*cwy_blocking+nbw) - (istep-1)*cwy_blocking - nbw
@@ -542,8 +543,8 @@
   &PRECISION_SUFFIX //&
   gpuString)
 
-    end subroutine trans_ev_band_to_full_&
-    &MATH_DATATYPE&
+end subroutine trans_ev_band_to_full_&
+&MATH_DATATYPE&
     &_&
     &PRECISION