gpamela/gcdes/paprop.inc

*
* $Id: paprop.inc,v 1.1.1.1 1995/10/24 10:20:41 cernlib Exp $
*
* $Log: paprop.inc,v $
* Revision 1.1.1.1  1995/10/24 10:20:41  cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_PAPROP_INC
#define CERNLIB_GEANT321_PAPROP_INC
*
*
* paprop.inc
*
*
*=== paprop ===========================================================*
*
*----------------------------------------------------------------------*
*     include file: paprop copy                   created 26/11/86 by p*
*     changes: on  16 december 1992 by Alfredo Ferrari                 *
*     included in the following subroutines or functions: not updated  *
*                                                                      *
*     description of the common block(s) and variable(s)               *
*                                                                      *
*     /paprop/ contains particle properties                            *
*        btype  = literal name of the particle                         *
*        am     = particle mass in gev                                 *
*        ichrge = electric charge of the particle                      *
*        iscore = explanations for the scored distribution             *
*        genpar = names of the generalized particles                   *
*        ijdisc = list of the particle types to be discarded           *
*        thalf  = half life of the particle in sec                     *
*        biasdc = decay biasing factors                                *
*        biasin = inelastic interaction biasing factors                *
*        lhadro = flag for hadrons                                     *
*        jspinp = particle spin (in units of 1/2)                      *
*        lbsdcy = logical flag for biased decay: if .true. the biasing *
*                 factor is used as an upper limit to the decay length *
*        lprbsd = logical flag for biased decay: if .true. the biasing *
*                 factor is applied only to primaries                  *
*        lprbsi = logical flag for inelastic interaction biasing: if   *
*                 .true. the biasing factor is applied only to prima-  *
*                 ries                                                 *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI
      CHARACTER*8 BTYPE,GENPAR
      COMMON / FKPAPR / AM  (NALLWP), AMDISC (NALLWP), THALF  (NALLWP),
     &               BIASDC (NALLWP), BIASIN (NALLWP), ICHRGE (NALLWP),
     &               ISCORE     (10), IJDISC (NALLWP), LHADRO (NALLWP),
     &               JSPINP (NALLWP), LBSDCY (NALLWP), LPRBSD, LPRBSI
      COMMON / FKCHPR / BTYPE  (NALLWP), GENPAR (30)
 

#endif
1	bottai	3.1	*
2			* $Id: paprop.inc,v 1.1.1.1 1995/10/24 10:20:41 cernlib Exp $
3			*
4			* $Log: paprop.inc,v $
5			* Revision 1.1.1.1 1995/10/24 10:20:41 cernlib
6			* Geant
7			*
8			*
9			#ifndef CERNLIB_GEANT321_PAPROP_INC
10			#define CERNLIB_GEANT321_PAPROP_INC
11			*
12			*
13			* paprop.inc
14			*
15			*
16			=== paprop ===========================================================
17			*
18			----------------------------------------------------------------------
19			* include file: paprop copy created 26/11/86 by p*
20			* changes: on 16 december 1992 by Alfredo Ferrari *
21			* included in the following subroutines or functions: not updated *
22			* *
23			* description of the common block(s) and variable(s) *
24			* *
25			* /paprop/ contains particle properties *
26			* btype = literal name of the particle *
27			* am = particle mass in gev *
28			* ichrge = electric charge of the particle *
29			* iscore = explanations for the scored distribution *
30			* genpar = names of the generalized particles *
31			* ijdisc = list of the particle types to be discarded *
32			* thalf = half life of the particle in sec *
33			* biasdc = decay biasing factors *
34			* biasin = inelastic interaction biasing factors *
35			* lhadro = flag for hadrons *
36			* jspinp = particle spin (in units of 1/2) *
37			* lbsdcy = logical flag for biased decay: if .true. the biasing *
38			* factor is used as an upper limit to the decay length *
39			* lprbsd = logical flag for biased decay: if .true. the biasing *
40			* factor is applied only to primaries *
41			* lprbsi = logical flag for inelastic interaction biasing: if *
42			* .true. the biasing factor is applied only to prima- *
43			* ries *
44			* *
45			----------------------------------------------------------------------
46			*
47			LOGICAL LHADRO, LBSDCY, LPRBSD, LPRBSI
48			CHARACTER*8 BTYPE,GENPAR
49			COMMON / FKPAPR / AM (NALLWP), AMDISC (NALLWP), THALF (NALLWP),
50			& BIASDC (NALLWP), BIASIN (NALLWP), ICHRGE (NALLWP),
51			& ISCORE (10), IJDISC (NALLWP), LHADRO (NALLWP),
52			& JSPINP (NALLWP), LBSDCY (NALLWP), LPRBSD, LPRBSI
53			COMMON / FKCHPR / BTYPE (NALLWP), GENPAR (30)
54
55
56			#endif