Use #ifdef HAVE_CCTK_REAL8 instead of #ifdef CCTK_REAL8

git-svn-id: http://svn.aei.mpg.de/numrel/AEIThorns/AEILocalInterp/trunk@66 0f49ee68-0e4f-0410-9b9c-b2c123ded7ef

1 files changed, 35 insertions, 12 deletions

diff --git a/archive/2d.cube.order2.smooth0.c b/archive/2d.cube.order2.smooth0.c
index 34e17ca..b778e71 100644
--- a/archive/2d.cube.order2.smooth0.c
+++ b/archive/2d.cube.order2.smooth0.c
@@ -201,7 +201,6 @@ int point;
 
 		switch	(interp_coord_type_codes[axis])
 			{
-#ifdef CCTK_REAL
 		case CCTK_VARIABLE_REAL:
 			  {
 			const CCTK_REAL *const interp_coords_ptr_real
@@ -209,8 +208,7 @@ int point;
 			interp_coords_fp[axis] = interp_coords_ptr_real[point];
 			break;
 			  }
-#endif
-#ifdef CCTK_REAL4
+#ifdef HAVE_CCTK_REAL4
 		case CCTK_VARIABLE_REAL4:
 			  {
 			const CCTK_REAL4 *const interp_coords_ptr_real4
@@ -219,7 +217,7 @@ int point;
 			break;
 			  }
 #endif
-#ifdef CCTK_REAL8
+#ifdef HAVE_CCTK_REAL8
 		case CCTK_VARIABLE_REAL8:
 			  {
 			const CCTK_REAL8 *const interp_coords_ptr_real8
@@ -320,7 +318,6 @@ int point;
 				input_array_ptr = input_arrays[input];
 				switch	(input_array_type_codes[input])
 					{
-#ifdef CCTK_REAL
 case CCTK_VARIABLE_REAL:
 	  {
 	const CCTK_REAL *const input_array_ptr_real
@@ -331,8 +328,7 @@ case CCTK_VARIABLE_REAL:
 	#include "coeffs/2d.cube.size3.data-var.assign.c"
 	break;
 	  }
-#endif
-#ifdef CCTK_REAL4
+#ifdef HAVE_CCTK_REAL4
 case CCTK_VARIABLE_REAL4:
 	  {
 	const CCTK_REAL4 *const input_array_ptr_real4
@@ -344,7 +340,7 @@ case CCTK_VARIABLE_REAL4:
 	break;
 	  }
 #endif
-#ifdef CCTK_REAL8
+#ifdef HAVE_CCTK_REAL8
 case CCTK_VARIABLE_REAL8:
 	  {
 	const CCTK_REAL8 *const input_array_ptr_real8
@@ -356,7 +352,6 @@ case CCTK_VARIABLE_REAL8:
 	break;
 	  }
 #endif
-#ifdef CCTK_COMPLEX
 case CCTK_VARIABLE_COMPLEX:
 	  {
 	const CCTK_COMPLEX *const input_array_ptr_complex
@@ -368,8 +363,7 @@ case CCTK_VARIABLE_COMPLEX:
 	#include "coeffs/2d.cube.size3.data-var.assign.c"
 	break;
 	  }
-#endif
-#ifdef CCTK_COMPLEX8
+#ifdef HAVE_CCTK_COMPLEX8
 case CCTK_VARIABLE_COMPLEX8:
 	  {
 	const CCTK_COMPLEX8 *const input_array_ptr_complex8
@@ -382,7 +376,7 @@ case CCTK_VARIABLE_COMPLEX8:
 	break;
 	  }
 #endif
-#ifdef CCTK_COMPLEX16
+#ifdef HAVE_CCTK_COMPLEX16
 case CCTK_VARIABLE_COMPLEX16:
 	  {
 	const CCTK_COMPLEX16 *const input_array_ptr_complex16
@@ -444,6 +438,7 @@ case CCTK_VARIABLE_REAL:
 	output_array_ptr_real[point] = result;
 	break;
 	  }
+#ifdef HAVE_CCTK_REAL4
 case CCTK_VARIABLE_REAL4:
 	  {
 	CCTK_REAL4 *const output_array_ptr_real4
@@ -451,6 +446,8 @@ case CCTK_VARIABLE_REAL4:
 	output_array_ptr_real4[point] = result;
 	break;
 	  }
+#endif
+#ifdef HAVE_CCTK_REAL8
 case CCTK_VARIABLE_REAL8:
 	  {
 	CCTK_REAL8 *const output_array_ptr_real8
@@ -458,6 +455,16 @@ case CCTK_VARIABLE_REAL8:
 	output_array_ptr_real8[point] = result;
 	break;
 	  }
+#endif
+#ifdef HAVE_CCTK_REAL16
+case CCTK_VARIABLE_REAL16:
+	  {
+	CCTK_REAL16 *const output_array_ptr_real16
+		= (CCTK_REAL16 *) output_arrays[output];
+	output_array_ptr_real16[point] = result;
+	break;
+	  }
+#endif
 case CCTK_VARIABLE_COMPLEX:
 	  {
 	CCTK_COMPLEX *const output_array_ptr_complex
@@ -466,6 +473,7 @@ case CCTK_VARIABLE_COMPLEX:
 		= result;
 	break;
 	  }
+#ifdef HAVE_CCTK_COMPLEX8
 case CCTK_VARIABLE_COMPLEX8:
 	  {
 	CCTK_COMPLEX8 *const output_array_ptr_complex8
@@ -474,6 +482,8 @@ case CCTK_VARIABLE_COMPLEX8:
 		= result;
 	break;
 	  }
+#endif
+#ifdef HAVE_CCTK_COMPLEX16
 case CCTK_VARIABLE_COMPLEX16:
 	  {
 	CCTK_COMPLEX16 *const output_array_ptr_complex16
@@ -482,6 +492,17 @@ case CCTK_VARIABLE_COMPLEX16:
 		= result;
 	break;
 	  }
+#endif
+#ifdef HAVE_CCTK_COMPLEX32
+case CCTK_VARIABLE_COMPLEX32:
+	  {
+	CCTK_COMPLEX32 *const output_array_ptr_complex32
+		= (CCTK_COMPLEX32 *) output_arrays[output];
+	((CCTK_REAL16 *)  & output_array_ptr_complex32[point]) [part]
+		= result;
+	break;
+	  }
+#endif
 default:
 	CCTK_VWarn(1, __LINE__, __FILE__, CCTK_THORNSTRING,
 		   "output datatype %d not supported",
@@ -497,11 +518,13 @@ default:
 			case CCTK_VARIABLE_REAL:
 			case CCTK_VARIABLE_REAL4:
 			case CCTK_VARIABLE_REAL8:
+			case CCTK_VARIABLE_REAL16:
 				complex_flag = false;
 				break;
 			case CCTK_VARIABLE_COMPLEX:
 			case CCTK_VARIABLE_COMPLEX8:
 			case CCTK_VARIABLE_COMPLEX16:
+			case CCTK_VARIABLE_COMPLEX32:
 				complex_flag = true;
 				break;
 			default: