diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 12:02:03 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 12:02:03 -0400 |
| commit | c950cfa068046623385ed821ae93e4a154d50b7c (patch) | |
| tree | dce278523d10521f9dc8cade1437c3c1bfce282f /fortran | |
| parent | 28582268a8cda10d477c92a7c15f5f144898e4e4 (diff) | |
| download | Nresonances-c950cfa068046623385ed821ae93e4a154d50b7c.tar.gz Nresonances-c950cfa068046623385ed821ae93e4a154d50b7c.zip | |
Added pulse description
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 7a9b8dd..1a9e367 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -168,11 +168,14 @@ program FourLevelPulseProp_v3_Double del1_prop=2*pi*1e6*del1_prop/Gamma_super !Now dimensionless - ! Pulse width in nsec - tp=1e-6 - tmax=tp*5 - tmin = -tmax - tshift=0 + + ! Pulse timing + tp = 1e-6 ! Pulse width in sec + tshift=0 ! Pulse center position + ! Time interval definitions + tmin = -2.0e-6 ! time interval boundaries + tmax = 4.0e-6 + tp=Gamma_super*tp !Now dimensionless tmax=Gamma_super*tmax tmin=Gamma_super*tmin |