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
|
#include "cctk.h"
#include "loopcontrol.h"
module loopcontrol
use loopcontrol_types
implicit none
interface
subroutine lc_descr_init(descr, line, file, name)
use loopcontrol_types
implicit none
CCTK_POINTER :: descr
integer :: line
character(*) :: file
character(*) :: name
end subroutine lc_descr_init
subroutine lc_control_init( &
control, descr, &
imin, jmin, kmin, &
imax, jmax, kmax, &
iash, jash, kash, &
istr)
use loopcontrol_types
implicit none
type(lc_control_t) :: control
CCTK_POINTER :: descr
integer :: imin, jmin, kmin
integer :: imax, jmax, kmax
integer :: iash, jash, kash
integer :: istr
end subroutine lc_control_init
subroutine lc_control_finish(control, descr)
use loopcontrol_types
implicit none
type(lc_control_t) :: control
CCTK_POINTER :: descr
end subroutine lc_control_finish
subroutine lc_thread_init(control)
use loopcontrol_types
implicit none
type(lc_control_t) :: control
end subroutine lc_thread_init
integer function lc_thread_done(control)
use loopcontrol_types
implicit none
type(lc_control_t) :: control
end function lc_thread_done
subroutine lc_thread_step(control)
use loopcontrol_types
implicit none
type(lc_control_t) :: control
end subroutine lc_thread_step
subroutine lc_get_fortran_type_sizes(type_sizes)
use loopcontrol_types
implicit none
CCTK_POINTER :: type_sizes(4)
end subroutine lc_get_fortran_type_sizes
end interface
end module loopcontrol
|