Make auxiliary functions public via elpa1 module

abb604fa · Andreas Marek · 6cee724b · abb604fa · abb604fa
Unverified Commit abb604fa authored Jun 14, 2016 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 4 deletions

src/elpa1.F90 src/elpa1.F90 +0 -2

src/elpa1_auxiliary.F90 src/elpa1_auxiliary.F90 +0 -2

No files found.
--- a/src/elpa1.F90
+++ b/src/elpa1.F90
@@ -87,8 +87,6 @@ module ELPA1

  implicit none

-  PRIVATE ! By default, all routines contained are private
-
  ! The following routines are public:

  public :: get_elpa_row_col_comms     !< old, deprecated interface: Sets MPI row/col communicators

--- a/src/elpa1_auxiliary.F90
+++ b/src/elpa1_auxiliary.F90
@@ -56,8 +56,6 @@
 module elpa1_auxiliary
  implicit none

-  PRIVATE ! set default to private
-
  public :: mult_at_b_real             !< Multiply real matrices A**T * B
  public :: mult_ah_b_complex          !< Multiply complex matrices A**H * B