Commit 162baf19 authored by Andreas Marek's avatar Andreas Marek

WIP

parent 65e33ecf
......@@ -208,6 +208,30 @@ if test x"${enable_heterogenous_cluster_support}" = x"yes"; then
fi
AM_CONDITIONAL([HAVE_HETEROGENOUS_CLUSTER_SUPPORT],[test x"$enable_heterogenous_cluster_support" = x"yes"])
dnl 64bit integer support for BLACS/LAPACK/SCALAPACK
AC_MSG_CHECKING(whether 64bit integers should be used for math libraries (BLAS/LAPACK/SCALAPACK))
AC_ARG_ENABLE([64bit-integer-support],
AS_HELP_STRING([--64bit-integer-support],
[allows to link against the 64bit integer versions of the math libraries BLAS, LAPACK, and SCALAPACK]),
[
if test x"$enableval" = x"yes"; then
enable_64bit_integer_support=yes
else
enable_64bit_integer_support=no
fi
],
[enable_64bit_integer_support="no"])
AC_MSG_RESULT([$enable_64bit_integer_support])
if test x"${enable_64bit_integer_support}" = x"yes"; then
AC_DEFINE([HAVE_64BIT_INTEGER_SUPPORT], [1], [allow to link against the 64bit integer versions of math libraries])
fi
AM_CONDITIONAL([HAVE_64BIT_INTEGER_SUPPORT],[test x"$enable_64bit_integer_support" = x"yes"])
AC_MSG_CHECKING(whether C compiler can use _Generic )
AC_COMPILE_IFELSE([AC_LANG_SOURCE([
int main(int argc, char **argv) {
......
......@@ -53,5 +53,14 @@ module precision
integer, parameter :: ik = C_INT32_T
integer, parameter :: lik = C_INT64_T
#if HAVE_64BIT_INTEGER_SUPPORT
integer, parameter :: BLAS_KIND = C_INT32_T
integer, parameter :: BLAS_KIND_TEST = C_INT64_T
integer, parameter :: MPI_KIND = C_INT64_T
#else
integer, parameter :: BLAS_KIND = C_INT32_T
integer, parameter :: MPI_KIND = C_INT32_T
#endif
end module precision
This diff is collapsed.
......@@ -51,12 +51,12 @@ module test_read_input_parameters
implicit none
type input_options_t
integer :: datatype
integer :: na, nev, nblk
integer(kind=MPI_KIND) :: datatype
integer(kind=MPI_KIND) :: na, nev, nblk
type(output_t) :: write_to_file
integer :: this_real_kernel, this_complex_kernel
integer(kind=MPI_KIND) :: this_real_kernel, this_complex_kernel
logical :: realKernelIsSet, complexKernelIsSet
integer :: useQrIsSet, useGPUIsSet
integer(kind=MPI_KIND) :: useQrIsSet, useGPUIsSet
logical :: doSolveTridi, do1stage, do2stage, justHelpMessage, &
doCholesky, doInvertTrm, doTransposeMultiply
end type
......@@ -74,7 +74,7 @@ module test_read_input_parameters
type(input_options_t) :: input_options
character(len=128) :: command_line_argument
integer :: error
integer(kind=MPI_KIND) :: error
if (command_line_argument == "--help") then
print *,"usage: elpa_tests [--help] [datatype={real|complex}] [na=number] [nev=number] "
......@@ -213,7 +213,7 @@ module test_read_input_parameters
! Command line arguments
character(len=128) :: arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10
integer(kind=ik) :: mpierr
integer(kind=MPI_KIND) :: mpierr
! default parameters
input_options%datatype = 1
......@@ -344,7 +344,7 @@ module test_read_input_parameters
use precision
implicit none
integer(kind=ik), intent(out) :: na, nev, nblk
integer(kind=MPI_KIND), intent(out) :: na, nev, nblk
type(output_t), intent(out) :: write_to_file
logical :: skip_check_correctness
......@@ -356,14 +356,14 @@ module test_read_input_parameters
use precision
implicit none
integer(kind=ik), intent(out) :: na, nev, nblk
integer(kind=MPI_KIND), intent(out) :: na, nev, nblk
type(output_t), intent(out) :: write_to_file
logical, intent(out) :: skip_check_correctness
! Command line arguments
character(len=128) :: arg1, arg2, arg3, arg4, arg5
integer(kind=ik) :: mpierr
integer(kind=MPI_KIND) :: mpierr
! default parameters
na = 5000
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment