diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-23 10:09:47 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-23 10:09:47 -0400 |
| commit | 316a8676a3a4cdfe9e0dcc2fddb79597c16e54ea (patch) | |
| tree | 6daa80f30f9ae0acbaaa980feb917b6f0389c753 | |
| parent | 70aaab398a4edff7f2541bcfef9d45463f369648 (diff) | |
| download | Nresonances-316a8676a3a4cdfe9e0dcc2fddb79597c16e54ea.tar.gz Nresonances-316a8676a3a4cdfe9e0dcc2fddb79597c16e54ea.zip | |
Physics constants to Fortran constants
| -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] |