diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-27 15:15:41 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-27 15:15:41 +0000 |
| commit | 629df6618684ed64b196d718a1e3b99370280f1f (patch) | |
| tree | 119212d1a43483c50c91c9c34fef46e390b55bd5 /src/AHFinder_dat.F | |
| parent | 3bf5ff2825152b95bc78fc532131ed7799065c82 (diff) | |
Adding one more global varible to indicate the state of the finder on the
last call.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@140 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_dat.F')
| -rw-r--r-- | src/AHFinder_dat.F | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F index d43996e..10c12ac 100644 --- a/src/AHFinder_dat.F +++ b/src/AHFinder_dat.F @@ -27,6 +27,7 @@ logical logfile,verbose,veryver,guessverbose logical interror,guessold logical find3,sloppy,inner,guess_absmin,manual_guess + logical status_old integer lmax,stepx,stepy,stepz integer ntheta,nphi @@ -56,9 +57,11 @@ data mfind / 0 / data ahf_ncall / 0 / + data status_old / .false. / save mfind,ahf_ncall save c0,cc,cs + save status_old ! Description of variables: ! |