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	*
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