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

scipy-svn@scip... scipy-svn@scip...
Sun Nov 2 20:15:47 CST 2008

```Author: cdavid
Date: 2008-11-02 20:15:39 -0600 (Sun, 02 Nov 2008)
New Revision: 4941

Modified:
trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f
Log:
Fix various syntax problems in dummy fortran wrapper for arpack.

Modified: trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f
===================================================================
--- trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f	2008-11-03 02:00:11 UTC (rev 4940)
+++ trunk/scipy/sparse/linalg/eigen/arpack/ARPACK/FWRAPPERS/dummy.f	2008-11-03 02:15:39 UTC (rev 4941)
@@ -1,9 +1,10 @@
double complex function wzdotc(n, zx, incx, zy, incy)
-      double complex zx(*), zy(*), z, zdotc
+      double complex zx(*), zy(*), z
+      double complex zdotc
integer n, incx, incy

-      zdotc(n, zx, incx, zy, incy, z)
-      wzdotc = zdotc
+      z = zdotc(n, zx, incx, zy, incy)
+      wzdotc = z

end

@@ -11,8 +12,8 @@
double complex zx(*), zy(*), z, zdotu
integer n, incx, incy

-      zdotu(n, zx, incx, zy, incy, z)
-      wzdotu = zdotu
+      z = zdotu(n, zx, incx, zy, incy)
+      wzdotu = z

return
end
@@ -21,8 +22,8 @@
complex cx(*), cy(*), c, cdotc
integer n, incx, incy

-      cdotc(n, cx, incx, cy, incy, c)
-      wzdotc = zdotc
+      c = cdotc(n, cx, incx, cy, incy)
+      wcdotc = c

return
end
@@ -31,8 +32,8 @@
complex cx(*), cy(*), c, cdotu
integer n, incx, incy

-      cdotu(n, cx, incx, cy, incy, c)
-      wzdotu = zdotu
+      c = cdotu(n, cx, incx, cy, incy)
+      wcdotu = c

return
end

```