| d909f169 |
1 | integer function herwig6_common_block_address(common_block_name) |
| 2 | c----------------------------------------------------------------------- |
| 3 | include "HERWIG61.INC" |
| 4 | |
| 5 | character*(*) common_block_name |
| 6 | external HWUDAT |
| 7 | c----------------------------------------------------------------------- |
| 8 | integer herwig6_addressc, herwig6_addressi |
| 9 | integer herwig6_addressd, herwig6_addressf |
| 10 | external herwig6_addressc, herwig6_addressi |
| 11 | external herwig6_addressd, herwig6_addressf |
| 12 | integer common_block_address |
| 13 | c----------------------------------------------------------------------- |
| 14 | common_block_address = 0 |
| 15 | c----------------------------------------------------------------------- |
| 16 | if (common_block_name.eq."HEPEVT") then |
| 17 | common_block_address = herwig6_addressi(NEVHEP) |
| 18 | elseif (common_block_name.eq."HWBEAM") then |
| 19 | common_block_address = herwig6_addressi(IPART1) |
| 20 | elseif (common_block_name.eq."HWBMCH") then |
| 21 | common_block_address = herwig6_addressc(PART1) |
| 22 | elseif (common_block_name.eq."HWPROC") then |
| 23 | common_block_address = herwig6_addressd(EBEAM1) |
| 24 | elseif (common_block_name.eq."HWPRAM") then |
| 25 | common_block_address = herwig6_addressd(AFCH) |
| 26 | elseif (common_block_name.eq."HWPRCH") then |
| 27 | common_block_address = herwig6_addressc(AUTPDF) |
| 28 | elseif (common_block_name.eq."HWPART") then |
| 29 | common_block_address = herwig6_addressi(NEVPAR) |
| 30 | elseif (common_block_name.eq."HWPARP") then |
| 31 | common_block_address = herwig6_addressd(DECPAR) |
| 32 | elseif (common_block_name.eq."HWBOSC") then |
| 33 | common_block_address = herwig6_addressd(ALPFAC) |
| 34 | elseif (common_block_name.eq."HWPARC") then |
| 35 | common_block_address = herwig6_addressi(JCOPAR) |
| 36 | elseif (common_block_name.eq."HWBRCH") then |
| 37 | common_block_address = herwig6_addressd(ANOMSC) |
| 38 | elseif (common_block_name.eq."HWEVNT") then |
| 39 | common_block_address = herwig6_addressd(AVWGT) |
| 40 | elseif (common_block_name.eq."HWHARD") then |
| 41 | common_block_address = herwig6_addressd(ASFIXD) |
| 42 | elseif (common_block_name.eq."HWPROP") then |
| 43 | common_block_address = herwig6_addressd(RLTIM) |
| 44 | elseif (common_block_name.eq."HWUNAM") then |
| 45 | common_block_address = herwig6_addressc(RNAME) |
| 46 | elseif (common_block_name.eq."HWUPDT") then |
| 47 | common_block_address = herwig6_addressd(BRFRAC) |
| 48 | elseif (common_block_name.eq."HWUWTS") then |
| 49 | common_block_address = herwig6_addressd(REPWT) |
| 50 | elseif (common_block_name.eq."HWUCLU") then |
| 51 | common_block_address = herwig6_addressd(CLDKWT) |
| 52 | elseif (common_block_name.eq."HWDIST") then |
| 53 | common_block_address = herwig6_addressd(EXAG) |
| 54 | elseif (common_block_name.eq."HWQDKS") then |
| 55 | common_block_address = herwig6_addressd(VTXQDK) |
| 56 | elseif (common_block_name.eq."HWUSUD") then |
| 57 | common_block_address = herwig6_addressd(ACCUR) |
| 58 | elseif (common_block_name.eq."HWSUSY") then |
| 59 | common_block_address = herwig6_addressd(TANB) |
| 60 | elseif (common_block_name.eq."HWRPAR") then |
| 61 | common_block_address = herwig6_addressd(LAMDA1) |
| 62 | elseif (common_block_name.eq."HWMINB") then |
| 63 | common_block_address = herwig6_addressd(PMBN1) |
| 64 | elseif (common_block_name.eq."HWCLUS") then |
| 65 | common_block_address = herwig6_addressd(PPCL) |
| 66 | endif |
| 67 | c----------------------------------------------------------------------- |
| 68 | herwig6_common_block_address = common_block_address |
| 69 | end |
git://git.uio.no / u / mrichter / AliRoot.git / blame