gh25211.pyf 447 B

123456789101112131415161718
  1. python module __user__routines
  2. interface
  3. function fun(i) result (r)
  4. integer :: i
  5. real*8 :: r
  6. end function fun
  7. end interface
  8. end python module __user__routines
  9. python module callback2
  10. interface
  11. subroutine foo(f,r)
  12. use __user__routines, f=>fun
  13. external f
  14. real*8 intent(out) :: r
  15. end subroutine foo
  16. end interface
  17. end python module callback2