diff options
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 7b4906a..21249de 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -501,7 +501,7 @@ ! write (*,*)'Medium pulse out at ',tpeak/(beta*1e-6),' microseconds' ! write (*,*)'Vacuum pulse out at ',tpeak_vac/(beta*1e-6),' microseconds' write (*,*)Omcpeak,(tpeak-tpeak_vac)/(beta*1e-9) -120 format(1x,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) t_end=secnds(0.E0) t_elapsed=t_end-t_start write(*,*)'T elapsed = ',t_elapsed |