Comment out declarations with names longer than 31 characters

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@29 51d2df92-0e4f-0410-a727-bd43d766d6b6

1 files changed, 31 insertions, 27 deletions

diff --git a/src/cctk_Reduction.F90 b/src/cctk_Reduction.F90
index ef5c4e6..6e5cda9 100644
--- a/src/cctk_Reduction.F90
+++ b/src/cctk_Reduction.F90
@@ -28,13 +28,14 @@ module cctk_Reduction
        character(*) reduction
      end subroutine CCTK_ReductionArrayHandle
      
-     subroutine CCTK_ReduceOperatorImplementation &
-          (implementation, implementation_length, handle)
-       implicit none
-       character(*) implementation
-       integer      implementation_length
-       integer      handle
-     end subroutine CCTK_ReduceOperatorImplementation
+     ! Name is too long
+!!$     subroutine CCTK_ReduceOperatorImplementation &
+!!$          (implementation, implementation_length, handle)
+!!$       implicit none
+!!$       character(*) implementation
+!!$       integer      implementation_length
+!!$       integer      handle
+!!$     end subroutine CCTK_ReduceOperatorImplementation
      
      subroutine CCTK_ReduceOperator (operator, operator_length, handle)
        implicit none
@@ -79,13 +80,14 @@ module cctk_Reduction
        character(*) reduction
      end subroutine CCTK_LocalArrayReductionHandle
      
-     subroutine CCTK_LocalArrayReduceOperatorImplementation &
-          (implementation, implementation_length, handle)
-       implicit none
-       character(*) implementation
-       integer      implementation_length
-       integer      handle
-     end subroutine CCTK_LocalArrayReduceOperatorImplementation
+     ! Name is too long
+!!$     subroutine CCTK_LocalArrayReduceOperatorImplementation &
+!!$          (implementation, implementation_length, handle)
+!!$       implicit none
+!!$       character(*) implementation
+!!$       integer      implementation_length
+!!$       integer      handle
+!!$     end subroutine CCTK_LocalArrayReduceOperatorImplementation
      
      subroutine CCTK_LocalArrayReduceOperator &
           (operator, operator_length, handle)
@@ -95,10 +97,11 @@ module cctk_Reduction
        integer      handle
      end subroutine CCTK_LocalArrayReduceOperator
      
-     subroutine CCTK_NumLocalArrayReduceOperators (num_operators)
-       implicit none
-       integer num_operators
-     end subroutine CCTK_NumLocalArrayReduceOperators
+     ! Name is too long
+!!$     subroutine CCTK_NumLocalArrayReduceOperators (num_operators)
+!!$       implicit none
+!!$       integer num_operators
+!!$     end subroutine CCTK_NumLocalArrayReduceOperators
      
      subroutine CCTK_ReduceGridArrays (ierr, cctkGH, &
           dest_proc, &
@@ -128,10 +131,11 @@ module cctk_Reduction
        integer      operator_length
      end subroutine CCTK_GridArrayReductionOperator
      
-     subroutine CCTK_NumGridArrayReductionOperators (num_operators)
-       implicit none
-       integer num_operators
-     end subroutine CCTK_NumGridArrayReductionOperators
+     ! Name is too long
+!!$     subroutine CCTK_NumGridArrayReductionOperators (num_operators)
+!!$       implicit none
+!!$       integer num_operators
+!!$     end subroutine CCTK_NumGridArrayReductionOperators
      
 !!$     subroutine CCTK_ReduceLocalScalar (ierr, &
 !!$          cctkGH,  proc, operation_handle, &
@@ -145,7 +149,7 @@ module cctk_Reduction
 !!$       CCTK_POINTER          outScalar
 !!$       integer               dataType
 !!$     end subroutine CCTK_ReduceLocalScalar
-!!$     
+     
 !!$     subroutine CCTK_ReduceLocalArray1D (ierr, &
 !!$          cctkGH,  proc, operation_handle, &
 !!$          in_array1d, out_array1d, num_in_array1d, data_type)
@@ -159,7 +163,7 @@ module cctk_Reduction
 !!$       integer               num_in_array1d
 !!$       integer               data_type
 !!$     end subroutine CCTK_ReduceLocalArray1D
-!!$     
+     
 !!$     subroutine CCTK_ReduceLocScalar (ierr, &
 !!$          cctkGH, proc, operation_handle, &
 !!$          in_scalar, out_scalar, data_type)
@@ -172,7 +176,7 @@ module cctk_Reduction
 !!$       CCTK_POINTER          out_scalar
 !!$       integer               data_type
 !!$     end subroutine CCTK_ReduceLocScalar
-!!$     
+     
 !!$     subroutine CCTK_ReduceLocArrayToArray1D (ierr, &
 !!$          cctkGH, proc, operation_handle, &
 !!$          in_array1d, out_array1d, num_in_array1d, data_type)
@@ -186,7 +190,7 @@ module cctk_Reduction
 !!$       integer               num_in_array1d
 !!$       integer               data_type
 !!$     end subroutine CCTK_ReduceLocArrayToArray1D
-!!$     
+     
 !!$     subroutine CCTK_ReduceLocArrayToArray2D (ierr, &
 !!$          cctkGH, proc, operation_handle, &
 !!$          in_array2d, out_array2d, xsize, ysize, data_type)
@@ -201,7 +205,7 @@ module cctk_Reduction
 !!$       integer               ysize
 !!$       integer               data_type
 !!$     end subroutine CCTK_ReduceLocArrayToArray2D
-!!$     
+     
 !!$     subroutine CCTK_ReduceLocArrayToArray3D (ierr, &
 !!$          cctkGH, proc, operation_handle, &
 !!$          in_array3d, out_array3d, xsize, ysize, zsize, data_type)