MAINT,DOC: f2py cleanup

6 files changed, 0 insertions, 351 deletions

diff --git a/numpy/f2py/src/test/Makefile b/numpy/f2py/src/test/Makefile
deleted file mode 100644
index 0f8869f72..000000000
--- a/numpy/f2py/src/test/Makefile
+++ /dev/null
@@ -1,96 +0,0 @@
-# -*- makefile -*-
-# File: Makefile-foo
-# Usage:
-#     make -f Makefile-foo [MODE=opt|debug]
-# Notes:
-# 1) You must use GNU make; try `gmake ..' if `make' fails.
-# 2) This file is auto-generated with f2py (version 2.264).
-#    f2py is a Fortran to Python Interface Generator (FPIG), Second Edition,
-#    written by Pearu Peterson <pearu@ioc.ee>.
-#    See http://cens.ioc.ee/projects/f2py2e/
-#    Generation date: Wed Sep 13 16:22:55 2000
-#    $Revision: 1.2 $
-#    $Date: 2000/09/17 16:10:27 $
-
-# Recommendation notes produced by f2py2e/buildmakefile.py:
-# *** 
-
-PYINC =  -I/numeric/include/python1.5/Numeric -I/numeric/include/python1.5
-INCLUDES = -I..
-LIBS =  -L$(shell gcc -v 2>&1 | grep specs | sed -e 's/Reading specs from //g' | sed -e 's/\/specs//g') -lg2c 
-LIBS=-L$$ABSOFT/lib -lfio -lf77math -lf90math
-LIBS=-L/numeric/bin -lvast90 -L/usr/lib/gcc-lib/i586-mandrake-linux/2.95.2 -lg2c
-
-# Wrapper generator:
-F2PY = /home/pearu/bin/f2py-cvs
-
-# Fortran compiler: Absoft f95 
-FC = f95
-FC = f90
-FOPT = 
-FDEBUG = 
-FFLAGS = -B108 -YCFRL=1 -YCOM_NAMES=LCS -YCOM_PFX -YCOM_SFX=_ -YEXT_PFX -YEXT_NAMES=LCS
-FFLAGS = 
-# C compiler: cc ('gcc 2.x.x' 2.95.2)
-CC = cc
-COPT = 
-CDEBUG = 
-CFLAGS =  -fpic 
-
-# Linker: ld ('GNU ld' 2.9.5)
-LD = ld
-LDFLAGS = -shared -s 
-SO = .so
-
-ifeq '$(MODE)' 'debug'
-FFLAGS += $(FDEBUG)
-CFLAGS += $(CDEBUG)
-endif
-ifeq '$(MODE)' 'opt'
-FFLAGS += $(FOPT)
-CFLAGS += $(COPT)
-endif
-FFLAGS += $(INCLUDES)
-CFLAGS += $(PYINC) $(INCLUDES)
-
-SRCC = ../fortranobject.c
-SRCF = mod.f90 bar.f foo90.f90 wrap.f
-SRCS = $(SRCC) $(SRCF)
-OBJC = $(filter %.o,$(SRCC:.c=.o) $(SRCC:.cc=.o) $(SRCC:.C=.o))
-OBJF = $(filter %.o,$(SRCF:.f90=.o) $(SRCF:.f=.o) $(SRCF:.F=.o) $(SRCF:.for=.o))
-OBJS = $(OBJC) $(OBJF)
-
-INSTALLNAME = f2py2e-apps
-INSTALLDIRECTORY = /numeric/lib/python1.5/site-packages/$(INSTALLNAME)
-INSTALLDIR = install -d -c
-INSTALLEXEC = install -m 755 -c
-
-all: foo
-
-foo: foomodule$(SO)
-foomodule$(SO) : foomodule.o $(OBJS)
-	$(LD) $(LDFLAGS) -o $@ $< $(OBJS) $(LIBS)
-
-foomodule.o: foomodule.c
-
-
-$(OBJS) : $(SRCS)
-%.o : %.f ; $(FC) -c $(FFLAGS) $< 
-%.o : %.f90 ; $(FC) -c $(FFLAGS) $< 
-
-test: foomodule$(SO)
-	python -c 'import foo;print foo.__doc__'
-install: foomodule$(SO)
-	$(INSTALLDIR) $(INSTALLDIRECTORY)
-	$(INSTALLEXEC) foomodule$(SO) $(INSTALLDIRECTORY)
-	cd $(INSTALLDIRECTORY) && echo "$(INSTALLNAME)" > ../$(INSTALLNAME).pth
-
-.PHONY: clean distclean debug test install foo
-debug:
-	echo "OBJS=$(OBJS)"
-	echo "SRCS=$(SRCS)"
-clean:
-	$(RM) *.o *.mod core foomodule.{dvi,log} $(OBJS)
-distclean: clean
-	$(RM) *.so *.sl foomodule.{tex,so}
-	$(RM) .f2py_get_compiler_*
diff --git a/numpy/f2py/src/test/bar.f b/numpy/f2py/src/test/bar.f
deleted file mode 100644
index 5354ceaf9..000000000
--- a/numpy/f2py/src/test/bar.f
+++ /dev/null
@@ -1,11 +0,0 @@
-      subroutine bar()
-      integer a
-      real*8 b,c(3)
-      common /foodata/ a,b,c
-      a = 4
-      b = 6.7
-      c(2) = 3.0
-      write(*,*) "bar:a=",a
-      write(*,*) "bar:b=",b
-      write(*,*) "bar:c=",c
-      end
diff --git a/numpy/f2py/src/test/foo.f b/numpy/f2py/src/test/foo.f
deleted file mode 100644
index 5354ceaf9..000000000
--- a/numpy/f2py/src/test/foo.f
+++ /dev/null
@@ -1,11 +0,0 @@
-      subroutine bar()
-      integer a
-      real*8 b,c(3)
-      common /foodata/ a,b,c
-      a = 4
-      b = 6.7
-      c(2) = 3.0
-      write(*,*) "bar:a=",a
-      write(*,*) "bar:b=",b
-      write(*,*) "bar:c=",c
-      end
diff --git a/numpy/f2py/src/test/foo90.f90 b/numpy/f2py/src/test/foo90.f90
deleted file mode 100644
index dbca7e95b..000000000
--- a/numpy/f2py/src/test/foo90.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-subroutine foo()
-  integer a
-  real*8 b,c(3)
-  common /foodata/ a,b,c
-  print*, "   F: in foo"
-  a = 5
-  b = 6.3
-  c(2) = 9.1
-end subroutine foo
-
-
-
-
diff --git a/numpy/f2py/src/test/foomodule.c b/numpy/f2py/src/test/foomodule.c
deleted file mode 100644
index 00a48f4c0..000000000
--- a/numpy/f2py/src/test/foomodule.c
+++ /dev/null
@@ -1,150 +0,0 @@
-/* File: foomodule.c
- * Example of FortranObject usage. See also wrap.f foo.f foo90.f90.
- * Author: Pearu Peterson <pearu@ioc.ee>.
- * http://cens.ioc.ee/projects/f2py2e/
- * $Revision: 1.2 $
- * $Date: 2000/09/17 16:10:27 $
- */
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#define PY_SSIZE_T_CLEAN
-#include <Python.h>
-
-#include "fortranobject.h"
-
-static PyObject *foo_error;
-
-#if defined(NO_APPEND_FORTRAN)
-#if defined(UPPERCASE_FORTRAN)
-#define F_FUNC(f,F) F
-#else
-#define F_FUNC(f,F) f
-#endif
-#else
-#if defined(UPPERCASE_FORTRAN)
-#define F_FUNC(f,F) F##_
-#else
-#define F_FUNC(f,F) f##_
-#endif
-#endif
-
-/************* foo_bar *************/
-static char doc_foo_bar[] = "\
-Function signature:\n\
-  bar()\n\
-";
-static PyObject *foo_bar(PyObject *capi_self, PyObject *capi_args,
-                         PyObject *capi_keywds, void (*f2py_func)()) {
-    PyObject *capi_buildvalue = NULL;
-    static char *capi_kwlist[] = {NULL};
-    if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
-                                     "|:foo.bar",\
-                                     capi_kwlist))
-        goto capi_fail;
-    (*f2py_func)();
-    capi_buildvalue = Py_BuildValue("");
- capi_fail:
-    return capi_buildvalue;
-}
-/************ mod_init **************/
-static PyObject *mod_init(PyObject *capi_self, PyObject *capi_args,
-                          PyObject *capi_keywds, void (*f2py_func)()) {
-    PyObject *capi_buildvalue = NULL;
-    static char *capi_kwlist[] = {NULL};
-    if (!PyArg_ParseTupleAndKeywords(capi_args,capi_keywds,\
-                                     "|:mod.init",\
-                                     capi_kwlist))
-        goto capi_fail;
-    (*f2py_func)();
-    capi_buildvalue = Py_BuildValue("");
- capi_fail:
-    return capi_buildvalue;
-}
-
-/* F90 module */
-static FortranDataDef f2py_mod_def[] = {
-    {"a",0, {}, NPY_INT},
-    {"b",0, {}, NPY_DOUBLE},
-    {"c",1, {3}, NPY_DOUBLE},
-    {"d",1, {-1}, NPY_DOUBLE},
-    {"init",-1,{},0,NULL,(void *)mod_init},
-    {NULL}
-};
-static void f2py_setup_mod(char *a,char *b,char *c,void (*d)(),char *init) {
-    f2py_mod_def[0].data = a;
-    f2py_mod_def[1].data = b;
-    f2py_mod_def[2].data = c;
-    f2py_mod_def[3].func = d;
-    f2py_mod_def[4].data = init;
-}
-extern void F_FUNC(f2pyinitmod,F2PYINITMOD)();
-                                           static void f2py_init_mod() {
-                                               F_FUNC(f2pyinitmod,F2PYINITMOD)(f2py_setup_mod);
-                                           }
-
-/* COMMON block */
-static FortranDataDef f2py_foodata_def[] = {
-    {"a",0, {}, NPY_INT},
-    {"b",0, {}, NPY_DOUBLE},
-    {"c",1, {3}, NPY_DOUBLE},
-    {NULL}
-};
-static void f2py_setup_foodata(char *a,char *b,char *c) {
-    f2py_foodata_def[0].data = a;
-    f2py_foodata_def[1].data = b;
-    f2py_foodata_def[2].data = c;
-}
-extern void F_FUNC(f2pyinitfoodata,F2PYINITFOODATA)();
-                                                   static void f2py_init_foodata() {
-                                                       F_FUNC(f2pyinitfoodata,F2PYINITFOODATA)(f2py_setup_foodata);
-                                                   }
-
-/* Fortran routines (needs no initialization/setup function) */
-extern void F_FUNC(bar,BAR)();
-                           extern void F_FUNC(foo,FOO)();
-                                                      static FortranDataDef f2py_routines_def[] = {
-                                                          {"bar",-1, {}, 0, (char *)F_FUNC(bar,BAR),(void *)foo_bar,doc_foo_bar},
-                                                          {"foo",-1, {}, 0, (char *)F_FUNC(foo,FOO),(void *)foo_bar,doc_foo_bar},
-                                                          {NULL}
-                                                      };
-
-static PyMethodDef foo_module_methods[] = {
-    /*eof method*/
-    {NULL,NULL}
-};
-
-void initfoo() {
-    int i;
-    PyObject *m, *d, *s, *tmp;
-    import_array();
-
-    m = Py_InitModule("foo", foo_module_methods);
-
-    d = PyModule_GetDict(m);
-    s = PyUnicode_FromString("This module 'foo' demonstrates the usage of fortranobject.");
-    PyDict_SetItemString(d, "__doc__", s);
-
-    /* Fortran objects: */
-    tmp = PyFortranObject_New(f2py_mod_def,f2py_init_mod);
-    PyDict_SetItemString(d, "mod", tmp);
-    Py_DECREF(tmp);
-    tmp = PyFortranObject_New(f2py_foodata_def,f2py_init_foodata);
-    PyDict_SetItemString(d, "foodata", tmp);
-    Py_DECREF(tmp);
-    for(i=0;f2py_routines_def[i].name!=NULL;i++) {
-        tmp = PyFortranObject_NewAsAttr(&f2py_routines_def[i]);
-        PyDict_SetItemString(d, f2py_routines_def[i].name, tmp);
-        Py_DECREF(tmp);
-    }
-
-    Py_DECREF(s);
-
-    if (PyErr_Occurred())
-        Py_FatalError("can't initialize module foo");
-}
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/numpy/f2py/src/test/wrap.f b/numpy/f2py/src/test/wrap.f
deleted file mode 100644
index 9414eb9f6..000000000
--- a/numpy/f2py/src/test/wrap.f
+++ /dev/null
@@ -1,70 +0,0 @@
-      subroutine f2py_mod_get_dims(f2py_r,f2py_s,f2py_set,f2py_n)
-      use mod
-      external f2py_set
-      logical f2py_ns
-      integer f2py_s(*),f2py_r,f2py_i,f2py_j
-      character*(*) f2py_n
-      if ("d".eq.f2py_n) then
-         f2py_ns = .FALSE.
-         if (allocated(d)) then
-            do f2py_i=1,f2py_r
-               if ((size(d,f2py_r-f2py_i+1).ne.f2py_s(f2py_i)).and.
-     c          (f2py_s(f2py_i).ge.0)) then
-                  f2py_ns = .TRUE.
-               end if
-            end do
-            if (f2py_ns) then
-               deallocate(d)
-            end if
-         end if
-         if (.not.allocated(d)) then
-            allocate(d(f2py_s(1)))
-         end if
-         if (allocated(d)) then
-            do f2py_i=1,f2py_r
-               f2py_s(f2py_i) = size(d,f2py_r-f2py_i+1)
-            end do
-            call f2py_set(d)
-         end if
-      end if
-      end subroutine f2py_mod_get_dims
-      subroutine f2py_mod_get_dims_d(r,s,set_data)
-      use mod, only: d => d
-      external set_data
-      logical ns
-      integer s(*),r,i,j
-      ns = .FALSE.
-      if (allocated(d)) then
-         do i=1,r
-            if ((size(d,r-i+1).ne.s(i)).and.(s(i).ge.0)) then
-               ns = .TRUE.
-            end if
-         end do
-         if (ns) then 
-            deallocate(d) 
-         end if
-      end if
-      if (.not.allocated(d).and.(s(1).ge.1)) then
-         allocate(d(s(1)))
-      end if
-      if (allocated(d)) then
-         do i=1,r
-            s(i) = size(d,r-i+1)
-         end do
-      end if
-      call set_data(d,allocated(d))
-      end subroutine f2py_mod_get_dims_d
-
-      subroutine f2pyinitmod(setupfunc)
-      use mod
-      external setupfunc,f2py_mod_get_dims_d,init
-      call setupfunc(a,b,c,f2py_mod_get_dims_d,init)
-      end subroutine f2pyinitmod
-
-      subroutine f2pyinitfoodata(setupfunc)
-      external setupfunc
-      integer a
-      real*8 b,c(3)
-      common /foodata/ a,b,c
-      call setupfunc(a,b,c)
-      end subroutine f2pyinitfoodata