diff options
author | tradke <tradke@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-07-02 08:53:14 +0000 |
---|---|---|
committer | tradke <tradke@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-07-02 08:53:14 +0000 |
commit | fe006906fa8caa4ba7e617e38c7255b54ae9721c (patch) | |
tree | dc2e3f4b43a482a8c1732379e411582fee8a86d9 | |
parent | 85a630586ad247e013f35ecf0bded313c388954d (diff) |
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
-rw-r--r-- | src/cctk_GHExtensions.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
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 |