From 78a674886f3685adf10fa32f6cb106bf1908459d Mon Sep 17 00:00:00 2001
From: Thomas Prokscha <thomas.prokscha@psi.ch>
Date: Fri, 7 Sep 2007 13:07:38 +0000
Subject: [PATCH] Added small sample plate, commented out at the moment.

---
 geant3/src/lemsr/ugeom.F | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/geant3/src/lemsr/ugeom.F b/geant3/src/lemsr/ugeom.F
index ff509de..f9b757e 100644
--- a/geant3/src/lemsr/ugeom.F
+++ b/geant3/src/lemsr/ugeom.F
@@ -380,6 +380,7 @@ c       1. Cu plate (sample holder) on Cold finger, 0.5cm
 c       
         par_tube(1) = 0.
         par_tube(2) = 3.5
+c        par_tube(2) = 2.1   ! small sample plate
         par_tube(3) = 0.25
 c
         if ( samp_mat .eq. 'saal' ) then
@@ -396,6 +397,7 @@ c       2. Cu plate (0.4cm), sample is mounted on this plate
 c       
         par_tube(1) = 0.
         par_tube(2) = 3.5
+c        par_tube(2) = 2.1  ! small sample plate
         par_tube(3) = 0.2
 c
         call gsvolu('SAH2','TUBE',mat_type,par_tube,3,ivol) 
@@ -411,6 +413,8 @@ c
 c
 c       Sample mounting ring (0.1cm), 4cm inner diameter
 c       
+c        par_tube(1) = 1.5
+c        par_tube(2) = 2.1
         par_tube(1) = 2.
         par_tube(2) = 3.5
         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       
         par_tube(1) = 0.
+c        par_tube(2) = 1.6
         par_tube(2) = 3.0
         par_tube(3) = 0.3
 c