aboutsummaryrefslogtreecommitdiff
path: root/src/cctk_Stagger.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/cctk_Stagger.F90')
-rw-r--r--src/cctk_Stagger.F9067
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