From 5f290cf533f8c4045e211684f636a7ff0285caaa Mon Sep 17 00:00:00 2001
From: tradke <tradke@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Fri, 2 Jul 2004 09:37:26 +0000
Subject: Comment out Fortran 90 interface declarations for routines with names
 longer than the allowed maximum length of 31 characters.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@19 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk_GHExtensions.F90 | 2 ++
 src/cctk_IOMethods.F90    | 5 ++++-
 src/cctk_Interp.F90       | 4 ++++
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/cctk_GHExtensions.F90 b/src/cctk_GHExtensions.F90
index a0af093..8967420 100644
--- a/src/cctk_GHExtensions.F90
+++ b/src/cctk_GHExtensions.F90
@@ -43,6 +43,8 @@ module cctk_GHExtensions
      end subroutine CCTK_RegisterGHExtensionInitGH
 
 #if 0
+C    no Fortran 90 interface for following routines
+C    their names exceed the maximum allowed length of 31 characters
      subroutine CCTK_RegisterGHExtensionScheduleTraverseGH (ierr, handle, func)
        implicit none
        integer       ierr
diff --git a/src/cctk_IOMethods.F90 b/src/cctk_IOMethods.F90
index 9aefa55..31cc3e1 100644
--- a/src/cctk_IOMethods.F90
+++ b/src/cctk_IOMethods.F90
@@ -30,6 +30,9 @@ module cctk_IOMethods
        CCTK_FPOINTER OutputGH
      end subroutine CCTK_RegisterIOMethodOutputGH
 
+#if 0
+C    no Fortran 90 interface for following routines
+C    their names exceed the maximum allowed length of 31 characters
      subroutine CCTK_RegisterIOMethodTimeToOutput (ierr, handle, TimeToOutput)
        implicit none
        integer       ierr
@@ -71,5 +74,5 @@ module cctk_IOMethods
      end subroutine CCTK_NumIOMethods
 
   end interface
-  
+
 end module cctk_IOMethods
diff --git a/src/cctk_Interp.F90 b/src/cctk_Interp.F90
index a122e71..d8b6a05 100644
--- a/src/cctk_Interp.F90
+++ b/src/cctk_Interp.F90
@@ -22,6 +22,9 @@ module cctk_Interp
        character(*) name
      end subroutine CCTK_InterpHandle
 
+#if 0
+C    no Fortran 90 interface for following routines
+C    their names exceed the maximum allowed length of 31 characters
      subroutine CCTK_InterpRegisterOpLocalUniform (operator_ptr, operator_name, thorn)
        implicit none
        CCTK_FPOINTER operator_ptr
@@ -35,6 +38,7 @@ module cctk_Interp
        character(*) imp
        integer      handle
      end subroutine CCTK_InterpOperatorImplementation
+#endif
 
      subroutine CCTK_InterpOperator (nchars, operator, handle)
        implicit none
-- 
cgit v1.2.3