diff options
| -rw-r--r-- | code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 | 4 | ||||
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 b/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 index 9a2aa37..f2b0f7a 100644 --- a/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 +++ b/code_from_navy/fortran95/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 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 |