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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#include "cctk.h"
module cctk_Coord
implicit none
interface
subroutine CCTK_CoordDir (dir, name, systemname)
implicit none
integer dir
character(*) name
character(*) systemname
end subroutine CCTK_CoordDir
subroutine CCTK_CoordIndex (ierr, dir, name, systemname)
implicit none
integer ierr
integer dir
character(*) name
character(*) systemname
end subroutine CCTK_CoordIndex
subroutine CCTK_CoordName (name, namelen, dir, systemname)
implicit none
character(*) name
integer namelen
integer dir
character(*) systemname
end subroutine CCTK_CoordName
subroutine CCTK_CoordRange &
(ierr, GH, coord_lower, coord_upper, &
coord_dir, coord_name, system_name)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
CCTK_REAL coord_lower
CCTK_REAL coord_upper
integer coord_dir
character(*) coord_name
character(*) system_name
end subroutine CCTK_CoordRange
subroutine CCTK_CoordRangePhysIndex &
(ierr, GH, lower, upper, coorddir, coordname, systemname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer lower
integer upper
integer coorddir
character(*) coordname
character(*) systemname
end subroutine CCTK_CoordRangePhysIndex
subroutine CCTK_CoordRegisterData (ierr, dir, gv, name, systemname)
implicit none
integer ierr
integer dir
character(*) gv
character(*) name
character(*) systemname
end subroutine CCTK_CoordRegisterData
subroutine CCTK_CoordSystemDim (dim, systemname)
implicit none
integer dim
character(*) systemname
end subroutine CCTK_CoordSystemDim
subroutine CCTK_CoordSystemHandle (handle, systemname)
implicit none
integer handle
character(*) systemname
end subroutine CCTK_CoordSystemHandle
subroutine CCTK_CoordSystemName (name, namelen, handle)
implicit none
character(*) name
integer namelen
integer handle
end subroutine CCTK_CoordSystemName
subroutine CCTK_CoordLocalRange &
(GH, lower, upper, coord_dir, coord_name, system_name)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
CCTK_REAL lower
CCTK_REAL upper
integer coord_dir
character(*) coord_name
character(*) system_name
end subroutine CCTK_CoordLocalRange
subroutine CCTK_CoordRegisterRange &
(GH, coord_min, coord_max, coord_dir, coord_name, system_name)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
CCTK_REAL coord_min
CCTK_REAL coord_max
integer coord_dir
character(*) coord_name
character(*) system_name
end subroutine CCTK_CoordRegisterRange
! This routine is commented out because its name is too long.
! Therefore it cannot be called from Fortran anyway.
! subroutine CCTK_CoordRegisterRangePhysIndex &
! (ierr, GH, coord_min, coord_max, coord_dir, coord_name, system_name)
! implicit none
! integer ierr
! CCTK_POINTER_TO_CONST GH
! integer coord_min
! integer coord_max
! integer coord_dir
! character(*) coord_name
! character(*) system_name
! end subroutine CCTK_CoordRegisterRangePhysIndex
subroutine CCTK_NumCoordSystems (num)
implicit none
integer num
end subroutine CCTK_NumCoordSystems
subroutine CCTK_CoordSystemImplementation (imp, implen, handle)
implicit none
character(*) imp
integer implen
integer handle
end subroutine CCTK_CoordSystemImplementation
end interface
end module cctk_Coord
|