Close material file

diff --git a/TGeant3/TGeant3.cxx b/TGeant3/TGeant3.cxx
index 6388fc3298253ab37e2222e6a8e5b811f3ebad25..40a99ad9bde67a8bf6bf551d900418df116d66b2 100644 (file)
--- 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