From 78603eb5beb1a94639853022da48a6c497227ef5 Mon Sep 17 00:00:00 2001
From: tradke <tradke@b32723a9-ab3a-4a60-88e2-2e5d99d7c17a>
Date: Tue, 30 Apr 2002 14:12:40 +0000
Subject: Cannot downgrade precision for CCTK_SCALAR output.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOUtil/trunk@159 b32723a9-ab3a-4a60-88e2-2e5d99d7c17a
---
 src/Utils.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Utils.c b/src/Utils.c
index c6a1c98..6c01e76 100644
--- a/src/Utils.c
+++ b/src/Utils.c
@@ -823,7 +823,7 @@ ioRequest *IOUtil_DefaultIORequest (const cGH *GH, int vindex)
 
   /* get the I/O request datatype (will be single-precision if requested) */
   request->hdatatype = CCTK_VarTypeI (vindex);
-  if (myGH->out_single)
+  if (myGH->out_single && CCTK_GroupTypeFromVarI (vindex) != CCTK_SCALAR)
   {
     if (request->hdatatype == CCTK_VARIABLE_REAL)
     {
-- 
cgit v1.2.3