diff options
| -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. |