diff options
author | Pearu Peterson <pearu.peterson@gmail.com> | 2006-10-05 16:44:52 +0000 |
---|---|---|
committer | Pearu Peterson <pearu.peterson@gmail.com> | 2006-10-05 16:44:52 +0000 |
commit | f0bfc449991703abef349b844764dc3f3abc9fef (patch) | |
tree | 7a182c17dc42649c1c610e62ec5f8a574275e9a1 /numpy/f2py/lib/wrapper_base.py | |
parent | 73eef3a9fc78c6f047af91eb6f86b8e3b7893240 (diff) | |
download | numpy-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.py | 3 |
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: |