aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6>2012-10-28 20:14:46 +0000
committereschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6>2012-10-28 20:14:46 +0000
commit03dd2beeed34107e5268ac11241e3ae9f8b5d822 (patch)
treecd932d0a5ef4387971c1dcaf752209c4ebc521b0
parentc8da4a307e7e53845889a2cd61eed0a3c2f3606b (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.F905
-rw-r--r--src/cctk_Stagger.F9067
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