From fe006906fa8caa4ba7e617e38c7255b54ae9721c Mon Sep 17 00:00:00 2001
From: tradke <tradke@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Fri, 2 Jul 2004 08:53:14 +0000
Subject: Comment out Fortran 90 interface declaration for
 CCTK_RegisterGHExtensionScheduleTraverseGH(). The length of the routine name
 exceeds the maximum of 31 characters which is rejected by the native SGI
 compiler.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@16 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk_GHExtensions.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/cctk_GHExtensions.F90 b/src/cctk_GHExtensions.F90
index d038413..a0af093 100644
--- a/src/cctk_GHExtensions.F90
+++ b/src/cctk_GHExtensions.F90
@@ -42,12 +42,14 @@ module cctk_GHExtensions
        CCTK_FPOINTER func
      end subroutine CCTK_RegisterGHExtensionInitGH
 
+#if 0
      subroutine CCTK_RegisterGHExtensionScheduleTraverseGH (ierr, handle, func)
        implicit none
        integer       ierr
        integer       handle
        CCTK_FPOINTER func
      end subroutine CCTK_RegisterGHExtensionScheduleTraverseGH
+#endif
 
      subroutine CCTK_GHExtensionHandle (ierr, name)
        implicit none
-- 
cgit v1.2.3