WIP

configure.ac

@@ -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) {

src/helpers/mod_precision.F90

@@ -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

test/shared/test_read_input_parameters.F90

@@ -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