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