From 14f2b3016f49eecd69081741583ebc896266730e Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 12 Jul 2011 22:43:31 -0400 Subject: Add the output of the Gaussian peak position in time --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 1 + 1 file changed, 1 insertion(+) (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 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) -- cgit v1.2.3