From 08e22ea22ba897a1dc67b90a94148b60b0a02b80 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 23 Aug 2011 01:00:37 -0400 Subject: Format specifier to exponential notation --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95') diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 8306b8a..6ae00e7 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -425,8 +425,8 @@ 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,',',f12.6) +139 format(1x,E15.9,',',E15.9,',',E15.9) +120 format(E15.9,',',E15.9,',',E15.9,',',E15.9,',',E15.9,',',E15.9,',',E15.9,',',E15.9,',',E15.9) t_end=secnds(0.E0) t_elapsed=t_end-t_start write(*,*)'T elapsed = ',t_elapsed -- cgit v1.2.3