[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



More information about the Scipy-svn mailing list