summaryrefslogtreecommitdiff
path: root/numpy/f2py/f90mod_rules.py
diff options
context:
space:
mode:
authorPearu Peterson <pearu.peterson@gmail.com>2011-05-06 01:30:03 +0300
committerPearu Peterson <pearu.peterson@gmail.com>2011-05-06 01:30:19 +0300
commitf393b6041c0d124b0372c494bab7de8dbe0cd422 (patch)
tree20adefd93eeb224f10ecdcb4b7b73487938bc312 /numpy/f2py/f90mod_rules.py
parent516d50cf42833c34ca617c2f09e0e779c6b93665 (diff)
downloadnumpy-f393b6041c0d124b0372c494bab7de8dbe0cd422.tar.gz
BUG: Fix assumed shape support for module routines.
Diffstat (limited to 'numpy/f2py/f90mod_rules.py')
-rw-r--r--numpy/f2py/f90mod_rules.py9
1 files changed, 7 insertions, 2 deletions
diff --git a/numpy/f2py/f90mod_rules.py b/numpy/f2py/f90mod_rules.py
index 6ce9b15ca..e4a4b0e96 100644
--- a/numpy/f2py/f90mod_rules.py
+++ b/numpy/f2py/f90mod_rules.py
@@ -180,8 +180,13 @@ def buildhooks(pymod):
#efargs.append(fargs[-1])
ifargs.append(func2subr.createfuncwrapper(b,signature=1))
else:
- fargs.append(b['name'])
- mfargs.append(fargs[-1])
+ if wrap:
+ fhooks[0]=fhooks[0]+wrap
+ fargs.append('f2pywrap_%s_%s'%(m['name'],b['name']))
+ ifargs.append(func2subr.createsubrwrapper(b,signature=1))
+ else:
+ fargs.append(b['name'])
+ mfargs.append(fargs[-1])
#if '--external-modroutines' in options and options['--external-modroutines']:
# outmess('\t\t\tapplying --external-modroutines for %s\n'%(b['name']))
# efargs.append(fargs[-1])