Do automatic h2root after creation of HBOOK file.

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
+
+