diff options
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 62c050e..9279e69 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -94,6 +94,7 @@ program FourLevelPulseProp_v3_Double Gamma_super=2*pi*6e6 ! Characteristic decay of upper level in [1/s] lambda=794.7e-9 ! Wavelength in [m] Ndensity=1e10*(1e6) ! Density in m^-1 + ! atomic decay parameters in units of Gamma_super W41=0 W42=1 W43=0 |