1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| 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
|
|