diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 13:41:15 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 13:41:15 -0400 |
| commit | fed05a47c82f41893da7aff6336083e1464d2df1 (patch) | |
| tree | fb69a54005b1e79e67271661ae7f0eb52794b3cc /fortran/navy_four_levels | |
| parent | 096b9b4536fd34fbca5a8bf9a54ac8647ec6cc99 (diff) | |
| download | Nresonances-fed05a47c82f41893da7aff6336083e1464d2df1.tar.gz Nresonances-fed05a47c82f41893da7aff6336083e1464d2df1.zip | |
Prints progress percent
To keep bored operator from killing the long calculation task
Diffstat (limited to 'fortran/navy_four_levels')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 30d4fb6..c5a6565 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -472,6 +472,7 @@ program FourLevelPulseProp_v3_Double ! the cell for given time to the EndPoint File write (10,139) t/Gamma_super, cdabs(Om1(1)), cdabs(Om_vac(1)), cdabs(Om1(zpts)), cdabs(Om_vac(zpts)) iSkipped = 0 + write(*,*) 'done', 100.*n/Nframe, ' %' end if Omold=Om2(zpts) Omold_vac=Om_vac(zpts) |