/
opt
/
imh-python
/
lib
/
python3.9
/
site-packages
/
numpy
/
f2py
/
tests
/
src
/
kind
/
/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/kind
mkdir
upload
Name
Size
Mode
Actions
foo.f90
347
0644
edit
dl
rm
Edit:
/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/kind/foo.f90
(347B)
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
Save
cmd:
run