From b92bcd5c69bd2bc3a90752fb5066d80566d25eca Mon Sep 17 00:00:00 2001
From: Mark Jones <jones@jlab.org>
Date: Wed, 31 Mar 2021 21:33:27 -0400
Subject: [PATCH] Updated mc_shms.f
Aruni found mistakes in some of the dipole
aperture offsets.
---
shms/mc_shms.f | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/shms/mc_shms.f b/shms/mc_shms.f
index a5739e6..e068093 100755
--- a/shms/mc_shms.f
+++ b/shms/mc_shms.f
@@ -799,7 +799,7 @@ c pathlen=tpathlen
xt=xs
yt=ys
call rotate_haxis(6.9,xt,yt)
- xt = xt + 8.1
+ xt = xt + 8.05
x_d_m1=xt
y_d_m1=yt
if ((xt*xt + yt*yt).gt.r_D1*r_D1) then
@@ -904,7 +904,7 @@ c pathlen=tpathlen
xt=xs
yt=ys
call rotate_haxis(-6.9,xt,yt)
- xt = xt + 8.5
+ xt = xt + 8.05
x_d_m7=xt
y_d_m7=yt
if ((xt*xt + yt*yt).gt.r_D1*r_D1) then
@@ -942,7 +942,7 @@ c pathlen=tpathlen
xt=xs
yt=ys
call rotate_haxis(-9.20,xt,yt)
- xt = xt - 6.9
+ xt = xt - 6.88
x_d_out=xt
y_d_out=yt
if ((xt*xt + yt*yt).gt.r_D1*r_D1) then
--
GitLab