From 433f215ddc872933e0c0710d332b3e444bb66718 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Sun, 10 Jul 2011 15:44:02 -0400 Subject: Remove references of Ompeak. Ompeak -> Omcpeak to fix navy's typo --- fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fortran/navy_four_levels') diff --git a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 index 9a2aa37..f2b0f7a 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 @@ -52,7 +52,7 @@ real*8 dt,dz,eta real*8 W12,W21,W31,W32,W41,W42,W43,W34,ga12,ga13,ga14,ga23,ga24,ga34 real*8 Ga2,Ga4,Om_crit - real*8 Lcell,Om1peak,Om2peak,Omcpeak,pi,tmax,tp,tshift,t_end,t_start,t_elapsed,Ompeak + real*8 Lcell,Om1peak,Om2peak,Omcpeak,pi,tmax,tp,tshift,t_end,t_start,t_elapsed real*8 tpeak,tpeak_vac real*8 epsil,hbar,lambda real*8 del(npts) @@ -153,7 +153,7 @@ ! write (*,*)'Om_crit = ',Om_crit ! write (*,*)'Enter peak scaled Rabi frequency for the coupling field at entrance of cell' ! read (*,*)Omcpeak - Ompeak=0.1 + Omcpeak=0.1 ! ! First plot the dispersion lineshape -- cgit v1.2.3