codekingpro/portable-devtools

1       subroutine t(fun,a)
2       integer a
3cf2py  intent(out) a
4       external fun
5       call fun(a)
6       end
7
8       subroutine func(a)
9cf2py  intent(in,out) a
10       integer a
11       a = a + 11
12       end
13
14       subroutine func0(a)
15cf2py  intent(out) a
16       integer a
17       a = 11
18       end
19
20       subroutine t2(a)
21cf2py  intent(callback) fun
22       integer a
23cf2py  intent(out) a
24       external fun
25       call fun(a)
26       end
27
28       subroutine string_callback(callback, a)
29       external callback
30       double precision callback
31       double precision a
32       character*1 r
33cf2py  intent(out) a
34       r = 'r'
35       a = callback(r)
36       end
37
38       subroutine string_callback_array(callback, cu, lencu, a)
39       external callback
40       integer callback
41       integer lencu
42       character*8 cu(lencu)
43       integer a
44cf2py  intent(out) a
45
46       a = callback(cu, lencu)
47       end
48
49       subroutine hidden_callback(a, r)
50       external global_f
51cf2py  intent(callback, hide) global_f
52       integer a, r, global_f
53cf2py  intent(out) r
54       r = global_f(a)
55       end
56
57       subroutine hidden_callback2(a, r)
58       external global_f
59       integer a, r, global_f
60cf2py  intent(out) r
61       r = global_f(a)
62       end
63