1 files changed, 14 insertions, 7 deletions
diff --git a/src/cctk_Reduction.F90 b/src/cctk_Reduction.F90
index 5b90071..ef5c4e6 100644
--- a/src/cctk_Reduction.F90
+++ b/src/cctk_Reduction.F90
@@ -13,9 +13,9 @@
 
 module cctk_Reduction
   implicit none
-
+  
   interface
-
+     
      subroutine CCTK_ReductionHandle (ierr, reduction)
        implicit none
        integer      ierr
@@ -28,15 +28,18 @@ module cctk_Reduction
        character(*) reduction
      end subroutine CCTK_ReductionArrayHandle
      
-     subroutine CCTK_ReduceOperatorImplementation (implementation, handle)
+     subroutine CCTK_ReduceOperatorImplementation &
+          (implementation, implementation_length, handle)
        implicit none
        character(*) implementation
+       integer      implementation_length
        integer      handle
      end subroutine CCTK_ReduceOperatorImplementation
      
-     subroutine CCTK_ReduceOperator (operator, handle)
+     subroutine CCTK_ReduceOperator (operator, operator_length, handle)
        implicit none
        character(*) operator
+       integer      operator_length
        integer      handle
      end subroutine CCTK_ReduceOperator
      
@@ -77,15 +80,18 @@ module cctk_Reduction
      end subroutine CCTK_LocalArrayReductionHandle
      
      subroutine CCTK_LocalArrayReduceOperatorImplementation &
-          (implementation, handle)
+          (implementation, implementation_length, handle)
        implicit none
        character(*) implementation
+       integer      implementation_length
        integer      handle
      end subroutine CCTK_LocalArrayReduceOperatorImplementation
      
-     subroutine CCTK_LocalArrayReduceOperator (operator, handle)
+     subroutine CCTK_LocalArrayReduceOperator &
+          (operator, operator_length, handle)
        implicit none
        character(*) operator
+       integer      operator_length
        integer      handle
      end subroutine CCTK_LocalArrayReduceOperator
      
@@ -116,9 +122,10 @@ module cctk_Reduction
        CCTK_POINTER          output_values(M_output_values)
      end subroutine CCTK_ReduceGridArrays
      
-     subroutine CCTK_GridArrayReductionOperator (operator)
+     subroutine CCTK_GridArrayReductionOperator (operator, operator_length)
        implicit none
        character(*) operator
+       integer      operator_length
      end subroutine CCTK_GridArrayReductionOperator
      
      subroutine CCTK_NumGridArrayReductionOperators (num_operators)