diff options
author | knarf <knarf@10716dce-81a3-4424-a2c8-48026a0d3035> | 2014-05-27 16:43:32 +0000 |
---|---|---|
committer | knarf <knarf@10716dce-81a3-4424-a2c8-48026a0d3035> | 2014-05-27 16:43:32 +0000 |
commit | c93a838882a735bf37583541d741f736775f99ad (patch) | |
tree | 5a07a2da39fb45c34e2e4239f024e3074d73a98f | |
parent | 63a10a2e6c5191f461bca6fc78108342c6a608ac (diff) |
provide conversion from INT4 to REAL8svn
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHSlab/trunk@171 10716dce-81a3-4424-a2c8-48026a0d3035
-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; |