Commit 3d7530c3 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl

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

Anything if it makes Andreas happy :)
parent b233069a
......@@ -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@
......
......@@ -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 $@_
......
This diff is collapsed.
......@@ -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 */
......
......@@ -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
......
......@@ -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
......
......@@ -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"
#include "elpa1_trans_ev_template.F90"
#include "elpa1_tools_template.F90"
#define ALREADY_DEFINED 1
......
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
subroutine merge_systems_&
&PRECISION &
......
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif