From bbca4d7c1fefbfdd6c9a5417a2c8ade82b3827e5 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Fri, 26 Aug 2011 13:55:53 -0400 Subject: zpts -> 200 to match xmds defaults waiting time is manageable about 477 seconds --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'fortran/navy_four_levels') 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 ! --------------------------------------------------------------------------- -- cgit v1.2.3