diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-25 15:15:55 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-25 15:15:55 -0400 |
| commit | 3c8ff1b86d8368942dc0b869bfadba1d88effa9a (patch) | |
| tree | 02539e97777277f4ad3b117e7458ab51c6d0fe1a /fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | |
| parent | 3e56e467bb84209c5a56f700c09688e7ebf8abf2 (diff) | |
| download | Nresonances-3c8ff1b86d8368942dc0b869bfadba1d88effa9a.tar.gz Nresonances-3c8ff1b86d8368942dc0b869bfadba1d88effa9a.zip | |
Comment about W variables as decay rates
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -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 |