diff options
| -rw-r--r-- | src/AHFinder_gau.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index ed74d51..d4d03ed 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -87,7 +87,7 @@ c CCTK_REAL i2dx,i2dy,i2dz,idxx,idyy,idzz,idxy,idxz,idyz ! Reduction variables CCTK_INT , dimension(1) :: input_array_dim - CCTK_POINTER_TO_CONST, dimension(1) :: input_array + CCTK_POINTER_TO_CONST, dimension(3) :: input_array CCTK_POINTER, dimension(1) :: reduction_value CCTK_POINTER, dimension(3) :: reduction_value3 CCTK_INT, dimension(3) ::input_array_type |