diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 13:55:53 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 13:55:53 -0400 |
| commit | bbca4d7c1fefbfdd6c9a5417a2c8ade82b3827e5 (patch) | |
| tree | d2f4a2608538759c7a2b3695eb4520560a691e06 | |
| parent | fed05a47c82f41893da7aff6336083e1464d2df1 (diff) | |
| download | Nresonances-bbca4d7c1fefbfdd6c9a5417a2c8ade82b3827e5.tar.gz Nresonances-bbca4d7c1fefbfdd6c9a5417a2c8ade82b3827e5.zip | |
zpts -> 200 to match xmds defaults
waiting time is manageable about 477 seconds
| -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 c5a6565..abb7fca 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -30,7 +30,7 @@ program FourLevelPulseProp_v3_Double ! SYSTEM DEFAULTS ! --------------------------------------------------------------------------- integer zpts - parameter (zpts=10) ! Number of slices in z direction + parameter (zpts=200) ! Number of slices in z direction ! --------------------------------------------------------------------------- |