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
|
module tomlf_build_array
use tomlf_build_keyval, only : get_value, GLOBAL_VAR
implicit none
interface get_value
module procedure :: get_elem_table
module procedure :: get_elem_array
module procedure :: get_elem_keyval
end interface get_value
contains
subroutine get_elem_table(array, pos, ptr, stat)
integer, intent(inout) :: array
integer, intent(in) :: pos
real, pointer, intent(out) :: ptr
integer, intent(out), optional :: stat
GLOBAL_VAR = 1.0
end subroutine get_elem_table
subroutine get_elem_array(array, pos, ptr, stat)
complex, intent(inout) :: array
integer, intent(in) :: pos
real, pointer, intent(out) :: ptr
integer, intent(out), optional :: stat
end subroutine get_elem_array
subroutine get_elem_keyval(array, pos, ptr, stat)
integer, intent(inout) :: array
integer, intent(in) :: pos
complex, pointer, intent(out) :: ptr
integer, intent(out), optional :: stat
end subroutine get_elem_keyval
end module tomlf_build_array
|
