| 952cc209 |
1 | integer function pythia6_common_block_address(common_block_name) |
| 2 | c----------------------------------------------------------------------- |
| 3 | c revision history: |
| 4 | c ----------------- |
| 5 | c *0001 Jun 29 1998 P.Murat: created |
| 6 | c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA |
| 7 | c----------------------------------------------------------------------- |
| 8 | #include "pythia6.inc" |
| 9 | c#include "stdhep.inc" |
| 10 | c |
| 11 | character*(*) common_block_name |
| 12 | external pydata |
| 13 | c |
| 14 | c----------------------------------------------------------------------- |
| 75f4f395 |
15 | integer pythia6_addressc, pythia6_addressi |
| 16 | integer pythia6_addressd, pythia6_addressf |
| 17 | external pythia6_addressc, pythia6_addressi |
| 18 | external pythia6_addressd, pythia6_addressf |
| 952cc209 |
19 | integer common_block_address |
| 20 | c----------------------------------------------------------------------- |
| 21 | common_block_address = 0 |
| 22 | c----------------------------------------------------------------------- |
| 23 | c GEANT common-blocks |
| 24 | c----------------------------------------------------------------------- |
| 25 | if (common_block_name.eq."HEPEVT") then |
| 26 | common_block_address = pythia6_addressi(NEVHEP) |
| 27 | elseif (common_block_name.eq."PYJETS") then |
| 28 | common_block_address = pythia6_addressi(N) |
| 29 | elseif (common_block_name.eq."PYDAT1") then |
| 30 | common_block_address = pythia6_addressi(MSTU) |
| 31 | elseif (common_block_name.eq."PYDAT2") then |
| 32 | common_block_address = pythia6_addressi(KCHG) |
| 33 | elseif (common_block_name.eq."PYDAT3") then |
| 34 | common_block_address = pythia6_addressi(MDCY) |
| 35 | elseif (common_block_name.eq."PYDAT4") then |
| 36 | common_block_address = pythia6_addressc(CHAF) |
| 37 | elseif (common_block_name.eq."PYDATR") then |
| 38 | common_block_address = pythia6_addressi(MRPY) |
| 39 | elseif (common_block_name.eq."PYSUBS") then |
| 40 | common_block_address = pythia6_addressi(MSEL) |
| 41 | elseif (common_block_name.eq."PYPARS") then |
| 42 | common_block_address = pythia6_addressi(MSTP) |
| 43 | elseif (common_block_name.eq."PYINT1") then |
| 44 | common_block_address = pythia6_addressi(MINT) |
| 45 | elseif (common_block_name.eq."PYINT2") then |
| 46 | common_block_address = pythia6_addressi(ISET) |
| 47 | elseif (common_block_name.eq."PYINT3") then |
| 48 | common_block_address = pythia6_addressd(XSFX) |
| 49 | elseif (common_block_name.eq."PYINT4") then |
| 50 | common_block_address = pythia6_addressi(MWID) |
| 51 | elseif (common_block_name.eq."PYINT5" ) then |
| 52 | common_block_address = pythia6_addressi(NGENPD) |
| 53 | elseif (common_block_name.eq."PYINT6" ) then |
| 54 | common_block_address = pythia6_addressc(PROC) |
| 55 | elseif (common_block_name.eq."PYINT7") then |
| 56 | common_block_address = pythia6_addressd(SIGT) |
| 57 | elseif (common_block_name.eq."PYINT8") then |
| 58 | common_block_address = pythia6_addressd(XPVMD) |
| 59 | elseif (common_block_name.eq."PYINT9") then |
| 60 | common_block_address = pythia6_addressd(VXPVMD) |
| 61 | elseif (common_block_name.eq."PYUPPR") then |
| 62 | common_block_address = pythia6_addressi(NUP) |
| 63 | elseif (common_block_name.eq."PYMSSM") then |
| 64 | common_block_address = pythia6_addressi(IMSS) |
| 65 | elseif (common_block_name.eq."PYSSMT") then |
| 66 | common_block_address = pythia6_addressd(ZMIX) |
| 67 | elseif (common_block_name.eq."PYINTS") then |
| 68 | common_block_address = pythia6_addressd(XXM(1)) |
| 69 | elseif (common_block_name.eq."PYBINS") then |
| 70 | common_block_address = pythia6_addressi(IHIST(1)) |
| 71 | endif |
| 72 | c |
| 73 | pythia6_common_block_address = common_block_address |
| 74 | end |
git://git.uio.no / u / mrichter / AliRoot.git / blame