From ec5a3911b06f7dbefe89947a42d8ff23e1b82fdd Mon Sep 17 00:00:00 2001 From: Pearu Peterson Date: Fri, 13 Oct 2006 20:41:27 +0000 Subject: F2PY G3: modules can import f90 derived type wrappers from other modules. --- numpy/f2py/lib/wrapper_base.py | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'numpy/f2py/lib/wrapper_base.py') diff --git a/numpy/f2py/lib/wrapper_base.py b/numpy/f2py/lib/wrapper_base.py index d969b87fb..ccda6401e 100644 --- a/numpy/f2py/lib/wrapper_base.py +++ b/numpy/f2py/lib/wrapper_base.py @@ -88,10 +88,15 @@ class WrapperBase: joinsymbol = '' realname = realname[:-6] + '_list' realname_lower = realname.lower() + parent = getattr(self,'parent',None) if hasattr(self, realname): attr = getattr(self, realname) elif hasattr(self, realname_lower): attr = getattr(self, realname_lower).upper() + elif hasattr(parent, realname): + attr = getattr(parent, realname) + elif hasattr(parent, realname_lower): + attr = getattr(parent, realname_lower).upper() elif realname.startswith('['): attr = eval(realname) else: -- cgit v1.2.1