blob: ec67b0ca51f2f1a881abe7a39021e9837c69d211 (
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
|
#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
! no Fortran 90 interface for following routines
! their names exceed the maximum allowed length of 31 characters
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
|