diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-27 15:16:31 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-27 15:16:31 +0000 |
| commit | a45962aa2bf1b9ed08702a171c8fbd6724254ae2 (patch) | |
| tree | 9293bb89aaff9d751c82cbe1bb3e5d3b23080181 /src/AHFinder_flow.F | |
| parent | 629df6618684ed64b196d718a1e3b99370280f1f (diff) | |
Eliminating obsolete commands.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@141 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_flow.F')
| -rw-r--r-- | src/AHFinder_flow.F | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index 84d853a..55187de 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -81,42 +81,6 @@ minchange = ahf_minchange -! ************************* -! *** INITIAL GUESS *** -! ************************* - - 5 continue - -! Initialize arrays. - - c0 = zero - cc = zero - cs = zero - - hflow0 = zero - hflowc = zero - hflows = zero - - cflow0 = zero - cflowc = zero - cflows = zero - - nflow0 = zero - nflowc = zero - nflows = zero - -! As initial guess I take the largest sphere that -! can fit in the grid. - - if ((myproc.eq.0).and.verbose) then - write(*,*) - write(*,"(A35,ES11.3)") ' Initial guess sphere with radius: ',rmx - write(*,"(A13,3ES11.3)") ' centered on:',real(xc),real(yc),real(zc) - end if - - c0(0) = rmx - - ! ******************************* ! *** MAIN ITERATION LOOP *** ! ******************************* |