From 345f4f8a402c6a0db3dcb1cf2d13b15be9ffa4b3 Mon Sep 17 00:00:00 2001
From: fca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Wed, 12 Jan 2000 11:29:27 +0000
Subject: [PATCH] Close material file

---
 TGeant3/TGeant3.cxx | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/TGeant3/TGeant3.cxx b/TGeant3/TGeant3.cxx
index 6388fc32982..40a99ad9bde 100644
--- a/TGeant3/TGeant3.cxx
+++ b/TGeant3/TGeant3.cxx
@@ -15,6 +15,9 @@
 
 /*
 $Log$
+Revision 1.19  1999/12/17 09:03:12  fca
+Introduce a names array
+
 Revision 1.18  1999/11/26 16:55:39  fca
 Reimplement CurrentVolName() to avoid memory leaks
 
@@ -3843,6 +3846,7 @@ void TGeant3::WriteEuclid(const char* filnam, const char* topvol,
     }
   }
   fprintf(lun,"END\n");
+  fclose(lun);
   printf(" *** GWEUCL *** file: %s is now written out\n",filext);
   printf(" *** GWEUCL *** file: %s is now written out\n",filetme);
   // Clean up
-- 
2.31.1