blob: a0af0932915caa080b090652f3b3fd4d99d420df (
plain)
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
|
/*@@
@file $RCSfile$
@author $Author$
@date $Date$
@desc
Fortran 90 interface declarations for the routines
which have their C declarations in cctk_GHExtensions.h
@enddesc
@version $Header$
@@*/
#include "cctk.h"
module cctk_GHExtensions
implicit none
interface
subroutine CCTK_RegisterGHExtension (ierr, name)
implicit none
integer ierr
character(*) name
end subroutine CCTK_RegisterGHExtension
subroutine CCTK_UnregisterGHExtension (ierr, name)
implicit none
integer ierr
character(*) name
end subroutine CCTK_UnregisterGHExtension
subroutine CCTK_RegisterGHExtensionSetupGH (ierr, handle, func)
implicit none
integer ierr
integer handle
CCTK_FPOINTER func
end subroutine CCTK_RegisterGHExtensionSetupGH
subroutine CCTK_RegisterGHExtensionInitGH (ierr, handle, func)
implicit none
integer ierr
integer handle
CCTK_FPOINTER func
end subroutine CCTK_RegisterGHExtensionInitGH
#if 0
subroutine CCTK_RegisterGHExtensionScheduleTraverseGH (ierr, handle, func)
implicit none
integer ierr
integer handle
CCTK_FPOINTER func
end subroutine CCTK_RegisterGHExtensionScheduleTraverseGH
#endif
subroutine CCTK_GHExtensionHandle (ierr, name)
implicit none
integer ierr
character(*) name
end subroutine CCTK_GHExtensionHandle
subroutine CCTK_GHExtension (extension, GH, name)
implicit none
CCTK_POINTER extension
CCTK_POINTER_TO_CONST GH
character(*) name
end subroutine CCTK_GHExtension
end interface
end module cctk_GHExtensions
|