diff options
| author | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-10-20 16:09:33 +0000 |
|---|---|---|
| committer | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-10-20 16:09:33 +0000 |
| commit | 3668d906459914d3fc91bc1094f9e749059a0ab0 (patch) | |
| tree | 9da765a45a5c76868591e0c2b349ce3f8d622519 /src/AHFinder_int.F | |
| parent | 6ff49aaead97e6e5f3f066cb8c30a1086210c053 (diff) | |
forgot to comment out mpi calls
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@16 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_int.F')
| -rw-r--r-- | src/AHFinder_int.F | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index 8ae847d..836bdd8 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -24,9 +24,9 @@ c@@*/ DECLARE_CCTK_FARGUMENTS DECLARE_CCTK_PARAMETERS -#ifdef MPI - include 'mpif.h' -#endif +c#ifdef MPI +c include 'mpif.h' +c#endif integer handle,x_index,y_index,z_index CCTK_REAL maxval(3),minval(3) @@ -1004,10 +1004,10 @@ CCC# inside_min_neg_count = aux auxi = lmax+1 if (hw.ne.zero) then -c call CCTK_ReduceLocalArray1D(ierror, cctkGH, -1, reduction_handle, -c $ hflow0, tempv, auxi, CCTK_VARIABLE_REAL) - call mpi_allreduce(hflow0,tempv,auxi,MPI_DOUBLE_PRECISION, - . MPI_SUM,MPI_COMM_WORLD,ierror) + call CCTK_ReduceLocalArray1D(ierror, cctkGH, -1, reduction_handle, + $ hflow0, tempv, auxi, CCTK_VARIABLE_REAL) +c call mpi_allreduce(hflow0,tempv,auxi,MPI_DOUBLE_PRECISION, +c . MPI_SUM,MPI_COMM_WORLD,ierror) hflow0 = tempv end if if (cw.ne.zero) then |