LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added muon stop position to ntuple output; x0,y0 offsets,

Browse Source 
beamspot size scalable and exponential relaxation as additional
option.
This commit is contained in:
prokscha
2007-02-06 14:05:37 +00:00
parent cf7c58ecb2
commit 2439dfdaae
8 changed files with 82 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
geant3/src/lemsr/common.inc
View File

@ -43,7 +43,7 @@ c
c PARFILE: read input parameter from this file
c
real*4 MU_MASS, TWO_PI, POS_MASS, SQR_POS_MASS,
1 MAX_TOTAL_ENERGY, TAU_MUON, MU_GYRO, R_MCP
1 MAX_TOTAL_ENERGY, TAU_MUON, MU_GYRO, R_MCP, C_LIGHT
parameter (MU_MASS = .105658389 ) !muon mass, GeV/c^2
parameter (POS_MASS = 0.51099906 ) ! e+ mass, MeV/c^2
parameter (SQR_POS_MASS = 0.26112 ) ! squared positron mass
@ -52,15 +52,21 @@ c
parameter (TAU_MUON = 2.19703E-6 ) ! muon life time in s
parameter (MU_GYRO = 13554.) ! Hz/G
c
parameter (R_MCP = 1.00 ) ! radius of MCP in cm
parameter (R_MCP = 2.0 ) ! radius of MCP in cm
parameter (TWO_PI = 6.283185307)
parameter (C_LIGHT = 2.99792458E10) ! speed of light in cm/s
c
c-------------------------------------------------------------------
c
real*4 bfield(5) ! new data card with B-field components
c ! bfield(4) = polarization (%)
c ! bfield(5) = polarization (%) in sample
integer*4 ix1 !random generator seed
real*4 bfield(5) ! new data card with B-field components
c ! bfield(4) = polarization (%)
c ! bfield(5) = polarization (%) in sample
real*4 beam_parameter(4) ! new data card with beam parameters
! (1): x0
! (2): y0
! (3): r-fraction r*R_MCP2 defines size
! (4): exponential relaxation rate 1/ns
integer*4 ix1 !random generator seed
c
c count successfull and rejected MICHEL-energy throws
c
@ -114,6 +120,7 @@ c-------------------------------------------------------------------------
c
c--- the common blocks
c
common /beam_offset/ beam_parameter
common /magnetic_field/ bfield
common /seeds/ ix1
common /counter/ cou, rejcou