From db12a3f9b81f26c37c4917fdc3f1d916ca4c29d1 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 13 Jun 2012 09:32:43 -0400
Subject: move constant factor (-1) to the operator definition

This is intended for implicit operator calculation, otherwise xmds2
complains about extra multiplication and fail to produce C code.
---
 .../Nlevels_with_doppler_with_z_4wm.xmds                       | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'xmds2/Nlevels_with_doppler_with_z_4wm')

diff --git a/xmds2/Nlevels_with_doppler_with_z_4wm/Nlevels_with_doppler_with_z_4wm.xmds b/xmds2/Nlevels_with_doppler_with_z_4wm/Nlevels_with_doppler_with_z_4wm.xmds
index bcb6b39..d31aa58 100644
--- a/xmds2/Nlevels_with_doppler_with_z_4wm/Nlevels_with_doppler_with_z_4wm.xmds
+++ b/xmds2/Nlevels_with_doppler_with_z_4wm/Nlevels_with_doppler_with_z_4wm.xmds
@@ -364,16 +364,16 @@
 				<operator kind="ex" constant="yes">
 					<operator_names>Lt</operator_names>
 					<![CDATA[
-					Lt = i*1./c*kt;
+					Lt = -i*1./c*kt;
 					]]>
 				</operator>
         <integration_vectors>E_field</integration_vectors>
 				<dependencies>density_matrix</dependencies>
           <![CDATA[
-					dE1_dz = i*eta*conj(r13) -Lt[E1] ;
-					dE2_dz = i*eta*conj(r23) -Lt[E2] ;
-					dE3_dz = i*eta*conj(r24) -Lt[E3] ;
-					dE4_dz = i*eta*conj(r14) -Lt[E4] ;
+					dE1_dz = i*eta*conj(r13) +Lt[E1] ;
+					dE2_dz = i*eta*conj(r23) +Lt[E2] ;
+					dE3_dz = i*eta*conj(r24) +Lt[E3] ;
+					dE4_dz = i*eta*conj(r14) +Lt[E4] ;
           ]]>
 			</operators>
 		</integrate>
-- 
cgit v1.2.3