diff options
| author | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-10-29 14:08:51 +0000 |
|---|---|---|
| committer | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-10-29 14:08:51 +0000 |
| commit | 575bc577c7b637efe1d927b39d9fe5b4324354bf (patch) | |
| tree | 4566c7014b19b2ed7cd565104ef4c3a52dbd5dbb /src/AHFinder_initguess.F | |
| parent | b066d169cab535da62b637fd499c91d2ad77a59a (diff) | |
some bug fixes, initializing arrays, getting coordinates, currently SGI only :-<
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@18 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_initguess.F')
| -rw-r--r-- | src/AHFinder_initguess.F | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/AHFinder_initguess.F b/src/AHFinder_initguess.F index 539a453..8ba54c1 100644 --- a/src/AHFinder_initguess.F +++ b/src/AHFinder_initguess.F @@ -76,6 +76,10 @@ c Note that including cactus.h will also include AHFinder.h allocate(a0(0:nn0,0:nn2)) allocate(a2(0:nn0,0:nn2)) + aa = zero + a0 = zero + a2 = zero + ! **************************** ! *** FIND INITIAL GUESS *** ! **************************** |