From 8aabf9626b71c93160af9091dfc4a895ee1ae5c6 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 12 Jul 2011 22:20:19 -0400 Subject: 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 --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (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 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 -- cgit v1.2.3