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

Added small sample plate, commented out at the moment.

Browse Source
This commit is contained in:
prokscha 2007-09-07 13:07:38 +00:00
parent cf8b194834
commit 78a674886f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -380,6 +380,7 @@ c 1. Cu plate (sample holder) on Cold finger, 0.5cm
c c
par_tube(1) = 0. par_tube(1) = 0.
par_tube(2) = 3.5 par_tube(2) = 3.5
c par_tube(2) = 2.1 ! small sample plate
par_tube(3) = 0.25 par_tube(3) = 0.25
c c
if ( samp_mat .eq. 'saal' ) then if ( samp_mat .eq. 'saal' ) then
@ -396,6 +397,7 @@ c 2. Cu plate (0.4cm), sample is mounted on this plate
c c
par_tube(1) = 0. par_tube(1) = 0.
par_tube(2) = 3.5 par_tube(2) = 3.5
c par_tube(2) = 2.1 ! small sample plate
par_tube(3) = 0.2 par_tube(3) = 0.2
c c
call gsvolu('SAH2','TUBE',mat_type,par_tube,3,ivol) call gsvolu('SAH2','TUBE',mat_type,par_tube,3,ivol)
@ -411,6 +413,8 @@ c
c c
c Sample mounting ring (0.1cm), 4cm inner diameter c Sample mounting ring (0.1cm), 4cm inner diameter
c c
c par_tube(1) = 1.5
c par_tube(2) = 2.1
par_tube(1) = 2. par_tube(1) = 2.
par_tube(2) = 3.5 par_tube(2) = 3.5
par_tube(3) = 0.05 par_tube(3) = 0.05
@ -437,6 +441,7 @@ c
c Sapphire mounted between 1. and 2. Cu plate, 0.6cm thick, 6cm diameter c Sapphire mounted between 1. and 2. Cu plate, 0.6cm thick, 6cm diameter
c c
par_tube(1) = 0. par_tube(1) = 0.
c par_tube(2) = 1.6
par_tube(2) = 3.0 par_tube(2) = 3.0
par_tube(3) = 0.3 par_tube(3) = 0.3
c c