1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/*@@
@file $RCSfile$
@author $Author$
@date $Date$
@desc
Fortran 90 interface declarations for the routines
which have their C declarations in cctk_Stagger.h
@enddesc
@version $Header$
@@*/
#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
|