✏️ 正在编辑: foo.f90
路径:
/opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/abstract_interface/foo.f90
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
module ops_module abstract interface subroutine op(x, y, z) integer, intent(in) :: x, y integer, intent(out) :: z end subroutine end interface contains subroutine foo(x, y, r1, r2) integer, intent(in) :: x, y integer, intent(out) :: r1, r2 procedure (op) add1, add2 procedure (op), pointer::p p=>add1 call p(x, y, r1) p=>add2 call p(x, y, r2) end subroutine end module subroutine add1(x, y, z) integer, intent(in) :: x, y integer, intent(out) :: z z = x + y end subroutine subroutine add2(x, y, z) integer, intent(in) :: x, y integer, intent(out) :: z z = x + 2 * y end subroutine
💾 保存文件
← 返回文件管理器