diff options
Diffstat (limited to 'src/AHFinder_int.F')
-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 |