[96338] trunk/dports/math/arpack

[mmoll at macports.org]

Revision: 96338
          https://trac.macports.org/changeset/96338
Author:   mmoll at macports.org
Date:     2012-08-07 06:19:33 -0700 (Tue, 07 Aug 2012)
Log Message:
-----------
math/arpack: small additional patch accidentally left out of r96280. Closes #35508.

Revision Links:
--------------
    https://trac.macports.org/changeset/96280

Modified Paths:
--------------
    trunk/dports/math/arpack/Portfile
    trunk/dports/math/arpack/files/patch-ARPACK-cdot-and-zdot.diff

Modified: trunk/dports/math/arpack/Portfile
===================================================================
--- trunk/dports/math/arpack/Portfile	2012-08-07 13:12:39 UTC (rev 96337)
+++ trunk/dports/math/arpack/Portfile	2012-08-07 13:19:33 UTC (rev 96338)
@@ -5,7 +5,7 @@
 
 name          arpack
 version       3.1.1
-revision      3
+revision      4
 categories    math
 license       BSD
 platforms     darwin

Modified: trunk/dports/math/arpack/files/patch-ARPACK-cdot-and-zdot.diff
===================================================================
--- trunk/dports/math/arpack/files/patch-ARPACK-cdot-and-zdot.diff	2012-08-07 13:12:39 UTC (rev 96337)
+++ trunk/dports/math/arpack/files/patch-ARPACK-cdot-and-zdot.diff	2012-08-07 13:19:33 UTC (rev 96338)
@@ -274,3 +274,34 @@
       &                        workl(invsub+(j-1)*ldq), 1)
   40         continue
  c
+--- ./SRC/cneupd.f.orig	2012-08-07 15:21:02.000000000 +1000
++++ ./SRC/cneupd.f	2012-08-07 15:21:17.000000000 +1000
+@@ -312,7 +312,7 @@
+ c     | External Subroutines |
+ c     %----------------------%
+ c
+-      external   ccopy , cgeru, cgeqr2, clacpy, cmout,
++      external   ccopy , cdotc, cgeru, cgeqr2, clacpy, cmout,
+      &           cunm2r, ctrmm, cvout, ivout,
+      &           clahqr
+ c  
+@@ -324,10 +324,6 @@
+      &           scnrm2, slamch, slapy2
+       external   scnrm2, slamch, slapy2
+ c
+-      Complex
+-     &           cdotc
+-      external   cdotc
+-c
+ c     %-----------------------%
+ c     | Executable Statements |
+ c     %-----------------------%
+@@ -731,7 +727,7 @@
+ c                 | inner product can be set to j.           |
+ c                 %------------------------------------------%
+ c 
+-                  workev(j) = cdotc(j, workl(ihbds), 1,
++                  call cdotc( workev(j), j, workl(ihbds), 1,
+      &                        workl(invsub+(j-1)*ldq), 1)
+  40         continue
+ c
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120807/2eb204df/attachment.html>