diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 15:44:02 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 15:44:02 -0400 |
| commit | 433f215ddc872933e0c0710d332b3e444bb66718 (patch) | |
| tree | 9fd7ea10c789cc259b277e297783fa7aa3149178 /code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 | |
| parent | 3692063a5879487f3f74a43642929e59c6e650e0 (diff) | |
| download | Nresonances-433f215ddc872933e0c0710d332b3e444bb66718.tar.gz Nresonances-433f215ddc872933e0c0710d332b3e444bb66718.zip | |
Remove references of Ompeak. Ompeak -> Omcpeak to fix navy's typo
Diffstat (limited to 'code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95')
| -rw-r--r-- | code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 | 4 |
1 files changed, 2 insertions, 2 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 |