diff options
Diffstat (limited to 'fortran/navy_four_levels')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |