[u/mrichter/AliRoot.git] / GEANT321 / geant321 / paprop.inc

*
* $Id$
*
* $Log$
* 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
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	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