From a754955048976ad01a54f5bf726960fd5195f390 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Thu, 4 Nov 1999 08:06:34 +0000
Subject: fixing type mismatch in integer reduction calls

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@27 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 src/AHFinder_int.F | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F
index 314d408..5ce54ac 100644
--- a/src/AHFinder_int.F
+++ b/src/AHFinder_int.F
@@ -64,6 +64,7 @@ c#endif
 
 c     Reduction related things
       INTEGER reduction_handle
+      CCTK_INT red_tmp
 
       save xmn,ymn,zmn,xmx,ymx,zmx
       save dtheta,dphi,dtp,idtheta,idphi
@@ -545,18 +546,18 @@ c     Get the reduction handel for the sum operation
 !     Reduce the errors across processors.
 
       call CCTK_ReduceLocalScalar(ierror, cctkGH, -1, reduction_handle, 
-     $     interror1, i, CCTK_VARIABLE_INT) 
+     $     interror1, red_tmp, CCTK_VARIABLE_INT) 
       if (ierror.ne.0) then
          call CCTK_WARN(1,"Reduction of norm failed!");
       endif
-      interror1 = i
+      interror1 = red_tmp
 
       call CCTK_ReduceLocalScalar(ierror, cctkGH, -1, reduction_handle, 
-     $     interror2, i, CCTK_VARIABLE_INT) 
+     $     interror2, red_tmp, CCTK_VARIABLE_INT) 
       if (ierror.ne.0) then
          call CCTK_WARN(1,"Reduction of norm failed!");
       endif
-      interror2 = i
+      interror2 = red_tmp
 
 c#ifdef MPI
 c
-- 
cgit v1.2.3