foo.f90 347 B

1234567891011121314151617181920
  1. subroutine selectedrealkind(p, r, res)
  2. implicit none
  3. integer, intent(in) :: p, r
  4. !f2py integer :: r=0
  5. integer, intent(out) :: res
  6. res = selected_real_kind(p, r)
  7. end subroutine
  8. subroutine selectedintkind(p, res)
  9. implicit none
  10. integer, intent(in) :: p
  11. integer, intent(out) :: res
  12. res = selected_int_kind(p)
  13. end subroutine