20 lines
347 B
Fortran
20 lines
347 B
Fortran
|
|
|
|
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
|