diff options
author | eschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2012-10-28 20:14:46 +0000 |
---|---|---|
committer | eschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2012-10-28 20:14:46 +0000 |
commit | 03dd2beeed34107e5268ac11241e3ae9f8b5d822 (patch) | |
tree | cd932d0a5ef4387971c1dcaf752209c4ebc521b0 | |
parent | c8da4a307e7e53845889a2cd61eed0a3c2f3606b (diff) |
Remove staggering API
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@53 51d2df92-0e4f-0410-a727-bd43d766d6b6
-rw-r--r-- | src/cctk_Groups.F90 | 5 | ||||
-rw-r--r-- | src/cctk_Stagger.F90 | 67 |
2 files changed, 0 insertions, 72 deletions
diff --git a/src/cctk_Groups.F90 b/src/cctk_Groups.F90 index d058011..c3fe3ce 100644 --- a/src/cctk_Groups.F90 +++ b/src/cctk_Groups.F90 @@ -5,11 +5,6 @@ module cctk_Groups interface - subroutine CCTK_StaggerVars (staggered) - implicit none - integer staggered - end subroutine CCTK_StaggerVars - subroutine CCTK_DecomposeName (ierr, fullname, implementation, implementation_nchars, name, name_nchars) implicit none integer ierr 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 |