From c6aa52df0532547ba1e046fbd65b8d0524e89c16 Mon Sep 17 00:00:00 2001
From: Pearu Peterson <pearu.peterson@gmail.com>
Date: Thu, 5 Oct 2006 07:23:48 +0000
Subject: F2PY G3: started subprogram support addition.

---
 numpy/f2py/lib/py_wrap_subprogram.py | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 numpy/f2py/lib/py_wrap_subprogram.py

(limited to 'numpy/f2py/lib/py_wrap_subprogram.py')

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
-- 
cgit v1.2.1