Skip to content

GitLab

elpa
elpa
Commit 3d7530c3 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files
Options

Rename all .X90 to .F90 and all .Xc to .c 

Anything if it makes Andreas happy :)
parent b233069a
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 431 additions and 431 deletions
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.X90 \
src/elpa1/elpa_transpose_vectors.X90 \
src/elpa1/elpa1_compute_template.X90 \
src/elpa2/elpa2_compute_real_template.X90 \
src/elpa2/elpa2_compute_complex_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_bandred_template.X90 \
src/elpa2/elpa2_symm_matrix_allreduce_real_template.X90 \
src/elpa2/elpa2_trans_ev_band_to_full_template.X90 \
src/elpa2/elpa2_tridiag_band_template.X90 \
src/elpa2/elpa2_trans_ev_tridi_to_band_template.X90 \
src/elpa2/elpa2_herm_matrix_allreduce_complex_template.X90 \
src/elpa2/kernels/real_template.X90 \
src/elpa2/kernels/complex_template.X90 \
src/elpa2/kernels/simple_template.X90 \
src/elpa2/pack_unpack_cpu.X90 \
src/elpa2/pack_unpack_gpu.X90 \
src/elpa2/compute_hh_trafo.X90 \
src/elpa2/redist_band.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/elpa1/elpa_reduce_add_vectors.F90 \
src/elpa1/elpa_transpose_vectors.F90 \
src/elpa1/elpa1_compute_template.F90 \
src/elpa2/elpa2_compute_real_template.F90 \
src/elpa2/elpa2_compute_complex_template.F90 \
src/elpa1/elpa1_template.F90 \
src/elpa2/elpa2_template.F90 \
src/elpa2/qr/qr_utils_template.F90 \
src/elpa2/qr/elpa_pdlarfb_template.F90 \
src/elpa2/qr/elpa_pdgeqrf_template.F90 \
src/elpa2/elpa2_bandred_template.F90 \
src/elpa2/elpa2_symm_matrix_allreduce_real_template.F90 \
src/elpa2/elpa2_trans_ev_band_to_full_template.F90 \
src/elpa2/elpa2_tridiag_band_template.F90 \
src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 \
src/elpa2/elpa2_herm_matrix_allreduce_complex_template.F90 \
src/elpa2/kernels/real_template.F90 \
src/elpa2/kernels/complex_template.F90 \
src/elpa2/kernels/simple_template.F90 \
src/elpa2/pack_unpack_cpu.F90 \
src/elpa2/pack_unpack_gpu.F90 \
src/elpa2/compute_hh_trafo.F90 \
src/elpa2/redist_band.F90 \
src/general/sanity.F90 \
src/elpa1/elpa_cholesky_template.F90 \
src/elpa1/elpa_invert_trm.F90 \
src/elpa1/elpa_multiply_a_b.F90 \
src/elpa1/elpa_solve_tridi_impl_public.F90 \
src/general/precision_macros.h
if ENABLE_LEGACY
EXTRA_libelpa@SUFFIX@_private_la_DEPENDENCIES += \
src/elpa1/legacy_interface/elpa1_template.X90 \
src/elpa2/legacy_interface/elpa2_template.X90 \
src/elpa1/legacy_interface/elpa1_c_interface_template.X90 \
src/elpa2/legacy_interface/elpa2_c_interface_template.X90 \
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_cholesky_template.X90 \
src/elpa1/legacy_interface/elpa_invert_trm.X90 \
src/elpa1/legacy_interface/elpa_multiply_a_b.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi.X90
src/elpa1/legacy_interface/elpa1_template.F90 \
src/elpa2/legacy_interface/elpa2_template.F90 \
src/elpa1/legacy_interface/elpa1_c_interface_template.F90 \
src/elpa2/legacy_interface/elpa2_c_interface_template.F90 \
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_cholesky_template.F90 \
src/elpa1/legacy_interface/elpa_invert_trm.F90 \
src/elpa1/legacy_interface/elpa_multiply_a_b.F90 \
src/elpa1/legacy_interface/elpa_solve_tridi.F90
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.Xcu 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.X90 \
src/elpa1/legacy_interface/elpa1_template.X90 \
src/elpa2/legacy_interface/elpa2_template.X90 \
src/elpa1/legacy_interface/elpa1_c_interface_template.X90 \
src/elpa2/legacy_interface/elpa2_c_interface_template.X90 \
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.X90 \
src/elpa1/legacy_interface/elpa_cholesky_template.X90 \
src/elpa1/legacy_interface/elpa_invert_trm.X90 \
src/elpa1/legacy_interface/elpa_multiply_a_b.X90 \
src/elpa1/legacy_interface/elpa_solve_tridi.X90
src/elpa1/elpa1_solve_tridi_real_template.F90 \
src/elpa1/legacy_interface/elpa1_template.F90 \
src/elpa2/legacy_interface/elpa2_template.F90 \
src/elpa1/legacy_interface/elpa1_c_interface_template.F90 \
src/elpa2/legacy_interface/elpa2_c_interface_template.F90 \
src/elpa_driver/legacy_interface/elpa_driver_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_solve_tridi_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_mult_at_b_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_mult_ah_b_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_invert_trm_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_cholesky_c_interface_template.F90 \
src/elpa1/legacy_interface/elpa_cholesky_template.F90 \
src/elpa1/legacy_interface/elpa_invert_trm.F90 \
src/elpa1/legacy_interface/elpa_multiply_a_b.F90 \
src/elpa1/legacy_interface/elpa_solve_tridi.F90
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.X90
src/fortran_constants.X90: $(top_srcdir)/src/fortran_constants.h | src
generated_headers += src/fortran_constants.F90
src/fortran_constants.F90: $(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.
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.X90"
#include "elpa1_template.F90"
#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.X90"
#include "elpa1_template.F90"
#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.X90"
#include "elpa1_template.F90"
#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.X90"
#include "elpa1_template.F90"
#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.X90"
#include "elpa_cholesky_template.F90"
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.X90"
#include "elpa_cholesky_template.F90"
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.X90"
#include "elpa_invert_trm.F90"
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.X90"
#include "elpa_invert_trm.F90"
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.X90"
#include "elpa_cholesky_template.F90"
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.X90"
#include "elpa_cholesky_template.F90"
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.X90"
#include "elpa_invert_trm.F90"
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.X90"
#include "elpa_invert_trm.F90"
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.X90"
#include "elpa_multiply_a_b.F90"
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.X90"
#include "elpa_multiply_a_b.F90"
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.X90"
#include "elpa_multiply_a_b.F90"
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.X90"
#include "elpa_multiply_a_b.F90"
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.X90"
#include "elpa_solve_tridi_impl_public.F90"
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.X90"
#include "elpa_solve_tridi_impl_public.F90"
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.X90"
#include "elpa_reduce_add_vectors.X90"
#include "elpa_transpose_vectors.F90"
#include "elpa_reduce_add_vectors.F90"
#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.X90"
#include "elpa_reduce_add_vectors.X90"
#include "elpa_transpose_vectors.F90"
#include "elpa_reduce_add_vectors.F90"
#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.X90"
#include "elpa_reduce_add_vectors.X90"
#include "elpa_transpose_vectors.F90"
#include "elpa_reduce_add_vectors.F90"
#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.X90"
#include "elpa_reduce_add_vectors.X90"
#include "elpa_transpose_vectors.F90"
#include "elpa_reduce_add_vectors.F90"
#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.X90"
#include "elpa1_compute_template.F90"
#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.X90"
#include "elpa1_compute_template.F90"
#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.X90"
#include "elpa1_compute_template.F90"
#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.X90"
#include "elpa1_compute_template.F90"
#undef COMPLEXCASE
#undef SINGLE_PRECISION
......
src/elpa1/elpa1_compute_template.X90 → src/elpa1/elpa1_compute_template.F90
View file @ 3d7530c3
......@@ -54,7 +54,7 @@
! Author: Andreas Marek, MPCDF
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
#if REALCASE == 1
......@@ -67,11 +67,11 @@
#if REALCASE == 1
#include "elpa1_tridiag_template.X90"
#include "elpa1_trans_ev_template.X90"
#include "elpa1_tridiag_template.F90"
#include "elpa1_trans_ev_template.F90"
! now comes a dirty hack:
! the file elpa1_solve_tridi_real_template.X90 must be included twice
! the file elpa1_solve_tridi_real_template.F90 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.X90"
#include "elpa1_solve_tridi_real_template.F90"
#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.X90"
#include "elpa1_solve_tridi_real_template.F90"
#undef PRECISION_AND_SUFFIX
#include "elpa1_merge_systems_real_template.X90"
#include "elpa1_tools_template.X90"
#include "elpa1_merge_systems_real_template.F90"
#include "elpa1_tools_template.F90"
#endif
#if COMPLEXCASE == 1
#include "elpa1_tridiag_template.X90"
#include "elpa1_trans_ev_template.X90"
#include "elpa1_tools_template.X90"
#include "elpa1_tridiag_template.F90"