diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-08-02 11:19:01 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-08-02 11:19:01 +0000 |
| commit | 7246a1d2d5e09fd5fd59a427fc68579d731d361e (patch) | |
| tree | 41f3500b85477d6f1c816cc3e05d5fa18fecbdf3 /src/AHFinder_int.F | |
| parent | 0c1cc6ed6303f842cdb2ed2b679f0f2b86ccedc6 (diff) | |
Making sure we don't end up with too fiew points per proc, since in that
case the integrals won't work well.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@215 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_int.F')
| -rw-r--r-- | src/AHFinder_int.F | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index 8d60523..b3818da 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -307,6 +307,15 @@ end if +! Now be careful not to use too many procs and end up +! with very few points per proc. + + if (ntheta/npt.lt.3) npt = ntheta/3 + + if (.not.cartoon) then + if (nphi/npp.lt.3) npp = nphi/3 + end if + ! Figure out the number of grid points per processor, ! and the "origin" for a given processor. @@ -320,7 +329,7 @@ else -! Take first the number of grid points per processor +! First take the number of grid points per processor ! in a given direction to be equal to the total number ! of grid points divided by the number of processors ! in that direction. |