diff options
| author | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-04 08:06:34 +0000 |
|---|---|---|
| committer | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-04 08:06:34 +0000 |
| commit | a754955048976ad01a54f5bf726960fd5195f390 (patch) | |
| tree | 2bb53a24329ac79ea38ac77d98be89b2cb4cc22a /src | |
| parent | 50d5e8466223ca0c924541c93ae11e1d987338ea (diff) | |
fixing type mismatch in integer reduction calls
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@27 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
| -rw-r--r-- | src/AHFinder_int.F | 9 |
1 files changed, 5 insertions, 4 deletions
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 |