diff options
| -rw-r--r-- | src/cctk_GHExtensions.F90 | 2 | ||||
| -rw-r--r-- | src/cctk_IOMethods.F90 | 5 | ||||
| -rw-r--r-- | src/cctk_Interp.F90 | 4 |
3 files changed, 10 insertions, 1 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 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 |