| b9d0a01d |
1 | #ifndef FPAPROP_H |
| 2 | #define FPAPROP_H 1 |
| 3 | |
| 4 | #include "Rtypes.h" |
| 5 | #include "cfortran.h" |
| 6 | |
| 7 | #include "Fdimpar.h" |
| 8 | |
| 9 | extern "C" { |
| 10 | //*$ create paprop.add |
| 11 | //*copy paprop |
| 12 | //* |
| 13 | //*=== paprop ===========================================================* |
| 14 | //* |
| 15 | //*----------------------------------------------------------------------* |
| 16 | //* * |
| 17 | //* include file: paprop copy * |
| 18 | //* * |
| 19 | //* !!!! n e w v e r s i o n !!!! * |
| 20 | //* * |
| 21 | //* created on 07 may 1991 by alfredo ferrari & paola sala * |
| 22 | //* infn - milan * |
| 23 | //* * |
| 24 | //* last change on 03-jul-97 by alfredo ferrari * |
| 25 | //* * |
| 26 | //* included in the following subroutines or functions: not updated * |
| 27 | //* * |
| 28 | //* description of the common block(s) and variable(s) * |
| 29 | //* * |
| 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- * |
| 51 | //* ries * |
| 52 | //* lsclwf = logical flag for low energy neutron fission scoring * |
| 53 | //* lscnbl = logical flag for neutron balance scoring * |
| 54 | //* * |
| 55 | //*----------------------------------------------------------------------* |
| 56 | //* |
| 57 | |
| 58 | typedef struct { |
| 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) |
| 72 | Int_t iscore[10]; |
| 73 | Int_t lprbsd; |
| 74 | Int_t lprbsi; |
| 75 | Int_t lsclwf; |
| 76 | Int_t lscnbl; |
| 77 | } papropCommon; |
| 78 | #define PAPROP COMMON_BLOCK(PAPROP,paprop) |
| 79 | COMMON_BLOCK_DEF(papropCommon,PAPROP); |
| 80 | |
| 81 | typedef struct { |
| 82 | Char_t btype[nallwp+7][8]; //(-6:NALLWP) |
| 83 | Char_t genpar[30][8]; //(30) |
| 84 | } chpprpCommon; |
| 85 | #define CHPPRP COMMON_BLOCK(CHPPRP,chpprp) |
| 86 | COMMON_BLOCK_DEF(chpprpCommon,CHPPRP); |
| 87 | } |
| 88 | |
| 89 | #endif |
git://git.uio.no / u / mrichter / AliRoot.git / blame