diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 23:32:13 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 23:32:13 -0400 |
| commit | d9f181909552afc6fb25fcf4b9d8f890cd5c05b4 (patch) | |
| tree | 6da7349523a6661668a3ccf782a5db1ca2d255a5 /fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | |
| parent | 3dbf7385a232e6b17076ff80eb7961fb1d577efb (diff) | |
| download | Nresonances-d9f181909552afc6fb25fcf4b9d8f890cd5c05b4.tar.gz Nresonances-d9f181909552afc6fb25fcf4b9d8f890cd5c05b4.zip | |
Output of vacuum pulse data
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index ddd5dd1..e16bd89 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -411,9 +411,8 @@ program FourLevelPulseProp_v3_Double rho44_last(m)=rho44(m) - Om_vac(m)=a1*Om_vac(m-1) - if (mod(n,Nskip).eq.0) write (9,120) t,z(m),cdabs(Om1(m)),cdabs(Om2(m)),cdabs(Omc(m)) + write (9,120) t,z(m),cdabs(Om1(m)),cdabs(Om2(m)),cdabs(Omc(m)),cdabs(Om_vac(m)) end do if (cdabs(Om2(zpts)).gt.cdabs(Omold)) tpeak=t @@ -427,7 +426,7 @@ program FourLevelPulseProp_v3_Double close(9) close(10) 139 format(1x,f12.6,',',F12.6,',',F12.6) -120 format(f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6) +120 format(f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6,',',f12.6) t_end=secnds(0.E0) t_elapsed=t_end-t_start write(*,*)'T elapsed = ',t_elapsed |