From 5c5053ef9208dbe51b5ba94f3f442b464583e8b2 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 26 Apr 2016 00:17:21 -0400 Subject: Removed *evil* global variables --- Nlevels_with_MOR.xmds | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/Nlevels_with_MOR.xmds b/Nlevels_with_MOR.xmds index 1e41f47..b12619e 100644 --- a/Nlevels_with_MOR.xmds +++ b/Nlevels_with_MOR.xmds @@ -83,10 +83,6 @@ complex EdLac, EdRac, EpLac, EpRac; - complex rba, rac, rbc; // density matrix elements - - complex rBA, rAC, rBC; // density matrix for MOR - // inner use variables double probability_v; // will be used as p(v) in Maxwell distribution @@ -310,13 +306,13 @@ Gcb=gbc+i*(Split + delta_pR+0*noise); GCB=gbc+i*(-Split + delta_pL+0*noise); + complex rba=conj(rab); + complex rac=conj(rca); + complex rbc=conj(rcb); + complex rBA=conj(rAB); + complex rAC=conj(rCA); + complex rBC=conj(rCB); - rba=conj(rab); - rac=conj(rca); - rbc=conj(rcb); - rBA=conj(rAB); - rAC=conj(rCA); - rBC=conj(rCB); draa_dt = -i*EpRac*rab+i*EpRa*rba-i*EdLac*rac+i*EdLa*rca-2*g*raa -i*EdRac*rAB+i*EdRa*rBA-i*EpLac*rAC+i*EpLa*rCA; -- cgit v1.2.3