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
|
module tomlf_build_keyval
implicit none
real :: GLOBAL_VAR
interface get_value
module procedure :: get_value_float_sp
module procedure :: get_value_float_dp
end interface get_value
contains
subroutine get_value_float_sp(self, val, stat)
complex, intent(in) :: self
real(4), intent(out) :: val
integer, intent(out), optional :: stat
end subroutine get_value_float_sp
subroutine get_value_float_dp(self, val, stat)
complex, intent(in) :: self
real(8), intent(out) :: val
integer, intent(out), optional :: stat
end subroutine get_value_float_dp
end module tomlf_build_keyval
|
