Commit 979f7df9 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix some preprocessor definitions

parent fc5a0040
...@@ -274,26 +274,26 @@ program test ...@@ -274,26 +274,26 @@ program test
endif endif
#ifdef TEST_HERMITIAN_MULTIPLY #ifdef TEST_HERMITIAN_MULTIPLY
#if REALCASE == 1 #ifdef TEST_REAL
#ifdef DOUBLE_PRECISION_REAL #ifdef TEST_DOUBLE
b(:,:) = 2.0_rk8 * a(:,:) b(:,:) = 2.0_c_double * a(:,:)
c(:,:) = 0.0_rk8 c(:,:) = 0.0_c_double
#else #else
b(:,:) = 2.0_rk4 * a(:,:) b(:,:) = 2.0_c_float * a(:,:)
c(:,:) = 0.0_rk4 c(:,:) = 0.0_c_float
#endif #endif
#endif #endif
#if COMPLEXCASE == 1 #ifdef TEST_COMPLEX
#ifdef DOUBLE_PRECISION_COMPLEX #ifdef TEST_DOUBLE
b(:,:) = 2.0_ck8 * a(:,:) b(:,:) = 2.0_c_double * a(:,:)
c(:,:) = 0.0_ck8 c(:,:) = (0.0_c_double, 0.0_c_double)
#else #else
b(:,:) = 2.0_ck4 * a(:,:) b(:,:) = 2.0_c_float * a(:,:)
c(:,:) = 0.0_ck4 c(:,:) = (0.0_c_float, 0.0_c_float)
#endif #endif
#endif #endif
...@@ -510,9 +510,9 @@ program test ...@@ -510,9 +510,9 @@ program test
allocate(tmp1(na_rows,na_cols)) allocate(tmp1(na_rows,na_cols))
allocate(tmp2(na_rows,na_cols)) allocate(tmp2(na_rows,na_cols))
#ifdef TEST_DOUBLE #ifdef TEST_DOUBLE
tmp1(:,:) = 0.0_ck8 tmp1(:,:) = (0.0_c_double, 0.0_c_double)
#else #else
tmp1(:,:) = 0.0_ck4 tmp1(:,:) = (0.0_c_float, 0.0_c_float)
#endif #endif
! tmp1 = a**T ! tmp1 = a**T
#ifdef WITH_MPI #ifdef WITH_MPI
......
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