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_fun.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_fun.F')
| -rw-r--r-- | src/AHFinder_fun.F | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/AHFinder_fun.F b/src/AHFinder_fun.F index edff9c4..0acafd3 100644 --- a/src/AHFinder_fun.F +++ b/src/AHFinder_fun.F @@ -133,18 +133,15 @@ c Note that including cactus.h will also include AHFinder.h ahfgrid(i,j,k) = rp - aux1 -! Check for NaN's. +! Check for NaNs. if (ahfgrid(i,j,k).ge.zero) then else if (ahfgrid(i,j,k).lt.zero) then else -#ifdef MPI + if (myproc.eq.0) then -#endif write(*,*) 'NaN in ahfgrid at point',i,j,k -#ifdef MPI end if -#endif STOP end if @@ -154,10 +151,7 @@ c Note that including cactus.h will also include AHFinder.h ! Synchronize. -#ifdef MPI -! call synconefunc(ahfgrid) call CCTK_SyncGroup(cctkGH,"ahfinder::ahfindergrid") -#endif ! *************** ! *** END *** |