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
|
#include "cctk.h"
module cctk_ActiveThorns
implicit none
interface
! This routine has been made a function instead of a subroutine
! and is declared in cctk.h
! subroutine CCTK_IsThornActive (ierr, name)
! implicit none
! integer ierr
! character(*) name
! end subroutine CCTK_IsThornActive
subroutine CCTK_ThornHandle (handle, name)
implicit none
CCTK_POINTER_TO_CONST handle
character(*) name
end subroutine CCTK_ThornHandle
subroutine CCTK_IsThornActiveH (ierr, handle)
implicit none
integer ierr
CCTK_POINTER_TO_CONST handle
end subroutine CCTK_IsThornActiveH
subroutine CCTK_IsThornCompiled (ierr, name)
implicit none
integer ierr
character(*) name
end subroutine CCTK_IsThornCompiled
subroutine CCTK_IsImplementationActive (ierr, name)
implicit none
integer ierr
character(*) name
end subroutine CCTK_IsImplementationActive
subroutine CCTK_IsImplementationCompiled (ierr, name)
implicit none
integer ierr
character(*) name
end subroutine CCTK_IsImplementationCompiled
subroutine CCTK_ActivatingThorn (thorn, imp)
implicit none
character(*) thorn
character(*) imp
end subroutine CCTK_ActivatingThorn
subroutine CCTK_ImpThornList (thornlist, imp)
implicit none
CCTK_POINTER thornlist
character(*) imp
end subroutine CCTK_ImpThornList
subroutine CCTK_ThornImplementation (imp, thorn)
implicit none
character(*) imp
character(*) thorn
end subroutine CCTK_ThornImplementation
subroutine CCTK_ImplementationThorn (thorn, imp)
implicit none
character(*) thorn
character(*) imp
end subroutine CCTK_ImplementationThorn
subroutine CCTK_ImplementationRequires (implist, imp)
implicit none
CCTK_POINTER implist
character(*) imp
end subroutine CCTK_ImplementationRequires
subroutine CCTK_NumCompiledThorns (num)
implicit none
integer num
end subroutine CCTK_NumCompiledThorns
subroutine CCTK_NumCompiledImplementations (num)
implicit none
integer num
end subroutine CCTK_NumCompiledImplementations
subroutine CCTK_CompiledThorn (thorn_name, thorn_index)
implicit none
character(*) thorn_name
integer thorn_index
end subroutine CCTK_CompiledThorn
subroutine CCTK_CompiledImplementation (imp_name, imp_index)
implicit none
character(*) imp_name
integer imp_index
end subroutine CCTK_CompiledImplementation
end interface
end module cctk_ActiveThorns
|