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

Added offset variable off for z0 position; commented out SAH3, sample holder ring.

Browse Source
This commit is contained in:
prokscha 2007-09-07 12:24:47 +00:00
parent 25c7fa1cec
commit cf8b194834
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
geant3/src/lemsr/gukine.F
View File

@ -38,6 +38,7 @@ c ! rotated e+-momenta
real*4 ubuf(nubuf) real*4 ubuf(nubuf)
real*4 random_1(3), random_2(7) real*4 random_1(3), random_2(7)
real*4 sigma_p real*4 sigma_p
real*4 off
c c
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c c
@ -70,7 +71,8 @@ c
c Cu ring of sample (z/2 = 0.2cm) at z = 1.6 cm c Cu ring of sample (z/2 = 0.2cm) at z = 1.6 cm
c MCP Hamamatsu Z-stack (z/2 = 0.12cm) at z = 1.52 cm c MCP Hamamatsu Z-stack (z/2 = 0.12cm) at z = 1.52 cm
c c
z0 = +1.40002 ! the Hamamatsu, Galileo MCP's end and sample end is at z=1.40cm now off = 0.
z0 = +1.40002+off ! the Hamamatsu, Galileo MCP's end and sample end is at z=1.40cm now
c ! z=1.40002 corresponds to an implatation depth of the c ! z=1.40002 corresponds to an implatation depth of the
c ! mu+ of 200 nm. c ! mu+ of 200 nm.
c c

12
geant3/src/lemsr/ugeom.F
View File

@ -684,16 +684,14 @@ c
c position of sample cryo things c position of sample cryo things
c c
c off = 0.25 c off = 0.25
off = 0.0 off = 0.
if ( l_samp ) then if ( l_samp ) then
call gspos('SAH3',1,'MCPV',0.,0.,+1.35,0,'ONLY') c call gspos('SAH3',1,'MCPV',0.,0.,+1.35+off,0,'ONLY')
call gspos('SAH2',1,'MCPV',0.,0.,+1.6,0,'ONLY') call gspos('SAH2',1,'MCPV',0.,0.,+1.6+off,0,'ONLY')
call gspos('SAPH',1,'MCPV',0.,0.,+2.1,0,'ONLY') call gspos('SAPH',1,'MCPV',0.,0.,+2.1+off,0,'ONLY')
call gspos('SAH1',1,'MCPV',0.,0.,+2.65+off,0,'ONLY') call gspos('SAH1',1,'MCPV',0.,0.,+2.65+off,0,'ONLY')
endif endif
c c
c off = 0.5
off = 0.0
if ( l_cryo ) then ! parts of the CryoVac cryostat if ( l_cryo ) then ! parts of the CryoVac cryostat
call gspos('COFI',1,'MCPV',0.,0.,+3.40+off,0,'ONLY') call gspos('COFI',1,'MCPV',0.,0.,+3.40+off,0,'ONLY')
call gspos('CRY1',1,'MCPV',0.,0.,+4.25+off,0,'ONLY') call gspos('CRY1',1,'MCPV',0.,0.,+4.25+off,0,'ONLY')
@ -703,7 +701,7 @@ c off = 0.5
endif endif
c c
if ( l_crsh ) then if ( l_crsh ) then
call gspos('CRSH',1,'MCPV',0.,0.,+1.6,0,'ONLY') call gspos('CRSH',1,'MCPV',0.,0.,+1.6+off,0,'ONLY')
endif endif
c c
c position of MCP c position of MCP