diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-12 22:20:19 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-12 22:20:19 -0400 |
| commit | 8aabf9626b71c93160af9091dfc4a895ee1ae5c6 (patch) | |
| tree | a7abec23edfe7652da9e293afeaa5adf92af5f96 /fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | |
| parent | c2c58782c3b7042ec877c4a6e9b8b96121d80269 (diff) | |
| download | Nresonances-8aabf9626b71c93160af9091dfc4a895ee1ae5c6.tar.gz Nresonances-8aabf9626b71c93160af9091dfc4a895ee1ae5c6.zip | |
Output format changed. Output |Om| instead of amplitude
* this take care of complex part which seems to be disregarded with
current format for write statement
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 6c4be5b..406b1b1 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -484,7 +484,7 @@ Om_vac(m)=a1*Om_vac(m-1) - if (mod(n,Nskip).eq.0) write (9,120) t,z(m),Om2(m),Om_vac(m),Omc(m) + if (mod(n,Nskip).eq.0) write (9,120) t,z(m),cdabs(Om1(m)),cdabs(Om2(m)),cdabs(Omc(m)) 50 continue if (cdabs(Om2(zpts)).gt.cdabs(Omold)) tpeak=t |