Error in test program headers

This solves issue #14
parent f5feb969
......@@ -65,7 +65,7 @@
endif
#endif
#if DATATYPE == REAL
#ifdef REALCASE
#ifdef DOUBLE_PRECISION_REAL
if (myid .eq. 0) then
print *," "
......@@ -80,18 +80,19 @@
endif
#endif
#else /* DATATYPE == REAL */
#endif
#ifdef COMPLEXCASE
#ifdef DOUBLE_PRECISION_COMPLEX
if (myid .eq. 0) then
print *," "
print *,"Double precision version of ELPA2 is used"
print *,"Complex valued double-precision version of ELPA2 is used"
print *," "
endif
#else
if (myid .eq. 0) then
print *," "
print *,"Single precision version of ELPA2 is used"
print *,"Complex valued single-precision version of ELPA2 is used"
print *," "
endif
#endif
......@@ -128,7 +129,7 @@
print *,"GPU support"
endif
print *," "
#if DATATYPE == REAL
#ifdef REALCASE
#ifdef HAVE_AVX2
......@@ -179,7 +180,7 @@
#endif /* DATATYPE == REAL */
#if DATATYPE == COMPLEX
#ifdef COMPLEXCASE
#ifdef HAVE_AVX2
......
......@@ -138,7 +138,7 @@ program test_complex_double_precision
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#define ELPA1
#include "elpa_test_programs_print_headers.X90"
......
......@@ -141,6 +141,7 @@ program test_complex2_double_precision
integer(kind=ik) :: numberOfDevices
logical :: gpuAvailable
#define COMPLEXCASE
#define DOUBLE_PRECISION_COMPLEX 1
successELPA = .true.
......@@ -155,7 +156,6 @@ program test_complex2_double_precision
STATUS = 0
#define DATATYPE COMPLEX
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_choose_kernel_with_api_double_precision
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_choose_kernel_with_api_single_precision
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_default_kernel_double_precision
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_default_kernel_single_precision
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_gpu_version_double_precision
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_gpu_version_single_precision
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -155,7 +155,7 @@ program test_complex2_single_precision
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -138,7 +138,7 @@ program test_complex_single_precision
STATUS = 0
#define DATATYPE COMPLEX
#define COMPLEXCASE
#define ELPA1
#include "elpa_test_programs_print_headers.X90"
......
......@@ -140,7 +140,7 @@ program test_real_double_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#define ELPA1
#include "elpa_test_programs_print_headers.X90"
......
......@@ -149,7 +149,7 @@ program test_real2_double_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -152,7 +152,7 @@ program test_real2_choose_kernel_with_api_double_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -152,7 +152,7 @@ program test_real2_choose_kernel_with_api_single_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -150,7 +150,7 @@ program test_real2_default_kernel_double_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -159,7 +159,7 @@ program test_real2_default_kernel_qr_decomposition_double_precision
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -159,7 +159,7 @@ program test_real2_default_kernel_qr_decomposition_single_precision
gpuAvailable = check_for_gpu(myid, numberOfDevices)
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -150,7 +150,7 @@ program test_real2_default_kernel_single_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -152,7 +152,7 @@ program test_real2_gpu_version_double_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -152,7 +152,7 @@ program test_real2_gpu_version_single_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -149,7 +149,7 @@ program test_real2_single_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#include "elpa_test_programs_print_headers.X90"
#ifdef HAVE_DETAILED_TIMINGS
......
......@@ -140,7 +140,7 @@ program test_real_single_precision
STATUS = 0
#define DATATYPE REAL
#define REALCASE
#define ELPA1
#include "elpa_test_programs_print_headers.X90"
......
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