diff options
Diffstat (limited to 'src/cctk_Stagger.F90')
-rw-r--r-- | src/cctk_Stagger.F90 | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/src/cctk_Stagger.F90 b/src/cctk_Stagger.F90 deleted file mode 100644 index c0f7d81..0000000 --- a/src/cctk_Stagger.F90 +++ /dev/null @@ -1,67 +0,0 @@ -#include "cctk.h" - -module cctk_Stagger - implicit none - - interface - - subroutine CCTK_GroupStaggerIndexGI (sindex, gindex) - implicit none - integer sindex - integer gindex - end subroutine CCTK_GroupStaggerIndexGI - - subroutine CCTK_GroupStaggerIndexGN (sindex, gname) - implicit none - integer sindex - character(*) gname - end subroutine CCTK_GroupStaggerIndexGN - - subroutine CCTK_StaggerIndex (sindex, stype) - implicit none - integer sindex - character(*) stype - end subroutine CCTK_StaggerIndex - - subroutine CCTK_StaggerDirIndex (dindex, dir, scode) - implicit none - integer dindex - integer dir - integer scode - end subroutine CCTK_StaggerDirIndex - - subroutine CCTK_StaggerDirArray (ierr, dindex, dir, sindex) - implicit none - integer ierr - integer dindex(*) - integer dir - integer sindex - end subroutine CCTK_StaggerDirArray - - subroutine CCTK_GroupStaggerDirArrayGI (ierr, dindex, dir, gi) - implicit none - integer ierr - integer dindex(*) - integer dir - integer gi - end subroutine CCTK_GroupStaggerDirArrayGI - - subroutine CCTK_StaggerDirName (scode, dir, stype) - implicit none - integer scode - integer dir - character(*) stype - end subroutine CCTK_StaggerDirName - - subroutine CCTKi_ParseStaggerString (scode, dim, imp, gname, stype) - implicit none - integer scode - integer dim - character(*) imp - character(*) gname - integer stype - end subroutine CCTKi_ParseStaggerString - - end interface - -end module cctk_Stagger |