diff options
| -rw-r--r-- | src/DatatypeConversion.c | 10 |
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; |