diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-12 22:43:31 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-12 22:43:31 -0400 |
| commit | 14f2b3016f49eecd69081741583ebc896266730e (patch) | |
| tree | ed6a8a41e8d927c867754ea07ddc45e41b185d4d /fortran | |
| parent | 6314afd82280074bbd71c74d17d872e1a802484d (diff) | |
| download | Nresonances-14f2b3016f49eecd69081741583ebc896266730e.tar.gz Nresonances-14f2b3016f49eecd69081741583ebc896266730e.zip | |
Add the output of the Gaussian peak position in time
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index eaa22ef..7b4906a 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -206,6 +206,7 @@ ! Set up initial pulse. ! tshift=2*tp + write (*,*) 'peak center at the cell begining i.e. tshift = ', tshift tmax=Lcell !Length of time to pass cell (no c because we're dimensionless) dt=tmax/tpts dz=dt !(no c because we're dimensionless) |