diff options
Diffstat (limited to 'src/cctk_Interp.F90')
-rw-r--r-- | src/cctk_Interp.F90 | 4 |
1 files changed, 4 insertions, 0 deletions
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 |