diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-23 01:00:37 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-23 01:00:37 -0400 |
| commit | 08e22ea22ba897a1dc67b90a94148b60b0a02b80 (patch) | |
| tree | f926a95f55c89222d9fc20edaf173455a961877a /fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | |
| parent | 34d14dfd7af138d8f36726391e2eaa43c4e4ac92 (diff) | |
| download | Nresonances-08e22ea22ba897a1dc67b90a94148b60b0a02b80.tar.gz Nresonances-08e22ea22ba897a1dc67b90a94148b60b0a02b80.zip | |
Format specifier to exponential notation
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -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 |