F2PY G3: started subprogram support addition.

1 files changed, 23 insertions, 0 deletions

diff --git a/numpy/f2py/lib/py_wrap_subprogram.py b/numpy/f2py/lib/py_wrap_subprogram.py
new file mode 100644
index 000000000..3c203c317
--- /dev/null
+++ b/numpy/f2py/lib/py_wrap_subprogram.py
@@ -0,0 +1,23 @@
+
+__all__ = ['PythonCAPISubProgram']
+
+import sys
+
+from wrapper_base import *
+
+class PythonCAPISubProgram(WrapperBase):
+    """
+    Fortran subprogram hooks.
+    """
+    _defined = []
+    def __init__(self, parent, block):
+        WrapperBase.__init__(self)
+        self.name = name = block.name
+        if name in self._defined:
+            return
+        self._defined.append(name)
+        self.info('Generating interface for %s: %s' % (block.__class__, name))
+
+
+        raise NotImplementedError,`name,block.__class__`
+        return