1234567891011121314151617181920 |
- 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
|