diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 11:18:52 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 11:18:52 -0400 |
| commit | ad397aa587bb31353aa584d476450ea0c44f287a (patch) | |
| tree | 449946a5c73192f15e90e069c011a9bdb8acb7fe /fortran | |
| parent | 0dd013b9ba3d6cb78e02732113bdef16e44910c8 (diff) | |
| download | Nresonances-ad397aa587bb31353aa584d476450ea0c44f287a.tar.gz Nresonances-ad397aa587bb31353aa584d476450ea0c44f287a.zip | |
M_PI -> pi
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 83612a1..04786b2 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -109,7 +109,7 @@ program FourLevelPulseProp_v3_Double W34 = 0 W32 = R32*G3 W31 = R31*G3 - W21=.01 * (2*M_PI*1e6) / Gamma_super + W21=.01 * (2*pi*1e6) / Gamma_super W12=W21 ga12=0.5*(W21+W12) ga13=0.5*(W31+W12+W32) |