provide conversion from INT4 to REAL8svn

git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHSlab/trunk@171 10716dce-81a3-4424-a2c8-48026a0d3035

1 files changed, 10 insertions, 0 deletions

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);
@@ -220,6 +224,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
   {
     retval = NULL;