1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| 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
|
|
