| 123456789101112131415161718 |
- python module __user__routines
- interface
- function fun(i) result (r)
- integer :: i
- real*8 :: r
- end function fun
- end interface
- end python module __user__routines
- python module callback2
- interface
- subroutine foo(f,r)
- use __user__routines, f=>fun
- external f
- real*8 intent(out) :: r
- end subroutine foo
- end interface
- end python module callback2
|