10 //*$ create paprop.add
13 //*=== paprop ===========================================================*
15 //*----------------------------------------------------------------------*
17 //* include file: paprop copy *
19 //* !!!! n e w v e r s i o n !!!! *
21 //* created on 07 may 1991 by alfredo ferrari & paola sala *
24 //* last change on 03-jul-97 by alfredo ferrari *
26 //* included in the following subroutines or functions: not updated *
28 //* description of the common block(s) and variable(s) *
30 //* /paprop/ contains particle properties *
31 //* btype = literal name of the particle *
32 //* am = particle mass in gev *
33 //* ichrge = electric charge of the particle *
34 //* ibarch = baryonic charge of the particle *
35 //* iscore = explanations for the scored distribution *
36 //* genpar = names of the generalized particles *
37 //* ijdisc = list of the particle types to be discarded *
38 //* thalf = half life of the particle in sec *
39 //* biasdc = decay biasing factors *
40 //* biasin = inelastic interaction biasing factors *
41 //* lhadro = flag for hadrons *
42 //* jspinp = particle spin (in units of 1/2) *
43 //* iparty = particle parity (when defined) *
44 //* iparid = flag used to identify particle types *
45 //* lbsdcy = logical flag for biased decay: if .true. the biasing *
46 //* factor is used as an upper limit to the decay length *
47 //* lprbsd = logical flag for biased decay: if .true. the biasing *
48 //* factor is applied only to primaries *
49 //* lprbsi = logical flag for inelastic interaction biasing: if *
50 //* .true. the biasing factor is applied only to prima- *
52 //* lsclwf = logical flag for low energy neutron fission scoring *
53 //* lscnbl = logical flag for neutron balance scoring *
55 //*----------------------------------------------------------------------*
59 Double_t am[nallwp+7]; //(-6:NALLWP)
60 Double_t amdisc[nallwp+7]; //(-6:NALLWP)
61 Double_t thalf[nallwp+7]; //(-6:NALLWP)
62 Double_t biasdc[nallwp+7]; //(-6:NALLWP)
63 Double_t biasin[nallwp+7]; //(-6:NALLWP)
64 Int_t ichrge[nallwp+7]; //(-6:NALLWP)
65 Int_t ibarch[nallwp+7]; //(-6:NALLWP)
66 Int_t ijdisc[nallwp+7]; //(-6:NALLWP)
67 Int_t jspinp[nallwp+7]; //(-6:NALLWP)
68 Int_t iparty[nallwp+7]; //(-6:NALLWP)
69 Int_t iparid[nallwp+7]; //(-6:NALLWP)
70 Int_t lhadro[nallwp+7]; //(-6:NALLWP)
71 Int_t lbsdcy[nallwp+7]; //(-6:NALLWP)
78 #define PAPROP COMMON_BLOCK(PAPROP,paprop)
79 COMMON_BLOCK_DEF(papropCommon,PAPROP);
82 Char_t btype[nallwp+7][8]; //(-6:NALLWP)
83 Char_t genpar[30][8]; //(30)
85 #define CHPPRP COMMON_BLOCK(CHPPRP,chpprp)
86 COMMON_BLOCK_DEF(chpprpCommon,CHPPRP);