diff options
Diffstat (limited to 'numpy/f2py/func2subr.py')
| -rw-r--r-- | numpy/f2py/func2subr.py | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/numpy/f2py/func2subr.py b/numpy/f2py/func2subr.py index 4fee8c3c1..02401d504 100644 --- a/numpy/f2py/func2subr.py +++ b/numpy/f2py/func2subr.py @@ -126,6 +126,12 @@ def createfuncwrapper(rout,signature=0): add('external %s'%(fortranname)) #if not return_char_star: l = l + ', '+fortranname + + if need_interface: + for line in rout['saved_interface'].split('\n'): + if line.lstrip().startswith('use '): + add(line) + args = args[1:] dumped_args = [] for a in args: @@ -201,6 +207,11 @@ def createsubrwrapper(rout,signature=0): if not need_interface: add('external %s'%(fortranname)) + if need_interface: + for line in rout['saved_interface'].split('\n'): + if line.lstrip().startswith('use '): + add(line) + dumped_args = [] for a in args: if isexternal(vars[a]): |