1 cdaq  1.1 	subroutine g_uglast
 2           *
 3           * This routine cleans up after GEANT
 4           *
 5           * August, 1994, Pat Welch, Oregon State University, tpw@physics.orst.edu
 6           *
 7           * $Log:$
 8           
 9           	implicit none
10           
11           	call glast		! print statistics and histograms
12           
13           	call igend		! close HIGZ files
14           
15           	end