aboutsummaryrefslogtreecommitdiff
path: root/src/AHFinder_gau.F
diff options
context:
space:
mode:
Diffstat (limited to 'src/AHFinder_gau.F')
-rw-r--r--src/AHFinder_gau.F2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F
index 1a27d21..9ecad73 100644
--- a/src/AHFinder_gau.F
+++ b/src/AHFinder_gau.F
@@ -692,7 +692,7 @@ c#include "CactusEinstein/ADMMacros/src/macro/ADM_Spacing_declare.h"
call CCTK_ReduceArraysGlobally(ierror, cctkGH, -1,sum_handle, -1,
. 3, input_array,0, 0, input_array_type3, 3,
- . input_array_type3, reduction_value)
+ . input_array_type3, reduction_value3)
if (ierror.ne.0) then
call CCTK_WARN(1,"Reduction failed!")