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