20 lines
485 B
Plaintext
20 lines
485 B
Plaintext
! -*- f90 -*-
|
|
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
|