?HAMA

Edit File Size: 1.22 KB

/opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/callback/foo.f

Text Base64

subroutine t(fun,a)
       integer a
cf2py  intent(out) a
       external fun
       call fun(a)
       end

subroutine func(a)
cf2py  intent(in,out) a
       integer a
       a = a + 11
       end

subroutine func0(a)
cf2py  intent(out) a
       integer a
       a = 11
       end

subroutine t2(a)
cf2py  intent(callback) fun
       integer a
cf2py  intent(out) a
       external fun
       call fun(a)
       end

subroutine string_callback(callback, a)
       external callback
       double precision callback
       double precision a
       character*1 r
cf2py  intent(out) a
       r = 'r'
       a = callback(r)
       end

subroutine string_callback_array(callback, cu, lencu, a)
       external callback
       integer callback
       integer lencu
       character*8 cu(lencu)
       integer a
cf2py  intent(out) a

a = callback(cu, lencu)
       end

subroutine hidden_callback(a, r)
       external global_f
cf2py  intent(callback, hide) global_f
       integer a, r, global_f
cf2py  intent(out) r
       r = global_f(a)
       end

subroutine hidden_callback2(a, r)
       external global_f
       integer a, r, global_f
cf2py  intent(out) r
       r = global_f(a)
       end

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Name	Size	Perms	Modified	Actions
foo.f	1.22 KB	lrw-r--r--	2026-01-20 13:01:48	Edit Download recursive recursive
gh17797.f90	148 B	lrw-r--r--	2026-01-20 13:01:48	Edit Download recursive recursive
gh18335.f90	506 B	lrw-r--r--	2026-01-20 13:01:48	Edit Download recursive recursive

Directory Contents