diff options
Diffstat (limited to 'src/AHFinder_mask.F')
| -rw-r--r-- | src/AHFinder_mask.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/AHFinder_mask.F b/src/AHFinder_mask.F index a781ca5..266695f 100644 --- a/src/AHFinder_mask.F +++ b/src/AHFinder_mask.F @@ -39,7 +39,7 @@ CCTK_REAL xa,ya,za ! Reduction variables - CCTK_INT, dimension(1) :: input_array_dim + CCTK_INT, dimension(1) :: input_array_type CCTK_POINTER_TO_CONST, dimension(1) :: input_array CCTK_POINTER, dimension(1) :: reduction_value @@ -125,12 +125,12 @@ call CCTK_WARN(1,"Cannot get handle for minimum reduction ! Forgot to activate an implementation providing reduction operators ??") end if - input_array_dim(1) = zero + input_array_type(1) = CCTK_VARIABLE_INT input_array(1) = CCTK_PointerTo(rhor) reduction_value(1) = CCTK_PointerTo(rhortemp) call CCTK_ReduceArraysGlobally(ierr, cctkGH, -1,reduce_handle, -1, - . 1, input_array,0, input_array_dim, CCTK_VARIABLE_INT, 1, - . CCTK_VARIABLE_INT, reduction_value) + . 1, input_array,0, input_array_dim, input_array_type, 1, + . input_array_type, reduction_value) rhor = rhortemp |