gpamela/gpmain/gpmain.F

*
* $Id$
*
* $Log$
*
#if !defined(GPAMELA_INTER)
*CMZ :  2.02/00 10/10/2000  15.15.49  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
*CMZ :  1.00/02 06/02/96  17.34.49  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   30/11/95
      PROGRAM GPMAIN
************************************************************************
*                                                                      *
* Program for PAMELA Simulation with GEANT                             *
* This is the main routine to be used for batch or not                 *
* interactive version                                                  *
*                                                                      *
* Author: Francesco Cafagna, 30/11/95 01.51.27                         *
*                                                                      *
************************************************************************
*
#include "gcflag.inc"
#include "gpmem.inc"
#include "gpzhbo.inc"
#include "gpzcom.inc"
*
*     ------------------------------------------------------------------
*
*   ZEBRA, HBOOK, HIGZ Initialization
      CALL GZEBRA(NWGEAN)
      CALL HLIMIT(-NWPAW)
#if defined(GPAMELA_HIGZ)
      CALL IGINIT(0)
      IWK=0
      CALL IGWKTY(IWK)
*
*
*           Initialize HPLOT
*
      CALL HPLINT(IWK)
      CALL HERMES(6)
      CALL IGSA(0)
#endif
*
*             Geant initialization.
      CALL UGINIT
*
*             Main structures printings.
*
*      CALL GPRINT('PART',0)
      CALL GPRINT('MATE',0)
      CALL GPRINT('TMED',0)
* VOLU printout commented to avoid GEANT bug
*      CALL GPRINT('VOLU',0)
*
*
*             Start events processing.
      CALL GRUN
*
*             End of run.
      CALL UGLAST
      STOP
      END
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			#if !defined(GPAMELA_INTER)
7			*CMZ : 2.02/00 10/10/2000 15.15.49 by Francesco Cafagna
8			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
9			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
10			*CMZ : 1.00/02 06/02/96 17.34.49 by Francesco Cafagna
11			*-- Author : Francesco Cafagna 30/11/95
12			PROGRAM GPMAIN
13			************************************************************************
14			* *
15			* Program for PAMELA Simulation with GEANT *
16			* This is the main routine to be used for batch or not *
17			* interactive version *
18			* *
19			* Author: Francesco Cafagna, 30/11/95 01.51.27 *
20			* *
21			************************************************************************
22			*
23			#include "gcflag.inc"
24			#include "gpmem.inc"
25			#include "gpzhbo.inc"
26			#include "gpzcom.inc"
27			*
28			* ------------------------------------------------------------------
29			*
30			* ZEBRA, HBOOK, HIGZ Initialization
31			CALL GZEBRA(NWGEAN)
32			CALL HLIMIT(-NWPAW)
33			#if defined(GPAMELA_HIGZ)
34			CALL IGINIT(0)
35			IWK=0
36			CALL IGWKTY(IWK)
37			*
38			*
39			* Initialize HPLOT
40			*
41			CALL HPLINT(IWK)
42			CALL HERMES(6)
43			CALL IGSA(0)
44			#endif
45			*
46			* Geant initialization.
47			CALL UGINIT
48			*
49			* Main structures printings.
50			*
51			* CALL GPRINT('PART',0)
52			CALL GPRINT('MATE',0)
53			CALL GPRINT('TMED',0)
54			* VOLU printout commented to avoid GEANT bug
55			* CALL GPRINT('VOLU',0)
56			*
57			*
58			* Start events processing.
59			CALL GRUN
60			*
61			* End of run.
62			CALL UGLAST
63			STOP
64			END
65			#endif