gpamela/gpmain/gpmain.F

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