Close material file
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 12 Jan 2000 11:29:27 +0000 (11:29 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 12 Jan 2000 11:29:27 +0000 (11:29 +0000)
TGeant3/TGeant3.cxx

index 6388fc3..40a99ad 100644 (file)
@@ -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