From 1cc80452e2142d5dcfab6f713550cecb83e58724 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Mon, 19 Nov 2012 13:09:58 -0500
Subject: [PATCH] Fix HDF5 compile errors.

---
 src/hdf5_interface.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90
index 30667fd9e..45cf84cf8 100644
--- a/src/hdf5_interface.F90
+++ b/src/hdf5_interface.F90
@@ -462,7 +462,9 @@ contains
     integer(HSIZE_T)  :: dims(1)
     integer(HID_T)    :: tallies_group
     integer(HID_T)    :: temp_group
-    type(TallyObject),    pointer :: t => null()
+    integer(HID_T)    :: filter_group     ! group for i-th filter
+    integer, allocatable :: temp_array(:) ! nuclide bin array
+    type(TallyObject), pointer :: t => null()
      
     ! Create group for tallies
     call h5gcreate_f(hdf5_output_file, "tallies", tallies_group, hdf5_err)