diff options
Diffstat (limited to 'src/cctk_Groups.F90')
-rw-r--r-- | src/cctk_Groups.F90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/cctk_Groups.F90 b/src/cctk_Groups.F90 index c6499bb..888b2e8 100644 --- a/src/cctk_Groups.F90 +++ b/src/cctk_Groups.F90 @@ -21,12 +21,14 @@ module cctk_Groups integer staggered end subroutine CCTK_StaggerVars - subroutine CCTK_DecomposeName (ierr, fullname, implementation, name) + subroutine CCTK_DecomposeName (ierr, fullname, implementation, implementation_nchars, name, name_nchars) implicit none integer ierr character(*) fullname character(*) implementation + integer implementation_nchars character(*) name + integer name_nchars end subroutine CCTK_DecomposeName subroutine CCTK_FirstVarIndex (index, group) |