diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 12:02:46 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 12:02:46 -0400 |
| commit | efd61b6aecc3dac985fd4579a5650711bfba98e1 (patch) | |
| tree | 9e4fa052b2dbee3bf158f31653ba8e27db6919b3 /fortran | |
| parent | c950cfa068046623385ed821ae93e4a154d50b7c (diff) | |
| download | Nresonances-efd61b6aecc3dac985fd4579a5650711bfba98e1.tar.gz Nresonances-efd61b6aecc3dac985fd4579a5650711bfba98e1.zip | |
Small clarifying comments
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 1a9e367..870e035 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -2,6 +2,7 @@ program FourLevelPulseProp_v3_Double ! ! Written by: Dr. Frank A. Narducci ! Written on: May 12, 2008 +! Modified by: Eugeniy Mikhailov and Simon Rochester from July 2011 ! ! This program calculates the propagation of a pulse of arbitrary strength ! through a two level medium. The equations used are the full equations @@ -184,7 +185,7 @@ program FourLevelPulseProp_v3_Double ! Length of cell in m Lcell=0.07 Lcell=Gamma_super*Lcell/c !Now dimensionless - t_start=secnds(0.E0) + t_start=secnds(0.E0) ! execution start time write (*,*)'t_start = ',t_start ! ! Set up initial pulse. |