From 355ed298bf660be2a165d2c412fb4e48d2a6492a Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b589c3ab-70e8-4b4d-a09f-cba2dd200880>
Date: Mon, 13 Oct 2003 18:07:49 +0000
Subject: Introduce the new Cactus variable type CCTK_INT1. Extend routines to
 handle the new type.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@144 b589c3ab-70e8-4b4d-a09f-cba2dd200880
---
 src/WriteInfo.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/WriteInfo.c b/src/WriteInfo.c
index 2355074..b6fb1be 100644
--- a/src/WriteInfo.c
+++ b/src/WriteInfo.c
@@ -110,6 +110,12 @@ int IOBasic_WriteInfo (const cGH *GH, int vindex)
       reduction->next->value = (double) ((CCTK_REAL *) ptr)[1];
       reduction->next->is_valid = 1;
     }
+#ifdef CCTK_INT1
+    else if (vtype == CCTK_VARIABLE_INT1)
+    {
+      reduction->value = (double) *(CCTK_INT1 *) ptr;
+    }
+#endif
 #ifdef CCTK_INT2
     else if (vtype == CCTK_VARIABLE_INT2)
     {
-- 
cgit v1.2.3