From 0b31b0f3a57807f92b39ebf51c0961c9e0a20e3d Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 24 Aug 2011 20:24:06 -0400
Subject: Added function which defines shift of level |3> as function of z

---
 xmds2/Genas_system/Genas_system.xmds | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/xmds2/Genas_system/Genas_system.xmds b/xmds2/Genas_system/Genas_system.xmds
index 189c0a6..64b6a7d 100644
--- a/xmds2/Genas_system/Genas_system.xmds
+++ b/xmds2/Genas_system/Genas_system.xmds
@@ -68,6 +68,18 @@
 				complex  Exc, Eyc; // Complex-conjugated Rabi frequency
 
 				complex  r21, r31, r41, r32, r42, r43, r44;   // density matrix elements
+
+				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;
+					}
+					return delta;
+				}
 			]]>
 		</globals>
 		<benchmark />
-- 
cgit v1.2.3