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
|
module view_f_mod use, intrinsic ::iso_c_binding use,
intrinsic ::iso_fortran_env
use ::flcl_mod
implicit none
public
interface subroutine f_init_view(x, val) &
&bind(c, name = 'c_init_view') use,
intrinsic ::iso_c_binding use ::flcl_mod type(c_ptr), intent(in)::x integer(c_int),
intent(in)::val end subroutine f_init_view
subroutine f_print_view(x) &
&bind(c, name = 'c_print_view') use,
intrinsic ::iso_c_binding use ::flcl_mod type(c_ptr),
intent(in)::x end subroutine f_print_view end interface
contains
subroutine init_view(x, val) use,
intrinsic ::iso_c_binding use ::flcl_mod implicit none type(view_i32_2d_t),
intent(inout)::x integer(c_int),
intent(in)::val
call f_init_view(x % ptr(), val)
end subroutine init_view
subroutine print_view(x) use,
intrinsic ::iso_c_binding use ::flcl_mod implicit none type(view_i32_2d_t),
intent(in)::x
call f_print_view(x % ptr())
end subroutine print_view
end module view_f_mod
|
