diff options
| author | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-09-24 08:57:07 +0000 |
|---|---|---|
| committer | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-09-24 08:57:07 +0000 |
| commit | 27d6f112a588ddaeb048c0c5f992e9c6d18e033d (patch) | |
| tree | 1606720b430f0e72c624db2805a4632a6c03c331 /src/AHFinder_exp.F | |
| parent | 44673801ab613c6a99e9fa81ae297f2616f91c4e (diff) | |
Removed ' in comments for preprocessor, removed ifdef MPIs, fixed
couple of compiler complaints
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@13 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_exp.F')
| -rw-r--r-- | src/AHFinder_exp.F | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/AHFinder_exp.F b/src/AHFinder_exp.F index ada292c..2c079bb 100644 --- a/src/AHFinder_exp.F +++ b/src/AHFinder_exp.F @@ -135,7 +135,7 @@ c Note that including cactus.h will also include AHFinder.h kdxz = kxz(i,j,k) kdyz = kyz(i,j,k) -! Find D's using finite differences. +! Find Ds using finite differences. ddxxx = idx*(gxx(i+1,j,k) - gxx(i-1,j,k)) ddxyy = idx*(gyy(i+1,j,k) - gyy(i-1,j,k)) @@ -307,18 +307,15 @@ c Note that including cactus.h will also include AHFinder.h ahf_exp(i,j,k) = T1 + T2 - T3 - T4 -! Check for NaN's. +! Check for NaNs. if (ahf_exp(i,j,k).ge.zero) then else if (ahf_exp(i,j,k).lt.zero) then else -#ifdef MPI + if (myproc.eq.0) then -#endif write(*,*) 'NaN in ahf_exp at point',i,j,k -#ifdef MPI end if -#endif STOP end if @@ -412,7 +409,6 @@ c Note that including cactus.h will also include AHFinder.h ! Synchronize. -#ifdef MPI call CCTK_SyncGroup(cctkGH,"ahfinder::ahfgradient") call CCTK_SyncGroup(cctkGH,"ahfinder::ahfindergrid") ! call synconefunc(ahf_exp) @@ -420,7 +416,6 @@ c Note that including cactus.h will also include AHFinder.h ! call synconefunc(ahfgrady) ! call synconefunc(ahfgradz) ! call synconefunc(ahfgradn) -#endif ! *************** ! *** END *** |