From 3bf4461fb7255b88a90a274132cf63f7576d9b7c Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 24 Aug 2011 23:03:50 -0400
Subject: Zero level shift function modified

---
 xmds2/Genas_system/Genas_system.xmds | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/xmds2/Genas_system/Genas_system.xmds b/xmds2/Genas_system/Genas_system.xmds
index 24cc2b4..e032b48 100644
--- a/xmds2/Genas_system/Genas_system.xmds
+++ b/xmds2/Genas_system/Genas_system.xmds
@@ -72,12 +72,7 @@
 				double delta0z(double z) {
 					// calculates detuning/shift of  exited m=0 sublevel as a function of z
 					double delta;
-					// printf("z=%g \t delta0= %g\n", z,  delta0);
-					if (z <= 0.09) {
-						delta = 1.0*delta0;
-					} else {
-						delta = -1.0*delta0;
-					}
+					delta = ( atan(100*(1.0-2.*z/zmax))/pi*2 )*delta0;
 					return delta;
 				}
 			]]>
-- 
cgit v1.2.3