include/f77/gpgene.inc

*
* $Id: gpgene.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $
*
* $Log: gpgene.inc,v $
* 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	nikolas	1.1	*
2			* $Id: gpgene.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $
3			*
4			* $Log: gpgene.inc,v $
5			* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
6			* First GPAMELA release on CVS
7			*
8			*
9			*
10			* gpgene.inc
11			*
12			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
13			*CMZ : 2.00/00 01/03/2000 21.21.39 by Francesco Cafagna
14			*CMZ : 1.00/02 30/11/95 18.28.40 by Francesco Cafagna
15			*-- Author : Francesco Cafagna 30/11/95
16			*
17			* Common with general infos on the event vertex.
18			* To be used for CWN booking and filling
19			* With the RUN and EVENT number, the particle type and initial position
20			* and momentum are stored.
21			*
22			INTEGER IRUN,IEVNT,IPA
23			REAL X0,Y0,Z0,THETA,PHI,P0,THMIN,THMAX,PHMIN,PHMAX
24			COMMON /GMGENE/IRUN,IEVNT,IPA,X0,Y0,Z0,THETA,PHI,P0,
25			+ THMIN,THMAX,PHMIN,PHMAX
26			*