Commit aca10b77 authored by Andreas Marek's avatar Andreas Marek

Some intendation

parent 3d56cd57
......@@ -52,13 +52,13 @@
#include "../general/sanity.F90"
subroutine herm_matrix_allreduce_&
&PRECISION &
subroutine herm_matrix_allreduce_&
&PRECISION &
(obj, n, a, lda, ldb, comm)
!-------------------------------------------------------------------------------
! herm_matrix_allreduce: Does an mpi_allreduce for a hermitian matrix A.
! On entry, only the upper half of A needs to be set
! On exit, the complete matrix is set
!-------------------------------------------------------------------------------
! herm_matrix_allreduce: Does an mpi_allreduce for a hermitian matrix A.
! On entry, only the upper half of A needs to be set
! On exit, the complete matrix is set
use elpa_abstract_impl
use precision
implicit none
......@@ -90,7 +90,6 @@
nc = nc+i
enddo
#else /* WITH_MPI */
! h2(1:nc) = h1(1:nc)
......@@ -101,7 +100,6 @@
nc = nc+i
enddo
#endif /* WITH_MPI */
! nc = 0
......@@ -113,7 +111,7 @@
call obj%timer%stop("herm_matrix_allreduce" // PRECISION_SUFFIX)
end subroutine herm_matrix_allreduce_&
&PRECISION
end subroutine herm_matrix_allreduce_&
&PRECISION
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