1
2
3
4
5
6
7
8
9
10
11
12
13
14
| SUBROUTINE FOO(OUT1, OUT2, OUT3, OUT4, OUT5, OUT6)
| CHARACTER SINGLE, DOUBLE, SEMICOL, EXCLA, OPENPAR, CLOSEPAR
| PARAMETER (SINGLE="'", DOUBLE='"', SEMICOL=';', EXCLA="!",
| 1 OPENPAR="(", CLOSEPAR=")")
| CHARACTER OUT1, OUT2, OUT3, OUT4, OUT5, OUT6
| Cf2py intent(out) OUT1, OUT2, OUT3, OUT4, OUT5, OUT6
| OUT1 = SINGLE
| OUT2 = DOUBLE
| OUT3 = SEMICOL
| OUT4 = EXCLA
| OUT5 = OPENPAR
| OUT6 = CLOSEPAR
| RETURN
| END
|
|
