include/f77/gpgene.inc

*
* $Id: gpgene.inc,v 1.5 2009-06-12 18:39:53 pam-rm2 Exp $
*
* $Log: gpgene.inc,v $
* Revision 1.5  2009-06-12 18:39:53  pam-rm2
* - Introduced user-defined names of output files and random seeds number.
* Users can do it use options of PamVMCApplication constructor:
* PamVMCApplication(const char* name,  const char *title, const char*
* filename="pamtest", Int_t seed=0).
* The Random object that I use is TRandom3 object which has astronomical
* large period (in case of default initialization 0). All random generators
* in the code use this object by calling of gRandom singleton which keeps
* it.
*
* - Corrected TOF digitization routine. No problems with TDC hits due to
* hadronic interactions anymore.
*
* - Some small changes was done to compile code under Root 5.23. +
* geant4_vmc v. 2.6 without any warnings
*
* - Some classes of PamG4RunConfiguartion was changed for geant4_vmc v.
* 2.6.Some obsolete classes was deleted as soon as developers implemented
* regions.
*
* - Navigation was changed from "geomRootToGeant4" to "geomRoot", because on
* VMC web page written that as soon as Geant4 has no option ONLY/MANY
* translation of overlapped geometry to Geant4 through VGM could be wrong.
* I'd like to stay with Root navigation:
* http://root.cern.ch/root/vmc/Geant4VMC.html. This should be default
* option.
*
* - New Tracker digitization routine written by Sergio was implemented
*
* - PamVMC again became compatible with geant4_vmc v.2.5 and ROOT 5.20.
*  The problem was that ROOT developers introduced in TVirtualMC class a new
* method SetMagField and new base class:TVirtualMagField from which
* user-defined classes shoukd be derived
*
* Revision 1.1  2009-02-19 17:46:24  nikolas
* Cleaning up before releasing
*
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpgene.inc
*
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 01/03/2000  21.21.39  by  Francesco Cafagna
*CMZ :  1.00/02 30/11/95  18.28.40  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   30/11/95
*
*  Common with general infos on the event vertex.
*  To be used for CWN booking and filling
*  With the RUN and EVENT number, the particle type and initial position
*  and momentum are stored.
*
       INTEGER IRUN,IEVNT,IPA
       REAL X0,Y0,Z0,THETA,PHI,P0,THMIN,THMAX,PHMIN,PHMAX
       COMMON /GMGENE/IRUN,IEVNT,IPA,X0,Y0,Z0,THETA,PHI,P0,
     +      THMIN,THMAX,PHMIN,PHMAX
*
1	*
2	* $Id: gpgene.inc,v 1.5 2009-06-12 18:39:53 pam-rm2 Exp $
3	*
4	* $Log: gpgene.inc,v $
5	* Revision 1.5 2009-06-12 18:39:53 pam-rm2
6	* - Introduced user-defined names of output files and random seeds number.
7	* Users can do it use options of PamVMCApplication constructor:
8	* PamVMCApplication(const char* name, const char title, const char
9	* filename="pamtest", Int_t seed=0).
10	* The Random object that I use is TRandom3 object which has astronomical
11	* large period (in case of default initialization 0). All random generators
12	* in the code use this object by calling of gRandom singleton which keeps
13	* it.
14	*
15	* - Corrected TOF digitization routine. No problems with TDC hits due to
16	* hadronic interactions anymore.
17	*
18	* - Some small changes was done to compile code under Root 5.23. +
19	* geant4_vmc v. 2.6 without any warnings
20	*
21	* - Some classes of PamG4RunConfiguartion was changed for geant4_vmc v.
22	* 2.6.Some obsolete classes was deleted as soon as developers implemented
23	* regions.
24	*
25	* - Navigation was changed from "geomRootToGeant4" to "geomRoot", because on
26	* VMC web page written that as soon as Geant4 has no option ONLY/MANY
27	* translation of overlapped geometry to Geant4 through VGM could be wrong.
28	* I'd like to stay with Root navigation:
29	* http://root.cern.ch/root/vmc/Geant4VMC.html. This should be default
30	* option.
31	*
32	* - New Tracker digitization routine written by Sergio was implemented
33	*
34	* - PamVMC again became compatible with geant4_vmc v.2.5 and ROOT 5.20.
35	* The problem was that ROOT developers introduced in TVirtualMC class a new
36	* method SetMagField and new base class:TVirtualMagField from which
37	* user-defined classes shoukd be derived
38	*
39	* Revision 1.1 2009-02-19 17:46:24 nikolas
40	* Cleaning up before releasing
41	*
42	* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
43	* First GPAMELA release on CVS
44	*
45	*
46	*
47	* gpgene.inc
48	*
49	*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
50	*CMZ : 2.00/00 01/03/2000 21.21.39 by Francesco Cafagna
51	*CMZ : 1.00/02 30/11/95 18.28.40 by Francesco Cafagna
52	*-- Author : Francesco Cafagna 30/11/95
53	*
54	* Common with general infos on the event vertex.
55	* To be used for CWN booking and filling
56	* With the RUN and EVENT number, the particle type and initial position
57	* and momentum are stored.
58	*
59	INTEGER IRUN,IEVNT,IPA
60	REAL X0,Y0,Z0,THETA,PHI,P0,THMIN,THMAX,PHMIN,PHMAX
61	COMMON /GMGENE/IRUN,IEVNT,IPA,X0,Y0,Z0,THETA,PHI,P0,
62	+ THMIN,THMAX,PHMIN,PHMAX
63	*