Commit a5710519 authored by Andreas Marek's avatar Andreas Marek

Some intendation

parent aca10b77
......@@ -52,14 +52,14 @@
#include "../general/sanity.F90"
subroutine ssymm_matrix_allreduce_&
subroutine ssymm_matrix_allreduce_&
&PRECISION &
(obj, n, a, lda, ldb, comm)
!-------------------------------------------------------------------------------
! symm_matrix_allreduce: Does an mpi_allreduce for a symmetric matrix A.
! On entry, only the upper half of A needs to be set
! On exit, the complete matrix is set
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
! symm_matrix_allreduce: Does an mpi_allreduce for a symmetric 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
......@@ -112,8 +112,8 @@
call obj%timer%stop("symm_matrix_allreduce" // PRECISION_SUFFIX)
end subroutine ssymm_matrix_allreduce_&
&PRECISION
end subroutine ssymm_matrix_allreduce_&
&PRECISION
......@@ -61,17 +61,17 @@
#ifdef SKEW_SYMMETRIC_BUILD
subroutine ssymm_matrix_allreduce_&
subroutine ssymm_matrix_allreduce_&
#else
subroutine symm_matrix_allreduce_&
subroutine symm_matrix_allreduce_&
#endif
&PRECISION &
(obj, n, a, lda, ldb, comm)
!-------------------------------------------------------------------------------
! symm_matrix_allreduce: Does an mpi_allreduce for a symmetric matrix A.
! On entry, only the upper half of A needs to be set
! On exit, the complete matrix is set
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
! symm_matrix_allreduce: Does an mpi_allreduce for a symmetric 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
......@@ -143,11 +143,11 @@
)
#ifdef SKEW_SYMMETRIC_BUILD
end subroutine ssymm_matrix_allreduce_&
end subroutine ssymm_matrix_allreduce_&
#else
end subroutine symm_matrix_allreduce_&
end subroutine symm_matrix_allreduce_&
#endif
&PRECISION
&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