summaryrefslogtreecommitdiff
path: root/numpy/f2py/lib/wrapper_base.py
diff options
context:
space:
mode:
authorPearu Peterson <pearu.peterson@gmail.com>2006-10-05 16:44:52 +0000
committerPearu Peterson <pearu.peterson@gmail.com>2006-10-05 16:44:52 +0000
commitf0bfc449991703abef349b844764dc3f3abc9fef (patch)
tree7a182c17dc42649c1c610e62ec5f8a574275e9a1 /numpy/f2py/lib/wrapper_base.py
parent73eef3a9fc78c6f047af91eb6f86b8e3b7893240 (diff)
downloadnumpy-f0bfc449991703abef349b844764dc3f3abc9fef.tar.gz
F2PY G3: added basic support for wrapping Fortran subprograms, scalar input only.
Diffstat (limited to 'numpy/f2py/lib/wrapper_base.py')
-rw-r--r--numpy/f2py/lib/wrapper_base.py3
1 files changed, 3 insertions, 0 deletions
diff --git a/numpy/f2py/lib/wrapper_base.py b/numpy/f2py/lib/wrapper_base.py
index bd82512d7..cd7a3a8b0 100644
--- a/numpy/f2py/lib/wrapper_base.py
+++ b/numpy/f2py/lib/wrapper_base.py
@@ -87,8 +87,11 @@ class WrapperBase:
elif n.endswith('_elist'):
joinsymbol = ''
realname = realname[:-6] + '_list'
+ realname_lower = realname.lower()
if hasattr(self, realname):
attr = getattr(self, realname)
+ elif hasattr(self, realname_lower):
+ attr = getattr(self, realname_lower).upper()
elif realname.startswith('['):
attr = eval(realname)
else: