3
subroutine selectedrealkind(p, r, res)
6
integer, intent(in) :: p, r
8
integer, intent(out) :: res
9
res = selected_real_kind(p, r)
13
subroutine selectedintkind(p, res)
16
integer, intent(in) :: p
17
integer, intent(out) :: res
18
res = selected_int_kind(p)