Skip to content
GitLab
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
3d7530c3
Commit
3d7530c3
authored
Aug 03, 2017
by
Lorenz Huedepohl
Browse files
Rename all .X90 to .F90 and all .Xc to .c
Anything if it makes Andreas happy :)
parent
b233069a
Changes
166
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Makefile.am
View file @
3d7530c3
...
...
@@ -81,52 +81,52 @@ libelpa@SUFFIX@_private_la_SOURCES += \
endif
EXTRA_libelpa@SUFFIX@
_private_la_DEPENDENCIES
=
\
src/elpa1/elpa_reduce_add_vectors.
X
90
\
src/elpa1/elpa_transpose_vectors.
X
90
\
src/elpa1/elpa1_compute_template.
X
90
\
src/elpa2/elpa2_compute_real_template.
X
90
\
src/elpa2/elpa2_compute_complex_template.
X
90
\
src/elpa1/elpa1_template.
X
90
\
src/elpa2/elpa2_template.
X
90
\
src/elpa2/qr/qr_utils_template.
X
90
\
src/elpa2/qr/elpa_pdlarfb_template.
X
90
\
src/elpa2/qr/elpa_pdgeqrf_template.
X
90
\
src/elpa2/elpa2_bandred_template.
X
90
\
src/elpa2/elpa2_symm_matrix_allreduce_real_template.
X
90
\
src/elpa2/elpa2_trans_ev_band_to_full_template.
X
90
\
src/elpa2/elpa2_tridiag_band_template.
X
90
\
src/elpa2/elpa2_trans_ev_tridi_to_band_template.
X
90
\
src/elpa2/elpa2_herm_matrix_allreduce_complex_template.
X
90
\
src/elpa2/kernels/real_template.
X
90
\
src/elpa2/kernels/complex_template.
X
90
\
src/elpa2/kernels/simple_template.
X
90
\
src/elpa2/pack_unpack_cpu.
X
90
\
src/elpa2/pack_unpack_gpu.
X
90
\
src/elpa2/compute_hh_trafo.
X
90
\
src/elpa2/redist_band.
X
90
\
src/general/sanity.
X
90
\
src/elpa1/elpa_cholesky_template.
X
90
\
src/elpa1/elpa_invert_trm.
X
90
\
src/elpa1/elpa_multiply_a_b.
X
90
\
src/elpa1/elpa_solve_tridi_impl_public.
X
90
\
src/elpa1/elpa_reduce_add_vectors.
F
90
\
src/elpa1/elpa_transpose_vectors.
F
90
\
src/elpa1/elpa1_compute_template.
F
90
\
src/elpa2/elpa2_compute_real_template.
F
90
\
src/elpa2/elpa2_compute_complex_template.
F
90
\
src/elpa1/elpa1_template.
F
90
\
src/elpa2/elpa2_template.
F
90
\
src/elpa2/qr/qr_utils_template.
F
90
\
src/elpa2/qr/elpa_pdlarfb_template.
F
90
\
src/elpa2/qr/elpa_pdgeqrf_template.
F
90
\
src/elpa2/elpa2_bandred_template.
F
90
\
src/elpa2/elpa2_symm_matrix_allreduce_real_template.
F
90
\
src/elpa2/elpa2_trans_ev_band_to_full_template.
F
90
\
src/elpa2/elpa2_tridiag_band_template.
F
90
\
src/elpa2/elpa2_trans_ev_tridi_to_band_template.
F
90
\
src/elpa2/elpa2_herm_matrix_allreduce_complex_template.
F
90
\
src/elpa2/kernels/real_template.
F
90
\
src/elpa2/kernels/complex_template.
F
90
\
src/elpa2/kernels/simple_template.
F
90
\
src/elpa2/pack_unpack_cpu.
F
90
\
src/elpa2/pack_unpack_gpu.
F
90
\
src/elpa2/compute_hh_trafo.
F
90
\
src/elpa2/redist_band.
F
90
\
src/general/sanity.
F
90
\
src/elpa1/elpa_cholesky_template.
F
90
\
src/elpa1/elpa_invert_trm.
F
90
\
src/elpa1/elpa_multiply_a_b.
F
90
\
src/elpa1/elpa_solve_tridi_impl_public.
F
90
\
src/general/precision_macros.h
if
ENABLE_LEGACY
EXTRA_libelpa@SUFFIX@
_private_la_DEPENDENCIES
+=
\
src/elpa1/legacy_interface/elpa1_template.
X
90
\
src/elpa2/legacy_interface/elpa2_template.
X
90
\
src/elpa1/legacy_interface/elpa1_c_interface_template.
X
90
\
src/elpa2/legacy_interface/elpa2_c_interface_template.
X
90
\
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_cholesky_template.
X
90
\
src/elpa1/legacy_interface/elpa_invert_trm.
X
90
\
src/elpa1/legacy_interface/elpa_multiply_a_b.
X
90
\
src/elpa1/legacy_interface/elpa_solve_tridi.
X
90
src/elpa1/legacy_interface/elpa1_template.
F
90
\
src/elpa2/legacy_interface/elpa2_template.
F
90
\
src/elpa1/legacy_interface/elpa1_c_interface_template.
F
90
\
src/elpa2/legacy_interface/elpa2_c_interface_template.
F
90
\
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_cholesky_template.
F
90
\
src/elpa1/legacy_interface/elpa_invert_trm.
F
90
\
src/elpa1/legacy_interface/elpa_multiply_a_b.
F
90
\
src/elpa1/legacy_interface/elpa_solve_tridi.
F
90
endif
if
HAVE_DETAILED_TIMINGS
...
...
@@ -152,7 +152,7 @@ endif
if
WITH_GPU_VERSION
libelpa@SUFFIX@
_private_la_SOURCES
+=
src/GPU/cudaFunctions.cu src/GPU/cuUtils.cu src/elpa2/GPU/ev_tridi_band_gpu_c_v2.cu
EXTRA_libelpa@SUFFIX@
_private_la_DEPENDENCIES
+=
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_complex_template.
X
cu src/elpa2/GPU/ev_tridi_band_gpu_c_v2_real_template.Xcu
EXTRA_libelpa@SUFFIX@
_private_la_DEPENDENCIES
+=
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_complex_template.cu src/elpa2/GPU/ev_tridi_band_gpu_c_v2_real_template.Xcu
endif
if
!WITH_MPI
...
...
@@ -458,12 +458,10 @@ libelpatest@SUFFIX@_la_SOURCES = \
test
/shared/test_util.F90
\
test
/shared/test_read_input_parameters.F90
\
test
/shared/test_check_correctness.F90
\
test
/shared/test_check_correctness_template.X90
\
test
/shared/test_setup_mpi.F90
\
test
/shared/test_blacs_infrastructure.F90
\
test
/shared/test_prepare_matrix.F90
\
test
/shared/test_prepare_matrix_template.X90
\
test
/shared/test_analytic.F90
\
test
/shared/test_analytic.F90
\
test
/shared/test_output_type.F90
if
HAVE_REDIRECT
...
...
@@ -569,99 +567,101 @@ distclean-local:
-
rmdir
.fortran_dependencies/
EXTRA_DIST
=
\
elpa.spec
\
elpa/elpa.h
\
elpa/elpa_legacy.h
\
elpa/elpa_generic.h
\
fdep/fortran_dependencies.pl
\
elpa/elpa_legacy.h
\
fdep/fortran_dependencies.mk
\
fdep/fortran_dependencies.pl
\
manual_cpp
\
test
/Fortran/elpa_print_headers.X90
\
test
/Fortran/assert.h
\
src/general/prow_pcol.X90
\
src/general/map_global_to_local.X90
\
src/elpa1/elpa_reduce_add_vectors.X90
\
src/elpa1/elpa_transpose_vectors.X90
\
src/elpa1/elpa1_compute_template.X90
\
src/elpa1/elpa1_merge_systems_real_template.X90
\
src/elpa1/elpa1_solve_tridi_real_template.X90
\
src/elpa1/elpa1_tools_template.X90
\
src/elpa1/elpa1_trans_ev_template.X90
\
src/elpa1/elpa1_tridiag_template.X90
\
src/elpa2/elpa2_compute_real_template.X90
\
src/elpa2/elpa2_compute_complex_template.X90
\
src/elpa2/elpa2_bandred_template.X90
\
src/elpa2/elpa2_herm_matrix_allreduce_complex_template.X90
\
src/elpa2/elpa2_symm_matrix_allreduce_real_template.X90
\
src/elpa1/elpa1_template.X90
\
src/elpa2/elpa2_template.X90
\
src/elpa2/qr/qr_utils_template.X90
\
src/elpa2/qr/elpa_pdlarfb_template.X90
\
src/elpa2/qr/elpa_pdgeqrf_template.X90
\
src/elpa2/elpa2_tridiag_band_template.X90
\
src/elpa2/elpa2_trans_ev_band_to_full_template.X90
\
src/elpa2/elpa2_trans_ev_tridi_to_band_template.X90
\
src/general/precision_macros.h
\
nvcc_wrap
\
src/GPU/cuUtils_template.cu
\
src/elpa1/elpa1_compute_template.F90
\
src/elpa1/elpa1_merge_systems_real_template.F90
\
src/elpa1/elpa1_solve_tridi_real_template.F90
\
src/elpa1/elpa1_template.F90
\
src/elpa1/elpa1_tools_template.F90
\
src/elpa1/elpa1_trans_ev_template.F90
\
src/elpa1/elpa1_tridiag_template.F90
\
src/elpa1/elpa_cholesky_template.F90
\
src/elpa1/elpa_invert_trm.F90
\
src/elpa1/elpa_multiply_a_b.F90
\
src/elpa1/elpa_reduce_add_vectors.F90
\
src/elpa1/elpa_solve_tridi_impl_public.F90
\
src/elpa1/elpa_transpose_vectors.F90
\
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_complex_template.cu
\
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_real_template.cu
\
src/elpa2/compute_hh_trafo.F90
\
src/elpa2/elpa2_bandred_template.F90
\
src/elpa2/elpa2_compute_complex_template.F90
\
src/elpa2/elpa2_compute_real_template.F90
\
src/elpa2/elpa2_herm_matrix_allreduce_complex_template.F90
\
src/elpa2/elpa2_symm_matrix_allreduce_real_template.F90
\
src/elpa2/elpa2_template.F90
\
src/elpa2/elpa2_trans_ev_band_to_full_template.F90
\
src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
\
src/elpa2/elpa2_tridiag_band_template.F90
\
src/elpa2/kernels/complex_avx-avx2_1hv_template.c
\
src/elpa2/kernels/complex_avx-avx2_2hv_template.c
\
src/elpa2/kernels/complex_avx512_1hv_template.c
\
src/elpa2/kernels/complex_avx512_2hv_template.c
\
src/elpa2/kernels/complex_sse_1hv_template.c
\
src/elpa2/kernels/complex_sse_2hv_template.c
\
src/elpa2/kernels/complex_template.F90
\
src/elpa2/kernels/real_avx-avx2_2hv_template.c
\
src/elpa2/kernels/real_avx-avx2_4hv_template.c
\
src/elpa2/kernels/real_avx-avx2_6hv_template.c
\
src/elpa2/kernels/real_avx512_2hv_template.c
\
src/elpa2/kernels/real_avx512_4hv_template.c
\
src/elpa2/kernels/real_avx512_6hv_template.c
\
src/elpa2/kernels/real_sse_2hv_template.c
\
src/elpa2/kernels/real_sse_4hv_template.c
\
src/elpa2/kernels/real_sse_6hv_template.c
\
src/elpa2/kernels/real_template.F90
\
src/elpa2/kernels/simple_template.F90
\
src/elpa2/pack_unpack_cpu.F90
\
src/elpa2/pack_unpack_gpu.F90
\
src/elpa2/qr/elpa_pdgeqrf_template.F90
\
src/elpa2/qr/elpa_pdlarfb_template.F90
\
src/elpa2/qr/elpa_qrkernels_template.F90
\
src/elpa2/qr/qr_utils_template.F90
\
src/elpa2/redist_band.F90
\
src/elpa_index.h
\
src/fortran_constants.h
\
src/elpa2/kernels/real_template.X90
\
src/elpa2/kernels/complex_template.X90
\
src/elpa2/kernels/simple_template.X90
\
src/elpa2/kernels/real_sse_2hv_template.Xc
\
src/elpa2/kernels/real_sse_4hv_template.Xc
\
src/elpa2/kernels/real_sse_6hv_template.Xc
\
src/elpa2/kernels/real_avx-avx2_2hv_template.Xc
\
src/elpa2/kernels/real_avx-avx2_4hv_template.Xc
\
src/elpa2/kernels/real_avx-avx2_6hv_template.Xc
\
src/elpa2/kernels/real_avx512_2hv_template.Xc
\
src/elpa2/kernels/real_avx512_4hv_template.Xc
\
src/elpa2/kernels/real_avx512_6hv_template.Xc
\
src/elpa2/kernels/complex_sse_1hv_template.Xc
\
src/elpa2/kernels/complex_sse_2hv_template.Xc
\
src/elpa2/kernels/complex_avx-avx2_1hv_template.Xc
\
src/elpa2/kernels/complex_avx-avx2_2hv_template.Xc
\
src/elpa2/kernels/complex_avx512_1hv_template.Xc
\
src/elpa2/kernels/complex_avx512_2hv_template.Xc
\
src/elpa2/redist_band.X90
\
src/elpa2/pack_unpack_cpu.X90
\
src/elpa2/pack_unpack_gpu.X90
\
src/elpa2/compute_hh_trafo.X90
\
src/general/sanity.X90
\
src/elpa1/elpa_cholesky_template.X90
\
src/elpa1/elpa_invert_trm.X90
\
src/elpa1/elpa_multiply_a_b.X90
\
src/elpa1/elpa_solve_tridi_impl_public.X90
\
src/elpa2/qr/elpa_qrkernels_template.X90
\
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_complex_template.Xcu
\
src/elpa2/GPU/ev_tridi_band_gpu_c_v2_real_template.Xcu
\
src/GPU/cuUtils_template.Xcu
\
test
/shared/test_prepare_matrix_template.X90
\
test
/shared/test_check_correctness_template.X90
\
nvcc_wrap
\
src/general/map_global_to_local.F90
\
src/general/precision_macros.h
\
src/general/prow_pcol.F90
\
src/general/sanity.F90
\
test
/Fortran/assert.h
\
test
/Fortran/elpa_print_headers.F90
\
test
/shared/test_check_correctness_template.F90
\
test
/shared/test_check_correctness_template.F90
\
test
/shared/test_prepare_matrix_template.F90
\
test
/shared/test_prepare_matrix_template.F90
\
test_project/Makefile.am
\
test_project/autogen.sh
\
test_project/configure.ac
\
test_project/fdep
\
test_project/src/test_real.F90
\
test_project/m4
\
elpa.spec
test_project/src/test_real.F90
if
ENABLE_LEGACY
EXTRA_DIST
+=
\
src/elpa1/elpa1_solve_tridi_real_template.
X
90
\
src/elpa1/legacy_interface/elpa1_template.
X
90
\
src/elpa2/legacy_interface/elpa2_template.
X
90
\
src/elpa1/legacy_interface/elpa1_c_interface_template.
X
90
\
src/elpa2/legacy_interface/elpa2_c_interface_template.
X
90
\
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.
X
90
\
src/elpa1/legacy_interface/elpa_cholesky_template.
X
90
\
src/elpa1/legacy_interface/elpa_invert_trm.
X
90
\
src/elpa1/legacy_interface/elpa_multiply_a_b.
X
90
\
src/elpa1/legacy_interface/elpa_solve_tridi.
X
90
src/elpa1/elpa1_solve_tridi_real_template.
F
90
\
src/elpa1/legacy_interface/elpa1_template.
F
90
\
src/elpa2/legacy_interface/elpa2_template.
F
90
\
src/elpa1/legacy_interface/elpa1_c_interface_template.
F
90
\
src/elpa2/legacy_interface/elpa2_c_interface_template.
F
90
\
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.
F
90
\
src/elpa1/legacy_interface/elpa_cholesky_template.
F
90
\
src/elpa1/legacy_interface/elpa_invert_trm.
F
90
\
src/elpa1/legacy_interface/elpa_multiply_a_b.
F
90
\
src/elpa1/legacy_interface/elpa_solve_tridi.
F
90
endif
LIBTOOL_DEPS
=
@LIBTOOL_DEPS@
...
...
generated_headers.am
View file @
3d7530c3
...
...
@@ -46,8 +46,8 @@ src/elpa_generated_public_fortran_interfaces.h: $(filter-out $(wildcard $(top_sr
@
rm
-f
$@
$(
call
extract_interface,!pf>
)
generated_headers
+=
src/fortran_constants.
X
90
src/fortran_constants.
X
90
:
$(top_srcdir)/src/fortran_constants.h | src
generated_headers
+=
src/fortran_constants.
F
90
src/fortran_constants.
F
90
:
$(top_srcdir)/src/fortran_constants.h | src
@
$(CPP)
$(CPPFLAGS)
-I
$(top_builddir)
/
-I
$(top_srcdir)
/
-I
.
$<
-o
$@
_
||
{
rm
-f
$@
;
exit
1
;
}
@
awk
'/!ELPA_C_DEFINE/ {gsub(/!ELPA_C_DEFINE/, "\n"); gsub(/NEWLINE/, "\n"); print;}'
<
$@
_
>
$@
||
{
rm
-f
$@
;
exit
1
;
}
@
rm
$@
_
...
...
legacy_test_programs.am
View file @
3d7530c3
This diff is collapsed.
Click to expand it.
src/elpa1/elpa1.F90
View file @
3d7530c3
...
...
@@ -226,7 +226,7 @@ end function elpa_get_communicators_impl
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_template.
X
90"
#include "elpa1_template.
F
90"
#undef REALCASE
#undef DOUBLE_PRECISION
...
...
@@ -263,7 +263,7 @@ end function elpa_get_communicators_impl
#define REALCASE 1
#define SINGLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_template.
X
90"
#include "elpa1_template.
F
90"
#undef REALCASE
#undef SINGLE_PRECISION
#endif /* WANT_SINGLE_PRECISION_REAL */
...
...
@@ -299,7 +299,7 @@ end function elpa_get_communicators_impl
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_template.
X
90"
#include "elpa1_template.
F
90"
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
...
...
@@ -338,7 +338,7 @@ end function elpa_get_communicators_impl
#define COMPLEXCASE 1
#define SINGLE_PRECISION
#include "../general/precision_macros.h"
#include "elpa1_template.
X
90"
#include "elpa1_template.
F
90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
#endif /* WANT_SINGLE_PRECISION_COMPLEX */
...
...
src/elpa1/elpa1_auxiliary.F90
View file @
3d7530c3
...
...
@@ -93,7 +93,7 @@ module elpa1_auxiliary_impl
#include "../general/precision_macros.h"
function
elpa_cholesky_real_double_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_cholesky_template.
X
90"
#include "elpa_cholesky_template.
F
90"
end
function
elpa_cholesky_real_double_impl
#undef DOUBLE_PRECISION
...
...
@@ -105,7 +105,7 @@ module elpa1_auxiliary_impl
#include "../general/precision_macros.h"
function
elpa_cholesky_real_single_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_cholesky_template.
X
90"
#include "elpa_cholesky_template.
F
90"
end
function
elpa_cholesky_real_single_impl
#undef SINGLE_PRECISION
...
...
@@ -132,7 +132,7 @@ module elpa1_auxiliary_impl
!> The lower triangle is not referenced.
!> \result succes logical, reports success or failure
function
elpa_invert_trm_real_double_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_invert_trm.
X
90"
#include "elpa_invert_trm.
F
90"
end
function
elpa_invert_trm_real_double_impl
#undef DOUBLE_PRECISION
#undef REALCASE
...
...
@@ -159,7 +159,7 @@ module elpa1_auxiliary_impl
!> \result succes logical, reports success or failure
function
elpa_invert_trm_real_single_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_invert_trm.
X
90"
#include "elpa_invert_trm.
F
90"
end
function
elpa_invert_trm_real_single_impl
#undef SINGLE_PRECISION
#undef REALCASE
...
...
@@ -188,7 +188,7 @@ module elpa1_auxiliary_impl
!> \result succes logical, reports success or failure
function
elpa_cholesky_complex_double_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_cholesky_template.
X
90"
#include "elpa_cholesky_template.
F
90"
end
function
elpa_cholesky_complex_double_impl
#undef DOUBLE_PRECISION
...
...
@@ -216,7 +216,7 @@ module elpa1_auxiliary_impl
!> \result succes logical, reports success or failure
function
elpa_cholesky_complex_single_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_cholesky_template.
X
90"
#include "elpa_cholesky_template.
F
90"
end
function
elpa_cholesky_complex_single_impl
#undef SINGLE_PRECISION
...
...
@@ -244,7 +244,7 @@ module elpa1_auxiliary_impl
!> The lower triangle is not referenced.
!> \result succes logical, reports success or failure
function
elpa_invert_trm_complex_double_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_invert_trm.
X
90"
#include "elpa_invert_trm.
F
90"
end
function
elpa_invert_trm_complex_double_impl
#undef DOUBLE_PRECISION
#undef COMPLEXCASE
...
...
@@ -270,7 +270,7 @@ module elpa1_auxiliary_impl
!> The lower triangle is not referenced.
!> \result succes logical, reports success or failure
function
elpa_invert_trm_complex_single_impl
(
obj
,
a
)
result
(
success
)
#include "elpa_invert_trm.
X
90"
#include "elpa_invert_trm.
F
90"
end
function
elpa_invert_trm_complex_single_impl
#undef SINGLE_PRECISION
#undef COMPLEXCASE
...
...
@@ -282,7 +282,7 @@ module elpa1_auxiliary_impl
#include "../general/precision_macros.h"
function
elpa_mult_at_b_real_double_impl
(
obj
,
uplo_a
,
uplo_c
,
ncb
,
a
,
b
,
ldb
,
ldbCols
,
&
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.
X
90"
#include "elpa_multiply_a_b.
F
90"
end
function
elpa_mult_at_b_real_double_impl
#undef DOUBLE_PRECISION
#undef REALCASE
...
...
@@ -327,7 +327,7 @@ module elpa1_auxiliary_impl
function
elpa_mult_at_b_real_single_impl
(
obj
,
uplo_a
,
uplo_c
,
ncb
,
a
,
b
,
ldb
,
ldbCols
,
&
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.
X
90"
#include "elpa_multiply_a_b.
F
90"
end
function
elpa_mult_at_b_real_single_impl
#undef SINGLE_PRECISION
...
...
@@ -375,7 +375,7 @@ module elpa1_auxiliary_impl
function
elpa_mult_ah_b_complex_double_impl
(
obj
,
uplo_a
,
uplo_c
,
ncb
,
a
,
b
,
ldb
,
ldbCols
,
&
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.
X
90"
#include "elpa_multiply_a_b.
F
90"
end
function
elpa_mult_ah_b_complex_double_impl
#undef DOUBLE_PRECISION
...
...
@@ -423,7 +423,7 @@ module elpa1_auxiliary_impl
function
elpa_mult_ah_b_complex_single_impl
(
obj
,
uplo_a
,
uplo_c
,
ncb
,
a
,
b
,
ldb
,
ldbCols
,
&
c
,
ldc
,
ldcCols
)
result
(
success
)
#include "elpa_multiply_a_b.
X
90"
#include "elpa_multiply_a_b.
F
90"
end
function
elpa_mult_ah_b_complex_single_impl
#undef SINGLE_PRECISION
...
...
@@ -452,7 +452,7 @@ module elpa1_auxiliary_impl
!> \result succes logical, reports success or failure
function
elpa_solve_tridi_double_impl
(
obj
,
d
,
e
,
q
)
result
(
success
)
#include "elpa_solve_tridi_impl_public.
X
90"
#include "elpa_solve_tridi_impl_public.
F
90"
end
function
#undef DOUBLE_PRECISION
...
...
@@ -481,7 +481,7 @@ module elpa1_auxiliary_impl
!> \result succes logical, reports success or failure
function
elpa_solve_tridi_single_impl
(
obj
,
d
,
e
,
q
)
result
(
success
)
#include "elpa_solve_tridi_impl_public.
X
90"
#include "elpa_solve_tridi_impl_public.
F
90"
end
function
#undef SINGLE_PRECISION
...
...
src/elpa1/elpa1_compute_private.F90
View file @
3d7530c3
...
...
@@ -158,8 +158,8 @@ module elpa1_compute
#define DOUBLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.
X
90"
#include "elpa_reduce_add_vectors.
X
90"
#include "elpa_transpose_vectors.
F
90"
#include "elpa_reduce_add_vectors.
F
90"
#undef DOUBLE_PRECISION
#undef REALCASE
! single precision
...
...
@@ -169,8 +169,8 @@ module elpa1_compute
#define SINGLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.
X
90"
#include "elpa_reduce_add_vectors.
X
90"
#include "elpa_transpose_vectors.
F
90"
#include "elpa_reduce_add_vectors.
F
90"
#undef SINGLE_PRECISION
#undef REALCASE
#endif
...
...
@@ -180,8 +180,8 @@ module elpa1_compute
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.
X
90"
#include "elpa_reduce_add_vectors.
X
90"
#include "elpa_transpose_vectors.
F
90"
#include "elpa_reduce_add_vectors.
F
90"
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
...
...
@@ -190,8 +190,8 @@ module elpa1_compute
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa_transpose_vectors.
X
90"
#include "elpa_reduce_add_vectors.
X
90"
#include "elpa_transpose_vectors.
F
90"
#include "elpa_reduce_add_vectors.
F
90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
...
...
@@ -201,7 +201,7 @@ module elpa1_compute
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_compute_template.
X
90"
#include "elpa1_compute_template.
F
90"
#undef REALCASE
#undef DOUBLE_PRECISION
...
...
@@ -213,7 +213,7 @@ module elpa1_compute
#define SINGLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_compute_template.
X
90"
#include "elpa1_compute_template.
F
90"
#undef REALCASE
#undef SINGLE_PRECISION
...
...
@@ -224,7 +224,7 @@ module elpa1_compute
#define COMPLEXCASE 1
#define DOUBLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_compute_template.
X
90"
#include "elpa1_compute_template.
F
90"
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
...
...
@@ -235,7 +235,7 @@ module elpa1_compute
#define COMPLEXCASE 1
#define SINGLE_PRECISION 1
#include "../general/precision_macros.h"
#include "elpa1_compute_template.
X
90"
#include "elpa1_compute_template.
F
90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
...
...
src/elpa1/elpa1_compute_template.
X
90
→
src/elpa1/elpa1_compute_template.
F
90
View file @
3d7530c3
...
...
@@ -54,7 +54,7 @@
! Author: Andreas Marek, MPCDF
#endif
#include "../general/sanity.
X
90"
#include "../general/sanity.
F
90"
#if REALCASE == 1
...
...
@@ -67,11 +67,11 @@
#if REALCASE == 1
#include "elpa1_tridiag_template.
X
90"
#include "elpa1_trans_ev_template.
X
90"
#include "elpa1_tridiag_template.
F
90"
#include "elpa1_trans_ev_template.
F
90"
! now comes a dirty hack:
! the file elpa1_solve_tridi_real_template.
X
90 must be included twice
! the file elpa1_solve_tridi_real_template.
F
90 must be included twice
! for the legacy and for the new API. In the new API, however, some routines
! must be named "..._impl"
...
...
@@ -80,25 +80,25 @@
#else
#define PRECISION_AND_SUFFIX single
#endif
#include "elpa1_solve_tridi_real_template.
X
90"
#include "elpa1_solve_tridi_real_template.
F
90"
#undef PRECISION_AND_SUFFIX
#ifdef DOUBLE_PRECISION_REAL
#define PRECISION_AND_SUFFIX double_impl
#else
#define PRECISION_AND_SUFFIX single_impl
#endif
#include "elpa1_solve_tridi_real_template.
X
90"
#include "elpa1_solve_tridi_real_template.
F
90"
#undef PRECISION_AND_SUFFIX
#include "elpa1_merge_systems_real_template.
X
90"
#include "elpa1_tools_template.
X
90"
#include "elpa1_merge_systems_real_template.
F
90"
#include "elpa1_tools_template.
F
90"
#endif
#if COMPLEXCASE == 1
#include "elpa1_tridiag_template.
X
90"
#include "elpa1_trans_ev_template.
X
90"
#include "elpa1_tools_template.
X
90"
#include "elpa1_tridiag_template.
F
90"
#include "elpa1_trans_ev_template.
F
90"
#include "elpa1_tools_template.
F
90"
#define ALREADY_DEFINED 1
...
...
src/elpa1/elpa1_merge_systems_real_template.
X
90
→
src/elpa1/elpa1_merge_systems_real_template.
F
90
View file @
3d7530c3
...
...
@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.
X
90"
#include "../general/sanity.
F
90"
subroutine
merge_systems_
&
&
PRECISION
&
...
...
src/elpa1/elpa1_solve_tridi_real_template.
X
90
→
src/elpa1/elpa1_solve_tridi_real_template.
F
90
View file @
3d7530c3
...
...
@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.
X
90"
#include "../general/sanity.
F
90"
subroutine
solve_tridi_
&
&
PRECISION_AND_SUFFIX
&
...
...
src/elpa1/elpa1_template.
X
90
→
src/elpa1/elpa1_template.
F
90
View file @
3d7530c3
...
...
@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.
X
90"
#include "../general/sanity.
F
90"
function
elpa_solve_evp_
&
&
MATH_DATATYPE
&
...
...
src/elpa1/elpa1_tools_template.
X
90
→
src/elpa1/elpa1_tools_template.
F
90
View file @
3d7530c3
...
...
@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.
X
90"
#include "../general/sanity.
F
90"
#if REALCASE == 1