From 25c7fa1cecfb9a06bf538fe29b605bfe699635e9 Mon Sep 17 00:00:00 2001
From: Thomas Prokscha <thomas.prokscha@psi.ch>
Date: Fri, 9 Feb 2007 08:54:44 +0000
Subject: [PATCH] Do automatic h2root after creation of HBOOK file.

---
 geant3/paw/geant_dohist.kumac | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/geant3/paw/geant_dohist.kumac b/geant3/paw/geant_dohist.kumac
index 8047455..df9c3c5 100644
--- a/geant3/paw/geant_dohist.kumac
+++ b/geant3/paw/geant_dohist.kumac
@@ -20,6 +20,8 @@
 		exitm
 	endif
 	runno = [1]
+        file  = geant_[1].rz
+        rFile = geant_[1].root 
 *
 *	cuts for e+ and e- and gammas
 *
@@ -161,3 +163,21 @@ nt/pl 111.tsci partcode=17.and.$7 -707
 mess NTPlot bot id=708
 nt/pl 111.tsci partcode=17.and.$8 -708
 
+close 0
+hi/file 20 [file] ! n
+hrou 0
+close 20
+mess
+mess Histograms written to [file]
+mess
+
+sh h2root [file]
+
+mess
+mess Histogram file [file] converted to root format.
+mess
+
+sh rm -vf [file]
+sh mv -v [rfile] ../data
+
+