diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 13:40:32 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-26 13:40:32 -0400 |
| commit | 096b9b4536fd34fbca5a8bf9a54ac8647ec6cc99 (patch) | |
| tree | 0fc82458453451be0de56fc4e93beae1eb667ae1 /fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | |
| parent | 651a65ca7bc9eb751ada2d0f63c72a3cc2f25297 (diff) | |
| download | Nresonances-096b9b4536fd34fbca5a8bf9a54ac8647ec6cc99.tar.gz Nresonances-096b9b4536fd34fbca5a8bf9a54ac8647ec6cc99.zip | |
Increased maximum number of nodes along z
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 4e0cfc9..30d4fb6 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -40,7 +40,7 @@ program FourLevelPulseProp_v3_Double parameter (nmat=3,npts=100) !matrix size, number of detuning points in dispersion curve !tpts is the number of temporal points in the cell !zpts is the number of z output slices - 1 - parameter (zptsmax=200) ! max Number of slices in z direction + parameter (zptsmax=500) ! max Number of slices in z direction parameter (tpts_max=200) ! max Number of slices in t direction parameter (NWrite=200) !number of frames to actually write |