GEANT321/gxuser/uglast.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:52  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.35  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE UGLAST
  13 *
  14 ************************************************************************
  15 *                                                                      *
  16 *            Termination routine to print histograms and statistics    *
  17 *                                                                      *
  18 ************************************************************************
  19 #include "geant321/gcomis.inc"
  20 *
  21 *     -----------------------------------------------------------------
  22 *
  23 #if defined(CERNLIB_COMIS)
  24       IF(JULAST.NE.0)THEN
  25          CALL CSJCAL(JULAST,0,X,X,X,X,X,X,X,X,X,X)
  26          GO TO 99
  27       ENDIF
  28 #endif
  29       CALL GLAST
  30 *
  31 *             Close HIGZ
  32 *
  33       CALL IGEND
  34 *
  35   99  END
  36