diff options
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 83612a1..04786b2 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -109,7 +109,7 @@ program FourLevelPulseProp_v3_Double W34 = 0 W32 = R32*G3 W31 = R31*G3 - W21=.01 * (2*M_PI*1e6) / Gamma_super + W21=.01 * (2*pi*1e6) / Gamma_super W12=W21 ga12=0.5*(W21+W12) ga13=0.5*(W31+W12+W32) |