From 03dd2beeed34107e5268ac11241e3ae9f8b5d822 Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Sun, 28 Oct 2012 20:14:46 +0000
Subject: Remove staggering API

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@53 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk_Groups.F90  |  5 ----
 src/cctk_Stagger.F90 | 67 ----------------------------------------------------
 2 files changed, 72 deletions(-)
 delete mode 100644 src/cctk_Stagger.F90

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
-- 
cgit v1.2.3