diff options
| author | tradke <tradke@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-07-02 09:37:26 +0000 |
|---|---|---|
| committer | tradke <tradke@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2004-07-02 09:37:26 +0000 |
| commit | 5f290cf533f8c4045e211684f636a7ff0285caaa (patch) | |
| tree | b1ed58211e949d63e7858ddb4ef2b5cb0ec203b4 /src/cctk_GHExtensions.F90 | |
| parent | 840bfeff24333df659ff1bc4116a0ef1b8cfe2f0 (diff) | |
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
Diffstat (limited to 'src/cctk_GHExtensions.F90')
| -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 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 |