Commit ba7f23bd authored by Andreas Marek's avatar Andreas Marek
Browse files

Better way to set only auxiliary functions public

parent 40ca9106
......@@ -98,6 +98,19 @@ module ELPA1
public :: solve_evp_complex !< old, deprecated interface: Driver routine for complex eigenvalue problem
public :: solve_evp_complex_1stage !< Driver routine for complex eigenvalue problem
! imported from elpa1_auxilliary
public :: mult_at_b_real !< Multiply real matrices A**T * B
public :: mult_ah_b_complex !< Multiply complex matrices A**H * B
public :: invert_trm_real !< Invert real triangular matrix
public :: invert_trm_complex !< Invert complex triangular matrix
public :: cholesky_real !< Cholesky factorization of a real matrix
public :: cholesky_complex !< Cholesky factorization of a complex matrix
public :: solve_tridi !< Solve tridiagonal eigensystem with divide and conquer method
! Timing results, set by every call to solve_evp_xxx
real(kind=rk), public :: time_evp_fwd !< time for forward transformations (to tridiagonal form)
......
......@@ -56,6 +56,8 @@
module elpa1_auxiliary
implicit none
private
public :: mult_at_b_real !< Multiply real matrices A**T * B
public :: mult_ah_b_complex !< Multiply complex matrices A**H * B
......
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