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
This diff is collapsed.
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"
#include "elpa1_trans_ev_template.F90"
#include "elpa1_tools_template.F90"
#define ALREADY_DEFINED 1
......
src/elpa1/elpa1_merge_systems_real_template.X90 → src/elpa1/elpa1_merge_systems_real_template.F90
View file @ 3d7530c3
......@@ -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 &
......
src/elpa1/elpa1_solve_tridi_real_template.X90 → src/elpa1/elpa1_solve_tridi_real_template.F90
View file @ 3d7530c3
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
subroutine solve_tridi_&
&PRECISION_AND_SUFFIX &
......
src/elpa1/elpa1_template.X90 → src/elpa1/elpa1_template.F90
View file @ 3d7530c3
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
function elpa_solve_evp_&
&MATH_DATATYPE&
......
src/elpa1/elpa1_tools_template.X90 → src/elpa1/elpa1_tools_template.F90
View file @ 3d7530c3
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
#if REALCASE == 1
......
src/elpa1/elpa1_trans_ev_template.X90 → src/elpa1/elpa1_trans_ev_template.F90
View file @ 3d7530c3
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
!> \brief Transforms the eigenvectors of a tridiagonal matrix back
!> to the eigenvectors of the original matrix
......
src/elpa1/elpa1_tridiag_template.X90 → src/elpa1/elpa1_tridiag_template.F90
View file @ 3d7530c3
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../general/sanity.X90"
#include "../general/sanity.F90"
#undef SAVE_MATR
#ifdef DOUBLE_PRECISION_REAL
......
src/elpa1/elpa_cholesky_template.X90 → src/elpa1/elpa_cholesky_template.F90
View file @ 3d7530c3
......@@ -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 "../general/sanity.X90"
#include "../general/sanity.F90"
use elpa1_compute
use elpa_utilities
use elpa_mpi
......
src/elpa1/elpa_invert_trm.X90 → src/elpa1/elpa_invert_trm.F90
View file @ 3d7530c3
......@@ -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 "../general/sanity.X90"
#include "../general/sanity.F90"
use precision
use elpa1_compute
......
src/elpa1/elpa_multiply_a_b.X90 → src/elpa1/elpa_multiply_a_b.F90
View file @ 3d7530c3
......@@ -53,7 +53,7 @@
! Author: A. Marek, MPCDF
#include "../general/sanity.X90"
#include "../general/sanity.F90"
use elpa1_compute
use elpa_mpi
......
src/elpa1/elpa_reduce_add_vectors.X90 → src/elpa1/elpa_reduce_add_vectors.F90
View file @ 3d7530c3
......@@ -44,7 +44,7 @@
#endif
#include "config-f90.h"
#include "../general/sanity.X90"
#include "../general/sanity.F90"
subroutine elpa_reduce_add_vectors_&
&MATH_DATATYPE&
......
src/elpa1/elpa_solve_tridi_impl_public.X90 → src/elpa1/elpa_solve_tridi_impl_public.F90
View file @ 3d7530c3
......@@ -54,7 +54,7 @@
#include "../general/sanity.X90"
#include "../general/sanity.F90"
use elpa1_compute, solve_tridi_&
&PRECISION&
......
src/elpa1/elpa_transpose_vectors.X90 → src/elpa1/elpa_transpose_vectors.F90
View file @ 3d7530c3
......@@ -48,7 +48,7 @@
#endif
#include "config-f90.h"
#include "../general/sanity.X90"
#include "../general/sanity.F90"
subroutine elpa_transpose_vectors_&
&MATH_DATATYPE&
......
src/elpa1/legacy_interface/elpa1.F90
View file @ 3d7530c3
......@@ -560,7 +560,7 @@ end function elpa_get_communicators
#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
......@@ -604,7 +604,7 @@ end function elpa_get_communicators
#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 */
......@@ -647,7 +647,7 @@ end function elpa_get_communicators
#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
......@@ -693,7 +693,7 @@ end function elpa_get_communicators
#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/legacy_interface/elpa1_auxiliary.F90
View file @ 3d7530c3
......@@ -288,7 +288,7 @@ module ELPA1_AUXILIARY
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.F90"
end function
#ifdef WANT_SINGLE_PRECISION_REAL
......@@ -315,7 +315,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.F90"
end function
#endif /* WANT_SINGLE_PRECSION_REAL */
......@@ -338,7 +338,7 @@ 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.F90"
end function
#if WANT_SINGLE_PRECISION_REAL
......@@ -361,7 +361,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.F90"
end function
#endif /* WANT_SINGLE_PRECISION_REAL */
......@@ -387,7 +387,7 @@ module ELPA1_AUXILIARY
!> \param wantDebug logical, more debug information on failure
!> \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.F90"
end function
......@@ -412,7 +412,7 @@ module ELPA1_AUXILIARY
!> \param wantDebug logical, more debug information on failure
!> \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.F90"
end function
#endif /* WANT_SINGLE_PRECISION_COMPLEX */
......@@ -437,7 +437,7 @@ 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.F90"
end function
#ifdef WANT_SINGLE_PRECISION_COMPLEX
......@@ -461,7 +461,7 @@ 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.F90"
end function
#endif /* WANT_SINGE_PRECISION_COMPLEX */
......@@ -503,7 +503,7 @@ 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.F90"
end function elpa_mult_at_b_real_double
#if WANT_SINGLE_PRECISION_REAL
......@@ -546,7 +546,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.F90"
end function elpa_mult_at_b_real_single
......@@ -593,7 +593,7 @@ 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.F90"
end function elpa_mult_ah_b_complex_double
......@@ -639,7 +639,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.F90"
end function elpa_mult_ah_b_complex_single
......@@ -669,7 +669,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.F90"
end function
......@@ -699,7 +699,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.F90"
end function
......
src/elpa1/legacy_interface/elpa1_template.X90 → src/elpa1/legacy_interface/elpa1_template.F90
View file @ 3d7530c3
......@@ -52,7 +52,7 @@
! distributed along with the original code in the file "COPYING".
#endif
#include "../../general/sanity.X90"
#include "../../general/sanity.F90"
function elpa_solve_evp_&
&MATH_DATATYPE&
......
src/elpa1/legacy_interface/elpa_1stage_c_interface.F90
View file @ 3d7530c3
......@@ -150,7 +150,7 @@
#include "../../general/precision_macros.h"
!lc> int elpa_solve_evp_real_1stage_double_precision(int na, int nev, double *a, int lda, double *ev, double *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
#include "./elpa1_c_interface_template.X90"
#include "./elpa1_c_interface_template.F90"
#undef REALCASE
#undef DOUBLE_PRECISION
......@@ -186,7 +186,7 @@
!lc> int elpa_solve_evp_real_1stage_single_precision(int na, int nev, float *a, int lda, float *ev, float *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
#include "./elpa1_c_interface_template.X90"
#include "./elpa1_c_interface_template.F90"
#undef SINGLE_PRECISION
#undef REALCASE
#endif /* WANT_SINGLE_PRECISION_REAL */
......@@ -221,7 +221,7 @@
!lc> int elpa_solve_evp_complex_1stage_double_precision(int na, int nev, double complex *a, int lda, double *ev, double complex *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
#include "./elpa1_c_interface_template.X90"
#include "./elpa1_c_interface_template.F90"
#undef COMPLEXCASE
#undef DOUBLE_PRECISION
......@@ -257,7 +257,7 @@
!lc> int elpa_solve_evp_complex_1stage_single_precision(int na, int nev, complex float *a, int lda, float *ev, complex float *q, int ldq, int nblk, int matrixCols, int mpi_comm_rows, int mpi_comm_cols, int mpi_comm_all, int useGPU);
#include "./elpa1_c_interface_template.X90"
#include "./elpa1_c_interface_template.F90"
#undef SINGLE_PRECISION
#undef COMPLEXCASE
......@@ -285,7 +285,7 @@
#define REALCASE 1
#define DOUBLE_PRECISION 1
#include "../../general/precision_macros.h"
#include "./elpa_solve_tridi_c_interface_template.X90"
#include "./elpa_solve_tridi_c_interface_template.F90"