Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
ed963673
Commit
ed963673
authored
Mar 05, 2018
by
Andreas Marek
Browse files
Template for elpa_impl
parent
a87aa965
Changes
7
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Makefile.am
View file @
ed963673
...
...
@@ -85,7 +85,8 @@ EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES = \
src/elpa1/elpa_reduce_add_vectors.F90
\
src/elpa1/elpa_transpose_vectors.F90
\
src/elpa_api_math_template.F90
\
src/elpa_impl_template.F90
\
src/elpa_impl_math_template.F90
\
src/elpa_impl_generalized_transform_template.F90
\
src/elpa1/elpa1_compute_template.F90
\
src/elpa2/elpa2_compute_real_template.F90
\
src/elpa2/elpa2_compute_complex_template.F90
\
...
...
@@ -659,7 +660,8 @@ EXTRA_DIST = \
nvcc_wrap
\
src/GPU/cuUtils_template.cu
\
src/elpa_api_math_template.F90
\
src/elpa_impl_template.F90
\
src/elpa_impl_math_template.F90
\
src/elpa_impl_generalized_transform.F90
\
src/elpa1/elpa1_compute_template.F90
\
src/elpa1/elpa1_merge_systems_real_template.F90
\
src/elpa1/elpa1_solve_tridi_real_template.F90
\
...
...
configure.ac
View file @
ed963673
...
...
@@ -31,7 +31,7 @@ AC_SUBST([ELPA_SO_VERSION], [11:0:0])
# API Version
AC_DEFINE([EARLIEST_API_VERSION], [20170403], [Earliest supported ELPA API version])
AC_DEFINE([CURRENT_API_VERSION], [201
712
01], [Current ELPA API version])
AC_DEFINE([CURRENT_API_VERSION], [201
803
01], [Current ELPA API version])
# Autotune Version
AC_DEFINE([EARLIEST_AUTOTUNE_VERSION], [20171201], [Earliest ELPA API version, which supports autotuning])
...
...
generated_headers.am
View file @
ed963673
...
...
@@ -18,6 +18,7 @@ config-f90.h: config.h
generated_headers
+=
elpa/elpa_generated.h
elpa/elpa_generated.h
:
$(top_srcdir)/src/elpa_impl.F90
\
$(top_srcdir)/src/elpa_impl_math_template.F90
\
$(top_srcdir)/src/elpa_api.F90 | elpa
@
rm
-f
$@
$(
call
extract_interface,!c>
)
...
...
src/elpa_api.F90
View file @
ed963673
...
...
@@ -513,14 +513,12 @@ module elpa_api
#undef REALCASE
#undef DOUBLE_PRECISION
#ifdef WANT_SINGLE_PRECISION_REAL
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "general/precision_macros.h"
#include "elpa_api_math_template.F90"
#undef REALCASE
#undef SINGLE_PRECISION
#endif /* WANT_SINGLE_PRECISION_REAL */
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
...
...
@@ -529,14 +527,12 @@ module elpa_api
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
#ifdef WANT_SINGLE_PRECISION_COMPLEX
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "general/precision_macros.h"
#include "elpa_api_math_template.F90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
#endif /* WANT_SINGLE_PRECISION_COMPLEX */
! end of math routines
...
...
src/elpa_impl.F90
View file @
ed963673
This diff is collapsed.
Click to expand it.
src/elpa_impl_template.F90
→
src/elpa_impl_
generalized_transform_
template.F90
View file @
ed963673
subroutine
elpa_transform_generalized_
&
subroutine
elpa_transform_generalized_
&
&
ELPA_IMPL_SUFFIX
&
&(
self
,
a
,
b
,
is_already_decomposed
,
error
)
implicit
none
...
...
@@ -62,6 +62,7 @@
&
trmm
(
"L"
,
"U"
,
BLAS_TRANS_OR_CONJ
,
"N"
,
self
%
na
,
self
%
na
,
&
ONE
,
b
,
self
%
na
,
a
,
self
%
na
)
#endif
call
self
%
timer_stop
(
"scalapack multiply inv(U)^T * A"
)
#endif /* DO_USE_ELPA_HERMITIAN_MULTIPLY */
...
...
src/elpa_impl_math_template.F90
0 → 100644
View file @
ed963673
This diff is collapsed.
Click to expand it.
Write
Preview
Supports
Markdown
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