✏️ 正在编辑: foo.f90
路径:
/opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/kind/foo.f90
提示:
您可以编辑任何文件(包括二进制文件),但请注意不当修改可能导致文件损坏。
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
💾 保存文件
← 返回文件管理器