[Scipy-svn] r4928 - trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS

[scipy-svn at scipy.org]

Author: cdavid
Date: 2008-11-02 19:25:00 -0600 (Sun, 02 Nov 2008)
New Revision: 4928

Added:
   trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f
Log:
Add dummy wrapper for dot and cladiv/zladiv functions.

Added: trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f
===================================================================
--- trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f	2008-11-03 01:24:17 UTC (rev 4927)
+++ trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f	2008-11-03 01:25:00 UTC (rev 4928)
@@ -0,0 +1,56 @@
+      double complex function wzdotc(n, zx, incx, zy, incy)
+      double complex zx(*), zy(*), z, zdotc
+      integer n, incx, incy
+      
+      zdotc(n, zx, incx, zy, incy, z)
+      wzdotc = zdotc
+      
+      end
+      
+      double complex function wzdotu(n, zx, incx, zy, incy)
+      double complex zx(*), zy(*), z, zdotu
+      integer n, incx, incy
+      
+      zdotu(n, zx, incx, zy, incy, z)
+      wzdotu = zdotu
+      
+      return
+      end
+      
+      complex function wcdotc(n, cx, incx, cy, incy)
+      complex cx(*), cy(*), c, cdotc
+      integer n, incx, incy
+      
+      cdotc(n, cx, incx, cy, incy, c)
+      wzdotc = zdotc
+      
+      return
+      end
+      
+      complex function wcdotu(n, cx, incx, cy, incy)
+      complex cx(*), cy(*), c, cdotu
+      integer n, incx, incy
+      
+      cdotu(n, cx, incx, cy, incy, c)
+      wzdotu = zdotu
+      
+      return
+      end
+
+      complex function wcladiv(x, y)
+      complex x, y, z
+      complex cladiv
+      
+      z = cladiv(x, y)
+      wcladiv = z
+      return
+      end
+
+      double complex function wzladiv(x, y)
+      double complex x, y, z
+      double complex zladiv
+      
+      z = zladiv(x, y)
+      wzladiv = z
+      return
+      end