mirror of
https://github.com/numpy/numpy.git
synced 2026-10-29 17:05:55 +08:00
15 lines
307 B
FortranFixed
15 lines
307 B
FortranFixed
subroutine f1()
|
|
print *, "in f1, calling f2 twice.."
|
|
call f2()
|
|
call f2()
|
|
return
|
|
end
|
|
|
|
subroutine f2()
|
|
cf2py intent(callback, hide) fpy
|
|
external fpy
|
|
print *, "in f2, calling f2py.."
|
|
call fpy()
|
|
return
|
|
end
|