From c93a838882a735bf37583541d741f736775f99ad Mon Sep 17 00:00:00 2001
From: knarf <knarf@10716dce-81a3-4424-a2c8-48026a0d3035>
Date: Tue, 27 May 2014 16:43:32 +0000
Subject: provide conversion from INT4 to REAL8

git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHSlab/trunk@171 10716dce-81a3-4424-a2c8-48026a0d3035
---
 src/DatatypeConversion.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/DatatypeConversion.c b/src/DatatypeConversion.c
index d083a01..4b0ad95 100644
--- a/src/DatatypeConversion.c
+++ b/src/DatatypeConversion.c
@@ -103,6 +103,10 @@ CONVERSION_FUNCTION (COMPLEX32, COMPLEX16, CONVERT)
 CONVERSION_FUNCTION (COMPLEX32, COMPLEX8, CONVERT)
 #endif
 
+/* predefined conversion functions for integer to real */
+#if defined(HAVE_CCTK_INT4) && defined(HAVE_CCTK_REAL8)
+CONVERSION_FUNCTION (INT4, REAL8, CONVERT)
+#endif
 
 /* prototypes of routines defined in this source file */
 static int PUGHSlabi_PrecisionVarType (int type);
@@ -219,6 +223,12 @@ t_hslabConversionFn PUGHSlabi_GetDatatypeConversionFn (int src_type,
   {
     retval = ConvertCOMPLEX32toCOMPLEX16;
   }
+#endif
+#if defined(HAVE_CCTK_REAL8) && defined(HAVE_CCTK_INT4)
+  else if (src_type == CCTK_VARIABLE_INT4 && dst_type == CCTK_VARIABLE_REAL8)
+  {
+    retval = ConvertINT4toREAL8;
+  }
 #endif
   else
   {
-- 
cgit v1.2.3