Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
f1644f88
Commit
f1644f88
authored
Apr 13, 2017
by
Andreas Marek
Browse files
Mark some old ELPA1 routines as legacy
parent
4768c659
Changes
12
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Makefile.am
View file @
f1644f88
...
...
@@ -16,7 +16,7 @@ libelpa@SUFFIX@_public_la_SOURCES = \
src/elpa1/elpa1_new_interface.F90
\
src/elpa2/elpa2.F90
\
src/elpa2/elpa2_new_interface.F90
\
src/elpa1/elpa1_auxiliary.F90
\
src/elpa1/
legacy_interface/
elpa1_auxiliary
_legacy
.F90
\
src/elpa1/elpa1_auxiliary_new_interface.F90
\
src/elpa1/elpa1_utilities.F90
\
src/elpa2/elpa2_utilities.F90
\
...
...
@@ -82,13 +82,13 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa2/compute_hh_trafo.X90
\
src/elpa2/redist_band.X90
\
src/sanity.X90
\
src/elpa1/elpa_cholesky_template.X90
\
src/elpa1/
legacy_interface/
elpa_cholesky_template
_legacy
.X90
\
src/elpa1/elpa_cholesky_template_new_interface.X90
\
src/elpa1/elpa_invert_trm.X90
\
src/elpa1/
legacy_interface/
elpa_invert_trm
_legacy
.X90
\
src/elpa1/elpa_invert_trm_new_interface.X90
\
src/elpa1/elpa_multiply_a_b.X90
\
src/elpa1/
legacy_interface/
elpa_multiply_a_b
_legacy
.X90
\
src/elpa1/elpa_multiply_a_b_new_interface.X90
\
src/elpa1/elpa_solve_tridi.X90
\
src/elpa1/
legacy_interface/
elpa_solve_tridi
_legacy
.X90
\
src/elpa1/elpa_solve_tridi_new_interface.X90
\
src/precision_macros.h
...
...
@@ -1133,13 +1133,13 @@ EXTRA_DIST = \
src/elpa2/pack_unpack_gpu.X90
\
src/elpa2/compute_hh_trafo.X90
\
src/sanity.X90
\
src/elpa1/elpa_cholesky_template.X90
\
src/elpa1/
legacy_interface/
elpa_cholesky_template
_legacy
.X90
\
src/elpa1/elpa_cholesky_template_new_interface.X90
\
src/elpa1/elpa_invert_trm.X90
\
src/elpa1/
legacy_interface/
elpa_invert_trm
_legacy
.X90
\
src/elpa1/elpa_invert_trm_new_interface.X90
\
src/elpa1/elpa_multiply_a_b.X90
\
src/elpa1/
legacy_interface/
elpa_multiply_a_b
_legacy
.X90
\
src/elpa1/elpa_multiply_a_b_new_interface.X90
\
src/elpa1/elpa_solve_tridi.X90
\
src/elpa1/
legacy_interface/
elpa_solve_tridi
_legacy
.X90
\
src/elpa1/elpa_solve_tridi_new_interface.X90
\
src/elpa2/qr/elpa_qrkernels.X90
\
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_complex_template.Xcu
\
...
...
src/elpa1/elpa1.F90
View file @
f1644f88
...
...
@@ -84,7 +84,7 @@
module
ELPA1
use
,
intrinsic
::
iso_c_binding
use
elpa_utilities
use
elpa1_auxiliary
use
elpa1_auxiliary
_legacy
use
elpa1_utilities
implicit
none
...
...
src/elpa1/elpa1_auxiliary.F90
→
src/elpa1/
legacy_interface/
elpa1_auxiliary
_legacy
.F90
View file @
f1644f88
...
...
@@ -54,7 +54,7 @@
#include "config-f90.h"
!> \brief Fortran module which provides helper routines for matrix calculations
module
ELPA1_AUXILIARY
module
ELPA1_AUXILIARY
_legacy
use
elpa_utilities
implicit
none
...
...
@@ -283,19 +283,19 @@ module ELPA1_AUXILIARY
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
function
elpa_cholesky_real_double
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
&
wantDebug
)
result
(
success
)
#include "elpa_cholesky_template.X90"
#include "
./
elpa_cholesky_template
_legacy
.X90"
end
function
elpa_cholesky_real_double
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief cholesky_real_single: Cholesky factorization of a single-precision real symmetric matrix
!> \details
...
...
@@ -316,7 +316,7 @@ module ELPA1_AUXILIARY
function
elpa_cholesky_real_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
&
wantDebug
)
result
(
success
)
#include "elpa_cholesky_template.X90"
#include "
./
elpa_cholesky_template
_legacy
.X90"
end
function
elpa_cholesky_real_single
...
...
@@ -324,7 +324,7 @@ module ELPA1_AUXILIARY
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_invert_trm_real_double: Inverts a double-precision real upper triangular matrix
!> \details
!> \param na Order of matrix
...
...
@@ -340,13 +340,13 @@ module ELPA1_AUXILIARY
!> \param wantDebug logical, more debug information on failure
!> \result succes logical, reports success or failure
function
elpa_invert_trm_real_double
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_invert_trm.X90"
#include "
./
elpa_invert_trm
_legacy
.X90"
end
function
elpa_invert_trm_real_double
#if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_invert_trm_real_single: Inverts a single-precision real upper triangular matrix
!> \details
...
...
@@ -363,7 +363,7 @@ module ELPA1_AUXILIARY
!> \param wantDebug logical, more debug information on failure
!> \result succes logical, reports success or failure
function
elpa_invert_trm_real_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_invert_trm.X90"
#include "
./
elpa_invert_trm
_legacy
.X90"
end
function
elpa_invert_trm_real_single
#endif /* WANT_SINGLE_PRECISION_REAL */
...
...
@@ -371,7 +371,7 @@ module ELPA1_AUXILIARY
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_cholesky_complex_double: Cholesky factorization of a double-precision complex hermitian matrix
!> \details
...
...
@@ -390,7 +390,7 @@ module ELPA1_AUXILIARY
!> \result succes logical, reports success or failure
function
elpa_cholesky_complex_double
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_cholesky_template.X90"
#include "
./
elpa_cholesky_template
_legacy
.X90"
end
function
elpa_cholesky_complex_double
...
...
@@ -398,7 +398,7 @@ module ELPA1_AUXILIARY
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_cholesky_complex_single: Cholesky factorization of a single-precision complex hermitian matrix
!> \details
...
...
@@ -417,7 +417,7 @@ module ELPA1_AUXILIARY
!> \result succes logical, reports success or failure
function
elpa_cholesky_complex_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_cholesky_template.X90"
#include "
./
elpa_cholesky_template
_legacy
.X90"
end
function
elpa_cholesky_complex_single
...
...
@@ -425,7 +425,7 @@ module ELPA1_AUXILIARY
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_invert_trm_complex_double: Inverts a double-precision complex upper triangular matrix
!> \details
...
...
@@ -443,13 +443,13 @@ module ELPA1_AUXILIARY
!> \result succes logical, reports success or failure
function
elpa_invert_trm_complex_double
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_invert_trm.X90"
#include "
./
elpa_invert_trm
_legacy
.X90"
end
function
elpa_invert_trm_complex_double
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_invert_trm_complex_single: Inverts a single-precision complex upper triangular matrix
!> \details
...
...
@@ -467,14 +467,14 @@ module ELPA1_AUXILIARY
!> \result succes logical, reports success or failure
function
elpa_invert_trm_complex_single
(
na
,
a
,
lda
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_invert_trm.X90"
#include "
./
elpa_invert_trm
_legacy
.X90"
end
function
elpa_invert_trm_complex_single
#endif /* WANT_SINGE_PRECISION_COMPLEX */
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief mult_at_b_real_double: Performs C : = A**T * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
!> B is a (na,ncb) matrix
...
...
@@ -509,13 +509,13 @@ module ELPA1_AUXILIARY
function
elpa_mult_at_b_real_double
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
nblk
,
&
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.X90"
#include "
./
elpa_multiply_a_b
_legacy
.X90"
end
function
elpa_mult_at_b_real_double
#if WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_mult_at_b_real_single: Performs C : = A**T * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
...
...
@@ -552,7 +552,7 @@ module ELPA1_AUXILIARY
function
elpa_mult_at_b_real_single
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
nblk
,
&
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.X90"
#include "
./
elpa_multiply_a_b
_legacy
.X90"
end
function
elpa_mult_at_b_real_single
...
...
@@ -561,7 +561,7 @@ module ELPA1_AUXILIARY
#define COMPLEXCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_mult_ah_b_complex_double: Performs C : = A**H * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
...
...
@@ -599,14 +599,14 @@ module ELPA1_AUXILIARY
function
elpa_mult_ah_b_complex_double
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
nblk
,
&
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.X90"
#include "
./
elpa_multiply_a_b
_legacy
.X90"
end
function
elpa_mult_ah_b_complex_double
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_mult_ah_b_complex_single: Performs C : = A**H * B
!> where A is a square matrix (na,na) which is optionally upper or lower triangular
...
...
@@ -645,7 +645,7 @@ module ELPA1_AUXILIARY
function
elpa_mult_ah_b_complex_single
(
uplo_a
,
uplo_c
,
na
,
ncb
,
a
,
lda
,
ldaCols
,
b
,
ldb
,
ldbCols
,
nblk
,
&
mpi_comm_rows
,
mpi_comm_cols
,
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.X90"
#include "
./
elpa_multiply_a_b
_legacy
.X90"
end
function
elpa_mult_ah_b_complex_single
...
...
@@ -653,7 +653,7 @@ module ELPA1_AUXILIARY
#define REALCASE 1
#define DOUBLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_solve_tridi_double: Solve tridiagonal eigensystem for a double-precision matrix with divide and conquer method
!> \details
...
...
@@ -675,7 +675,7 @@ module ELPA1_AUXILIARY
function
elpa_solve_tridi_double
(
na
,
nev
,
d
,
e
,
q
,
ldq
,
nblk
,
matrixCols
,
mpi_comm_rows
,
mpi_comm_cols
,
wantDebug
)
&
result
(
success
)
#include "elpa_solve_tridi.X90"
#include "
./
elpa_solve_tridi
_legacy
.X90"
end
function
...
...
@@ -683,7 +683,7 @@ module ELPA1_AUXILIARY
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION
#include "../precision_macros.h"
#include "../
../
precision_macros.h"
!> \brief elpa_solve_tridi_single: Solve tridiagonal eigensystem for a single-precision matrix with divide and conquer method
!> \details
...
...
@@ -705,7 +705,7 @@ module ELPA1_AUXILIARY
function
elpa_solve_tridi_single
(
na
,
nev
,
d
,
e
,
q
,
ldq
,
nblk
,
matrixCols
,
mpi_comm_rows
,
&
mpi_comm_cols
,
wantDebug
)
result
(
success
)
#include "elpa_solve_tridi.X90"
#include "
./
elpa_solve_tridi
_legacy
.X90"
end
function
...
...
@@ -714,5 +714,4 @@ module ELPA1_AUXILIARY
end
module
elpa1_auxiliary
end
module
elpa1_auxiliary_legacy
src/elpa1/elpa_cholesky_template.X90
→
src/elpa1/
legacy_interface/
elpa_cholesky_template
_legacy
.X90
View file @
f1644f88
...
...
@@ -42,7 +42,7 @@
! any derivatives of ELPA under the same license that we chose for
! the original distribution, the GNU Lesser General Public License.
#include "../sanity.X90"
#include "../
../
sanity.X90"
use elpa_type
! use elpa1_compute
! use elpa_utilities
...
...
src/elpa1/elpa_invert_trm.X90
→
src/elpa1/
legacy_interface/
elpa_invert_trm
_legacy
.X90
View file @
f1644f88
...
...
@@ -50,7 +50,7 @@
! with their original authors, but shall adhere to the licensing terms
! distributed along with the original code in the file "COPYING".
#include "../sanity.X90"
#include "../
../
sanity.X90"
use precision
use elpa_type
...
...
src/elpa1/elpa_multiply_a_b.X90
→
src/elpa1/
legacy_interface/
elpa_multiply_a_b
_legacy
.X90
View file @
f1644f88
...
...
@@ -53,7 +53,7 @@
! Author: A. Marek, MPCDF
#include "../sanity.X90"
#include "../
../
sanity.X90"
use elpa_type
#ifdef HAVE_DETAILED_TIMINGS
use timings
...
...
src/elpa1/elpa_solve_tridi.X90
→
src/elpa1/
legacy_interface/
elpa_solve_tridi
_legacy
.X90
View file @
f1644f88
...
...
@@ -54,7 +54,7 @@
#include "../sanity.X90"
#include "../
../
sanity.X90"
!use elpa1_compute, solve_tridi_&
! &PRECISION&
...
...
src/elpa_cholesky_c_interface_template.X90
View file @
f1644f88
...
...
@@ -56,7 +56,7 @@ function elpa_cholesky_&
&")
use, intrinsic :: iso_c_binding
use elpa1_auxiliary, only : elpa_cholesky_&
use elpa1_auxiliary
_legacy
, only : elpa_cholesky_&
&MATH_DATATYPE&
&_&
&PRECISION
...
...
src/elpa_invert_trm_c_interface_template.X90
View file @
f1644f88
...
...
@@ -63,7 +63,7 @@ function elpa_invert_trm_&
&PRECISION&
")
use, intrinsic :: iso_c_binding
use elpa1_auxiliary, only : elpa_invert_trm_&
use elpa1_auxiliary
_legacy
, only : elpa_invert_trm_&
&MATH_DATATYPE&
&_&
&PRECISION
...
...
src/elpa_mult_ah_b_c_interface_template.X90
View file @
f1644f88
...
...
@@ -64,7 +64,7 @@ function elpa_mult_ah_b_&
&PRECISION&
&")
use, intrinsic :: iso_c_binding
use elpa1_auxiliary, only : elpa_mult_ah_b_&
use elpa1_auxiliary
_legacy
, only : elpa_mult_ah_b_&
&MATH_DATATYPE&
&_&
&PRECISION
...
...
src/elpa_mult_at_b_c_interface_template.X90
View file @
f1644f88
...
...
@@ -64,7 +64,7 @@ function elpa_mult_at_b_&
&PRECISION&
") result(success)
use, intrinsic :: iso_c_binding
use elpa1_auxiliary, only : elpa_mult_at_b_&
use elpa1_auxiliary
_legacy
, only : elpa_mult_at_b_&
&MATH_DATATYPE&
&_&
&PRECISION
...
...
src/elpa_solve_tridi_c_interface_template.X90
View file @
f1644f88
...
...
@@ -60,7 +60,7 @@ function elpa_solve_tridi_wrapper_&
&")
use, intrinsic :: iso_c_binding
use elpa1_auxiliary, only : elpa_solve_tridi_&
use elpa1_auxiliary
_legacy
, only : elpa_solve_tridi_&
&PRECISION
implicit none
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment