diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-01-04 09:05:59 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-01-04 09:05:59 +0000 |
| commit | aaa5431c94e5c633bd4404100810c806843160b2 (patch) | |
| tree | c61f3f129a21d90bded46d8acf5edc6ae3171351 /src/AHFinder_dat.F | |
| parent | 18879aa00a0a2aef7e8572bf6e17e617a1275a09 (diff) | |
A small bug fix, plus a lot of cleaning up.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@37 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_dat.F')
| -rw-r--r-- | src/AHFinder_dat.F | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F index 4bcce98..50896ab 100644 --- a/src/AHFinder_dat.F +++ b/src/AHFinder_dat.F @@ -1,19 +1,21 @@ -c/*@@ -c @file AHFinder_dat.F -c @date April 1998 -c @author Miguel Alcubierre -c @desc -c F90 module containing data to be shared by -c the different subroutines. -c -c For the meaning of the spectral components of -c the different flows see: -c -c C. Gundlach, Phys. Rev. D 57, 863 (1998). -c -c @enddesc -c@@*/ +/*@@ + @file AHFinder_dat.F + @date April 1998 + @author Miguel Alcubierre + @desc + F90 module containing data to be shared by + the different subroutines. + + For the meaning of the spectral components of + the different flows see: + + C. Gundlach, Phys. Rev. D 57, 863 (1998). + + @enddesc +@@*/ + #include "cctk.h" + module AHFinder_dat implicit none @@ -26,14 +28,13 @@ c@@*/ logical interror,guessold logical find3,sloppy,inner,guess_absmin,manual_guess - CCTK_INT lmax,stepx,stepy,stepz - CCTK_INT ntheta,nphi - CCTK_INT nfile - CCTK_INT interror1,interror2 - CCTK_INT mfind,ahf_ncall - CCTK_INT nx,ny,nz - integer nprocs,myproc - integer ierr + integer lmax,stepx,stepy,stepz + integer ntheta,nphi + integer nfile + integer interror1,interror2 + integer mfind,ahf_ncall + integer nx,ny,nz + integer nprocs,myproc,ierr CCTK_REAL xc,yc,zc CCTK_REAL xc_old,yc_old,zc_old @@ -50,7 +51,6 @@ c@@*/ CCTK_REAL, allocatable, dimension (:,:) :: hflowc,cflowc,nflowc CCTK_REAL, allocatable, dimension (:,:) :: hflows,cflows,nflows - character*200 filestr data mfind / 0 / |