diff options
Diffstat (limited to 'fortran/navy_four_levels')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index da5d8fd..8e109f9 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -74,11 +74,11 @@ program FourLevelPulseProp_v3_Double ! Fundamental numbers - ci=cmplx(0.,1.) - pi=acos(-1.0) - c=3e8 - hbar=1.055e-34 - epsil=8.85e-12 + parameter( ci=cmplx(0.,1.) ) ! imaginary one + parameter( pi=acos(-1.0) ) ! pi=3.1415.... + parameter( c=3e8 ) ! speed of light + parameter( hbar=1.054571726e-34 ) ! reduced Plank constant + parameter( epsil=8.85418781762e-12 ) ! Permittivity of free space ! Atomic numbers (based on Rubidium 87) Gamma_super=2*pi*6e6 ! Characteristic decay of upper level in [1/s] |