Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2021-02-14 13:29:34

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