From 316a8676a3a4cdfe9e0dcc2fddb79597c16e54ea Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 23 Aug 2011 10:09:47 -0400 Subject: Physics constants to Fortran constants --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'fortran/navy_four_levels') 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] -- cgit v1.2.3