codekingpro/portable-devtools

1
2
3subroutine selectedrealkind(p, r, res)
4  implicit none
5  
6  integer, intent(in) :: p, r
7  !f2py integer :: r=0
8  integer, intent(out) :: res
9  res = selected_real_kind(p, r)
10
11end subroutine
12
13subroutine selectedintkind(p, res)
14  implicit none
15
16  integer, intent(in) :: p
17  integer, intent(out) :: res
18  res = selected_int_kind(p)
19
20end subroutine
21