include/f77/gcunit.inc

*
* $Id: gcunit.inc,v 1.5 2009-06-12 18:39:52 pam-rm2 Exp $
*
* $Log: gcunit.inc,v $
* Revision 1.5  2009-06-12 18:39:52  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:02:13  cafagna
* First GPAMELA release on CVS
*
*
*
* gcunit.inc
*
      COMMON/GCUNIT/LIN,LOUT,NUNITS,LUNITS(5)
      INTEGER LIN,LOUT,NUNITS,LUNITS
      COMMON/GCMAIL/CHMAIL
      CHARACTER*132 CHMAIL
C
*
* gcunit.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcunit
#include "incend.inc"
#endif
1	formato	1.1	*
2			* $Id: gcunit.inc,v 1.5 2009-06-12 18:39:52 pam-rm2 Exp $
3			*
4			* $Log: gcunit.inc,v $
5			* Revision 1.5 2009-06-12 18:39:52 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:02:13 cafagna
43			* First GPAMELA release on CVS
44			*
45			*
46			*
47			* gcunit.inc
48			*
49			COMMON/GCUNIT/LIN,LOUT,NUNITS,LUNITS(5)
50			INTEGER LIN,LOUT,NUNITS,LUNITS
51			COMMON/GCMAIL/CHMAIL
52			CHARACTER*132 CHMAIL
53			C
54			*
55			* gcunit.inc
56			*
57			#if defined(GPAMELA_INCLUDE)
58			*
59			#include "incbeg.inc"
60			+ gcunit
61			#include "incend.inc"
62			#endif