File indexing completed on 2024-04-06 12:13:23
0001
0002 subroutine bhsetparam(ival, fval, cval)
0003
0004 integer ival(8)
0005 real fval(4)
0006 character *(*) cval
0007
0008 INTEGER GENMOD ! "rate only" mode (0)
0009 ! or "MC generator" mode (1)
0010 ! or "read from file" mode (2)
0011 INTEGER LHC_B1 ! LHC beam 1 is (off/on = 0/1)
0012 INTEGER LHC_B2 ! LHC beam 1 is (off/on = 0/1)
0013 INTEGER IW_MUO ! I want muons (no/yes = 0/1)
0014 INTEGER IW_HAD ! I want hadrons (no/yes = 0/1)
0015 REAL EG_MIN ! minimum energy [GeV]
0016 REAL EG_MAX ! maximum energy [GeV]
0017 INTEGER NEVENT !
0018 INTEGER OFFSET !
0019 INTEGER idx_shift_bx ! e.g. -2, -1 for previous bunch-crossing
0020 REAL BXNS ! time between 2 bx's, in ns
0021 REAL W0 ! external per second normalization
0022
0023 CHARACTER*100 G3FNAME ! Genmod = 3 file name
0024
0025 COMMON /BHGCTRL/ GENMOD,LHC_B1,LHC_B2,IW_MUO,IW_HAD,
0026 + NEVENT,OFFSET,idx_shift_bx,
0027 + EG_MIN,EG_MAX,BXNS,
0028 + W0,G3FNAME
0029 c
0030 GENMOD = ival(1)
0031 LHC_B1 = ival(2)
0032 LHC_B2 = ival(3)
0033 IW_MUO = ival(4)
0034 IW_HAD = ival(5)
0035 NEVENT = ival(6)
0036 OFFSET = ival(7)
0037 idx_shift_bx = ival(8)
0038
0039 EG_MIN = fval(1)
0040 EG_MAX = fval(2)
0041 W0 = fval(4)
0042 BXNS = fval(3)
0043
0044 G3FNAME = cval
0045
0046 c
0047 write(6,*) 'GENMOD is ', GENMOD
0048 write(6,*) 'LHC_B1 is ', LHC_B1
0049 write(6,*) 'LHC_B2 is ', LHC_B2
0050 write(6,*) 'IW_MUO is ',IW_MUO
0051 write(6,*) 'IW_HAD is ',IW_HAD
0052 write(6,*) 'NEVENT is ',NEVENT
0053 write(6,*) 'OFFSET is ',OFFSET
0054 write(6,*) 'EG_MIN is ',EG_MIN
0055 write(6,*) 'EG_MAX is ',EG_MAX
0056 write(6,*) 'idx_shift_bx is ',idx_shift_bx
0057 write(6,*) 'BXNS is ',BXNS
0058 write(6,*) 'W0 is ',W0
0059 write(6,*) 'G3FNAME is ',G3FNAME
0060
0061
0062 return
0063 end
0064
