diff --git a/.cvsignore b/.cvsignore index e69de29..b6149df 100644 --- a/.cvsignore +++ b/.cvsignore @@ -0,0 +1,2 @@ +arpack96.tar.gz +patch.tar.gz diff --git a/RiceBSD.doc b/RiceBSD.doc new file mode 100644 index 0000000..1215d9a Binary files /dev/null and b/RiceBSD.doc differ diff --git a/RiceBSD.txt b/RiceBSD.txt new file mode 100644 index 0000000..b185d09 --- /dev/null +++ b/RiceBSD.txt @@ -0,0 +1,43 @@ +Rice BSD Software License + +Permits source and binary redistribution of the software ARPACK and +P_ARPACK for both non-commercial and commercial use. + + Copyright (©) 2001, Rice University + Developed by D.C. Sorensen, R.B. Lehoucq, C. Yang, and K. Maschhoff. + All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: + +o Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + +o Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + +o If you modify the source for these routines we ask that you change + the name of the routine and comment the changes made to the + original. + +o Written notification is provided to the developers of intent to use + this software. Also, we ask that use of ARPACK is properly cited in + any resulting publications or software documentation. + +o Neither the name of Rice University (RICE) nor the names of its + contributors may be used to endorse or promote products derived from + this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY RICE AND CONTRIBUTORS "AS IS" AND ANY +EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL RICE OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR +BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE +OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN +IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/arpack-2.1-redhat.patch b/arpack-2.1-redhat.patch new file mode 100644 index 0000000..945d015 --- /dev/null +++ b/arpack-2.1-redhat.patch @@ -0,0 +1,45 @@ +--- ARPACK/ARmake.inc~ 1996-04-26 21:12:57.000000000 +0200 ++++ ARPACK/ARmake.inc 2003-07-19 11:57:10.000000000 +0200 +@@ -25,7 +25,7 @@ + # | other than your home directory. | + # %--------------------------------------% + # +-home = $(HOME)/ARPACK ++home = $(PWD)/. + # + # %--------------------------------------% + # | The platform identifier to suffix to | +@@ -43,7 +43,7 @@ + UTILdir = $(home)/UTIL + SRCdir = $(home)/SRC + # +-DIRS = $(BLASdir) $(LAPACKdir) $(UTILdir) $(SRCdir) ++#DIRS = $(BLASdir) $(LAPACKdir) $(UTILdir) $(SRCdir) + # + # %-------------------------------------------------------------------% + # | Comment out the previous line and uncomment the following | +@@ -51,13 +51,13 @@ + # | NOTE: ARPACK assumes the use of LAPACK version 2 codes. | + # %-------------------------------------------------------------------% + # +-#DIRS = $(UTILdir) $(SRCdir) ++DIRS = $(UTILdir) $(SRCdir) + # + # %---------------------------------------------------% + # | The name of the libraries to be created/linked to | + # %---------------------------------------------------% + # +-ARPACKLIB = $(home)/libarpack_$(PLAT).a ++ARPACKLIB = $(home)/libarpack.a + LAPACKLIB = + BLASLIB = + # +@@ -112,7 +112,7 @@ + LN = ln + LNFLAGS = -s + +-MAKE = /bin/make ++MAKE = make + + RM = rm + RMFLAGS = -f diff --git a/arpack-second-bug.patch b/arpack-second-bug.patch new file mode 100644 index 0000000..99998b2 --- /dev/null +++ b/arpack-second-bug.patch @@ -0,0 +1,1829 @@ +diff -up ARPACK/UTIL/second.f.sb ARPACK/UTIL/second.f +--- ARPACK/UTIL/second.f.sb 1995-10-02 19:56:44.000000000 +0100 ++++ ARPACK/UTIL/second.f 2007-10-24 02:50:57.000000000 +0200 +@@ -1,4 +1,4 @@ +- SUBROUTINE SECOND( T ) ++ SUBROUTINE secnd2( T ) + * + REAL T + * +diff -up ARPACK/SRC/znaupd.f.sb ARPACK/SRC/znaupd.f +--- ARPACK/SRC/znaupd.f.sb 2002-08-15 07:50:57.000000000 +0200 ++++ ARPACK/SRC/znaupd.f 2007-10-24 02:50:57.000000000 +0200 +@@ -451,7 +451,7 @@ c | & message level for debugging + c %-------------------------------% + c + call zstatn +- call second (t0) ++ call secnd2 (t0) + msglvl = mcaupd + c + c %----------------% +@@ -611,7 +611,7 @@ c + & '_naupd: Associated Ritz estimates') + end if + c +- call second (t1) ++ call secnd2 (t1) + tcaupd = t1 - t0 + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/dgetv0.f.sb ARPACK/SRC/dgetv0.f +--- ARPACK/SRC/dgetv0.f.sb 1999-04-08 00:42:47.000000000 +0200 ++++ ARPACK/SRC/dgetv0.f 2007-10-24 02:50:57.000000000 +0200 +@@ -214,7 +214,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mgetv0 + c + ierr = 0 +@@ -241,7 +241,7 @@ c | Force the starting vector int + c | the generalized problem when B is possibly (singular). | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nopx = nopx + 1 + ipntr(1) = 1 +@@ -265,7 +265,7 @@ c + if (orth) go to 40 + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + end if + c +@@ -274,7 +274,7 @@ c | Starting vector is now in the ra + c | Compute B-norm of starting vector. | + c %------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + first = .TRUE. + if (bmat .eq. 'G') then + nbx = nbx + 1 +@@ -290,7 +290,7 @@ c + 20 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -333,7 +333,7 @@ c %--------------------------------- + c | Compute the B-norm of the orthogonalized starting vector | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(n+1), 1) +@@ -348,7 +348,7 @@ c + 40 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -406,7 +406,7 @@ c + end if + ido = 99 + c +- call second (t1) ++ call secnd2 (t1) + tgetv0 = tgetv0 + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/ssgets.f.sb ARPACK/SRC/ssgets.f +--- ARPACK/SRC/ssgets.f.sb 1996-04-20 18:27:30.000000000 +0200 ++++ ARPACK/SRC/ssgets.f 2007-10-24 02:50:57.000000000 +0200 +@@ -148,7 +148,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msgets + c + if (which .eq. 'BE') then +@@ -198,7 +198,7 @@ c + call scopy (np, ritz, 1, shifts, 1) + end if + c +- call second (t1) ++ call secnd2 (t1) + tsgets = tsgets + (t1 - t0) + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/snaup2.f.sb ARPACK/SRC/snaup2.f +--- ARPACK/SRC/snaup2.f.sb 2002-08-23 07:31:49.000000000 +0200 ++++ ARPACK/SRC/snaup2.f 2007-10-24 02:50:57.000000000 +0200 +@@ -258,7 +258,7 @@ c %-----------------------% + c + if (ido .eq. 0) then + c +- call second (t0) ++ call secnd2 (t0) + c + msglvl = mnaup2 + c +@@ -758,7 +758,7 @@ c | the first step of the next ca + c %---------------------------------------------% + c + cnorm = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(n+1), 1) +@@ -783,7 +783,7 @@ c | WORKD(1:N) := B*RESID + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -822,7 +822,7 @@ c %------------% + c | Error Exit | + c %------------% + c +- call second (t1) ++ call secnd2 (t1) + tnaup2 = t1 - t0 + c + 9000 continue +diff -up ARPACK/SRC/dsgets.f.sb ARPACK/SRC/dsgets.f +--- ARPACK/SRC/dsgets.f.sb 1996-04-20 18:27:14.000000000 +0200 ++++ ARPACK/SRC/dsgets.f 2007-10-24 02:50:57.000000000 +0200 +@@ -148,7 +148,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msgets + c + if (which .eq. 'BE') then +@@ -198,7 +198,7 @@ c + call dcopy (np, ritz, 1, shifts, 1) + end if + c +- call second (t1) ++ call secnd2 (t1) + tsgets = tsgets + (t1 - t0) + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/dsconv.f.sb ARPACK/SRC/dsconv.f +--- ARPACK/SRC/dsconv.f.sb 1996-04-20 18:27:11.000000000 +0200 ++++ ARPACK/SRC/dsconv.f 2007-10-24 02:50:57.000000000 +0200 +@@ -106,7 +106,7 @@ c %-----------------------% + c | Executable Statements | + c %-----------------------% + c +- call second (t0) ++ call secnd2 (t0) + c + eps23 = dlamch('Epsilon-Machine') + eps23 = eps23**(2.0D+0 / 3.0D+0) +@@ -126,7 +126,7 @@ c + c + 10 continue + c +- call second (t1) ++ call secnd2 (t1) + tsconv = tsconv + (t1 - t0) + c + return +diff -up ARPACK/SRC/dneigh.f.sb ARPACK/SRC/dneigh.f +--- ARPACK/SRC/dneigh.f.sb 1996-04-20 18:27:06.000000000 +0200 ++++ ARPACK/SRC/dneigh.f 2007-10-24 02:50:57.000000000 +0200 +@@ -170,7 +170,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mneigh + c + if (msglvl .gt. 2) then +@@ -301,7 +301,7 @@ c + & '_neigh: Ritz estimates for the eigenvalues of H') + end if + c +- call second (t1) ++ call secnd2 (t1) + tneigh = tneigh + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/dsaitr.f.sb ARPACK/SRC/dsaitr.f +--- ARPACK/SRC/dsaitr.f.sb 1996-08-28 16:21:43.000000000 +0200 ++++ ARPACK/SRC/dsaitr.f 2007-10-24 02:50:57.000000000 +0200 +@@ -300,7 +300,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msaitr + c + c %------------------------------% +@@ -420,7 +420,7 @@ c | which spans OP and exit + c %------------------------------------------------% + c + info = j - 1 +- call second (t1) ++ call secnd2 (t1) + tsaitr = tsaitr + (t1 - t0) + ido = 99 + go to 9000 +@@ -460,7 +460,7 @@ c %------------------------------ + c + step3 = .true. + nopx = nopx + 1 +- call second (t2) ++ call secnd2 (t2) + call dcopy (n, v(1,j), 1, workd(ivj), 1) + ipntr(1) = ivj + ipntr(2) = irj +@@ -479,7 +479,7 @@ c | Back from reverse communicati + c | WORKD(IRJ:IRJ+N-1) := OP*v_{j}. | + c %-----------------------------------% + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + c + step3 = .false. +@@ -500,7 +500,7 @@ c | assumed to have A*v_{j}. + c %-------------------------------------------% + c + if (mode .eq. 2) go to 65 +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + step4 = .true. +@@ -524,7 +524,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*OP*v_ + c %-----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -592,12 +592,12 @@ c + else + h(j,1) = rnorm + end if +- call second (t4) ++ call secnd2 (t4) + c + orth1 = .true. + iter = 0 + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(irj), 1) +@@ -621,7 +621,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*r_{j} + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -695,7 +695,7 @@ c + h(j,2) = h(j,2) + workd(irj + j - 1) + c + orth2 = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(irj), 1) +@@ -719,7 +719,7 @@ c | Back from reverse communicati + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -791,7 +791,7 @@ c + rstart = .false. + orth2 = .false. + c +- call second (t5) ++ call secnd2 (t5) + titref = titref + (t5 - t4) + c + c %----------------------------------------------------------% +@@ -815,7 +815,7 @@ c %------------------------------ + c + j = j + 1 + if (j .gt. k+np) then +- call second (t1) ++ call secnd2 (t1) + tsaitr = tsaitr + (t1 - t0) + ido = 99 + c +diff -up ARPACK/SRC/dnaup2.f.sb ARPACK/SRC/dnaup2.f +--- ARPACK/SRC/dnaup2.f.sb 2002-08-23 07:31:50.000000000 +0200 ++++ ARPACK/SRC/dnaup2.f 2007-10-24 02:50:57.000000000 +0200 +@@ -258,7 +258,7 @@ c %-----------------------% + c + if (ido .eq. 0) then + c +- call second (t0) ++ call secnd2 (t0) + c + msglvl = mnaup2 + c +@@ -758,7 +758,7 @@ c | the first step of the next ca + c %---------------------------------------------% + c + cnorm = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(n+1), 1) +@@ -783,7 +783,7 @@ c | WORKD(1:N) := B*RESID + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -822,7 +822,7 @@ c %------------% + c | Error Exit | + c %------------% + c +- call second (t1) ++ call secnd2 (t1) + tnaup2 = t1 - t0 + c + 9000 continue +diff -up ARPACK/SRC/cneigh.f.sb ARPACK/SRC/cneigh.f +--- ARPACK/SRC/cneigh.f.sb 1996-04-20 19:15:53.000000000 +0200 ++++ ARPACK/SRC/cneigh.f 2007-10-24 02:50:57.000000000 +0200 +@@ -171,7 +171,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mceigh + c + if (msglvl .gt. 2) then +@@ -244,7 +244,7 @@ c + & '_neigh: Ritz estimates for the eigenvalues of H') + end if + c +- call second(t1) ++ call secnd2(t1) + tceigh = tceigh + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/zngets.f.sb ARPACK/SRC/zngets.f +--- ARPACK/SRC/zngets.f.sb 1996-04-20 19:16:02.000000000 +0200 ++++ ARPACK/SRC/zngets.f 2007-10-24 02:50:57.000000000 +0200 +@@ -137,7 +137,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mcgets + c + call zsortc (which, .true., kev+np, ritz, bounds) +@@ -157,7 +157,7 @@ c + c + end if + c +- call second (t1) ++ call secnd2 (t1) + tcgets = tcgets + (t1 - t0) + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/sseigt.f.sb ARPACK/SRC/sseigt.f +--- ARPACK/SRC/sseigt.f.sb 1996-08-27 07:29:04.000000000 +0200 ++++ ARPACK/SRC/sseigt.f 2007-10-24 02:50:57.000000000 +0200 +@@ -138,7 +138,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mseigt + c + if (msglvl .gt. 0) then +@@ -168,7 +168,7 @@ c + bounds(k) = rnorm*abs(bounds(k)) + 30 continue + c +- call second (t1) ++ call secnd2 (t1) + tseigt = tseigt + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/dnapps.f.sb ARPACK/SRC/dnapps.f +--- ARPACK/SRC/dnapps.f.sb 1998-05-20 16:58:56.000000000 +0200 ++++ ARPACK/SRC/dnapps.f 2007-10-24 02:50:57.000000000 +0200 +@@ -237,7 +237,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mnapps + kplusp = kev + np + c +@@ -635,7 +635,7 @@ c + end if + c + 9000 continue +- call second (t1) ++ call secnd2 (t1) + tnapps = tnapps + (t1 - t0) + c + return +diff -up ARPACK/SRC/dsapps.f.sb ARPACK/SRC/dsapps.f +--- ARPACK/SRC/dsapps.f.sb 1998-05-20 16:58:59.000000000 +0200 ++++ ARPACK/SRC/dsapps.f 2007-10-24 02:50:57.000000000 +0200 +@@ -213,7 +213,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msapps + c + kplusp = kev + np +@@ -503,7 +503,7 @@ c + end if + end if + c +- call second (t1) ++ call secnd2 (t1) + tsapps = tsapps + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/ssaup2.f.sb ARPACK/SRC/ssaup2.f +--- ARPACK/SRC/ssaup2.f.sb 1998-05-20 16:58:59.000000000 +0200 ++++ ARPACK/SRC/ssaup2.f 2007-10-24 02:50:57.000000000 +0200 +@@ -262,7 +262,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msaup2 + c + c %---------------------------------% +@@ -770,7 +770,7 @@ c | the first step of the next ca + c %---------------------------------------------% + c + cnorm = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(n+1), 1) +@@ -795,7 +795,7 @@ c | WORKD(1:N) := B*RESID + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -837,7 +837,7 @@ c %------------% + c | Error exit | + c %------------% + c +- call second (t1) ++ call secnd2 (t1) + tsaup2 = t1 - t0 + c + 9000 continue +diff -up ARPACK/SRC/ssaitr.f.sb ARPACK/SRC/ssaitr.f +--- ARPACK/SRC/ssaitr.f.sb 1996-08-28 16:21:43.000000000 +0200 ++++ ARPACK/SRC/ssaitr.f 2007-10-24 02:50:57.000000000 +0200 +@@ -300,7 +300,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msaitr + c + c %------------------------------% +@@ -420,7 +420,7 @@ c | which spans OP and exit + c %------------------------------------------------% + c + info = j - 1 +- call second (t1) ++ call secnd2 (t1) + tsaitr = tsaitr + (t1 - t0) + ido = 99 + go to 9000 +@@ -460,7 +460,7 @@ c %------------------------------ + c + step3 = .true. + nopx = nopx + 1 +- call second (t2) ++ call secnd2 (t2) + call scopy (n, v(1,j), 1, workd(ivj), 1) + ipntr(1) = ivj + ipntr(2) = irj +@@ -479,7 +479,7 @@ c | Back from reverse communicati + c | WORKD(IRJ:IRJ+N-1) := OP*v_{j}. | + c %-----------------------------------% + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + c + step3 = .false. +@@ -500,7 +500,7 @@ c | assumed to have A*v_{j}. + c %-------------------------------------------% + c + if (mode .eq. 2) go to 65 +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + step4 = .true. +@@ -524,7 +524,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*OP*v_ + c %-----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -592,12 +592,12 @@ c + else + h(j,1) = rnorm + end if +- call second (t4) ++ call secnd2 (t4) + c + orth1 = .true. + iter = 0 + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(irj), 1) +@@ -621,7 +621,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*r_{j} + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -695,7 +695,7 @@ c + h(j,2) = h(j,2) + workd(irj + j - 1) + c + orth2 = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(irj), 1) +@@ -719,7 +719,7 @@ c | Back from reverse communicati + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -791,7 +791,7 @@ c + rstart = .false. + orth2 = .false. + c +- call second (t5) ++ call secnd2 (t5) + titref = titref + (t5 - t4) + c + c %----------------------------------------------------------% +@@ -815,7 +815,7 @@ c %------------------------------ + c + j = j + 1 + if (j .gt. k+np) then +- call second (t1) ++ call secnd2 (t1) + tsaitr = tsaitr + (t1 - t0) + ido = 99 + c +diff -up ARPACK/SRC/snapps.f.sb ARPACK/SRC/snapps.f +--- ARPACK/SRC/snapps.f.sb 1998-05-20 16:58:55.000000000 +0200 ++++ ARPACK/SRC/snapps.f 2007-10-24 02:50:57.000000000 +0200 +@@ -237,7 +237,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mnapps + kplusp = kev + np + c +@@ -635,7 +635,7 @@ c + end if + c + 9000 continue +- call second (t1) ++ call secnd2 (t1) + tnapps = tnapps + (t1 - t0) + c + return +diff -up ARPACK/SRC/dnaitr.f.sb ARPACK/SRC/dnaitr.f +--- ARPACK/SRC/dnaitr.f.sb 1996-08-27 18:09:00.000000000 +0200 ++++ ARPACK/SRC/dnaitr.f 2007-10-24 02:50:57.000000000 +0200 +@@ -319,7 +319,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mnaitr + c + c %------------------------------% +@@ -430,7 +430,7 @@ c | which spans OP and exit + c %------------------------------------------------% + c + info = j - 1 +- call second (t1) ++ call secnd2 (t1) + tnaitr = tnaitr + (t1 - t0) + ido = 99 + go to 9000 +@@ -470,7 +470,7 @@ c %------------------------------ + c + step3 = .true. + nopx = nopx + 1 +- call second (t2) ++ call secnd2 (t2) + call dcopy (n, v(1,j), 1, workd(ivj), 1) + ipntr(1) = ivj + ipntr(2) = irj +@@ -490,7 +490,7 @@ c | WORKD(IRJ:IRJ+N-1) := OP*v_{j + c | if step3 = .true. | + c %----------------------------------% + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + + step3 = .false. +@@ -506,7 +506,7 @@ c | STEP 4: Finish extending the + c | factorization to length j. | + c %---------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + step4 = .true. +@@ -531,7 +531,7 @@ c | if step4 = .true. + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -576,11 +576,11 @@ c + c + if (j .gt. 1) h(j,j-1) = betaj + c +- call second (t4) ++ call secnd2 (t4) + c + orth1 = .true. + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(irj), 1) +@@ -604,7 +604,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*r_{j} + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -681,7 +681,7 @@ c + call daxpy (j, one, workd(irj), 1, h(1,j), 1) + c + orth2 = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(irj), 1) +@@ -705,7 +705,7 @@ c | Back from reverse communicati + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -783,7 +783,7 @@ c + rstart = .false. + orth2 = .false. + c +- call second (t5) ++ call secnd2 (t5) + titref = titref + (t5 - t4) + c + c %------------------------------------% +@@ -792,7 +792,7 @@ c %------------------------------ + c + j = j + 1 + if (j .gt. k+np) then +- call second (t1) ++ call secnd2 (t1) + tnaitr = tnaitr + (t1 - t0) + ido = 99 + do 110 i = max(1,k), k+np-1 +diff -up ARPACK/SRC/sneigh.f.sb ARPACK/SRC/sneigh.f +--- ARPACK/SRC/sneigh.f.sb 1996-04-20 18:27:22.000000000 +0200 ++++ ARPACK/SRC/sneigh.f 2007-10-24 02:50:57.000000000 +0200 +@@ -170,7 +170,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mneigh + c + if (msglvl .gt. 2) then +@@ -301,7 +301,7 @@ c + & '_neigh: Ritz estimates for the eigenvalues of H') + end if + c +- call second (t1) ++ call secnd2 (t1) + tneigh = tneigh + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/dsaup2.f.sb ARPACK/SRC/dsaup2.f +--- ARPACK/SRC/dsaup2.f.sb 1998-05-20 16:59:00.000000000 +0200 ++++ ARPACK/SRC/dsaup2.f 2007-10-24 02:50:57.000000000 +0200 +@@ -262,7 +262,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msaup2 + c + c %---------------------------------% +@@ -770,7 +770,7 @@ c | the first step of the next ca + c %---------------------------------------------% + c + cnorm = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call dcopy (n, resid, 1, workd(n+1), 1) +@@ -795,7 +795,7 @@ c | WORKD(1:N) := B*RESID + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -837,7 +837,7 @@ c %------------% + c | Error exit | + c %------------% + c +- call second (t1) ++ call secnd2 (t1) + tsaup2 = t1 - t0 + c + 9000 continue +diff -up ARPACK/SRC/snaupd.f.sb ARPACK/SRC/snaupd.f +--- ARPACK/SRC/snaupd.f.sb 2002-08-23 07:29:34.000000000 +0200 ++++ ARPACK/SRC/snaupd.f 2007-10-24 02:50:57.000000000 +0200 +@@ -476,7 +476,7 @@ c | & message level for debugging + c %-------------------------------% + c + call sstatn +- call second (t0) ++ call secnd2 (t0) + msglvl = mnaupd + c + c %----------------% +@@ -640,7 +640,7 @@ c + & '_naupd: Associated Ritz estimates') + end if + c +- call second (t1) ++ call secnd2 (t1) + tnaupd = t1 - t0 + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/znapps.f.sb ARPACK/SRC/znapps.f +--- ARPACK/SRC/znapps.f.sb 1998-05-20 16:45:03.000000000 +0200 ++++ ARPACK/SRC/znapps.f 2007-10-24 02:50:57.000000000 +0200 +@@ -240,7 +240,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mcapps + c + kplusp = kev + np +@@ -495,7 +495,7 @@ c + end if + c + 9000 continue +- call second (t1) ++ call secnd2 (t1) + tcapps = tcapps + (t1 - t0) + c + return +diff -up ARPACK/SRC/znaitr.f.sb ARPACK/SRC/znaitr.f +--- ARPACK/SRC/znaitr.f.sb 1996-08-27 18:12:57.000000000 +0200 ++++ ARPACK/SRC/znaitr.f 2007-10-24 02:50:57.000000000 +0200 +@@ -326,7 +326,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mcaitr + c + c %------------------------------% +@@ -437,7 +437,7 @@ c | which spans OP and exit + c %------------------------------------------------% + c + info = j - 1 +- call second (t1) ++ call secnd2 (t1) + tcaitr = tcaitr + (t1 - t0) + ido = 99 + go to 9000 +@@ -477,7 +477,7 @@ c %------------------------------ + c + step3 = .true. + nopx = nopx + 1 +- call second (t2) ++ call secnd2 (t2) + call zcopy (n, v(1,j), 1, workd(ivj), 1) + ipntr(1) = ivj + ipntr(2) = irj +@@ -497,7 +497,7 @@ c | WORKD(IRJ:IRJ+N-1) := OP*v_{j + c | if step3 = .true. | + c %----------------------------------% + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + + step3 = .false. +@@ -513,7 +513,7 @@ c | STEP 4: Finish extending the + c | factorization to length j. | + c %---------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + step4 = .true. +@@ -538,7 +538,7 @@ c | if step4 = .true. + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -583,11 +583,11 @@ c + c + if (j .gt. 1) h(j,j-1) = dcmplx(betaj, rzero) + c +- call second (t4) ++ call secnd2 (t4) + c + orth1 = .true. + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call zcopy (n, resid, 1, workd(irj), 1) +@@ -611,7 +611,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*r_{j} + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -689,7 +689,7 @@ c + call zaxpy (j, one, workd(irj), 1, h(1,j), 1) + c + orth2 = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call zcopy (n, resid, 1, workd(irj), 1) +@@ -713,7 +713,7 @@ c | Back from reverse communicati + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -791,7 +791,7 @@ c + rstart = .false. + orth2 = .false. + c +- call second (t5) ++ call secnd2 (t5) + titref = titref + (t5 - t4) + c + c %------------------------------------% +@@ -800,7 +800,7 @@ c %------------------------------ + c + j = j + 1 + if (j .gt. k+np) then +- call second (t1) ++ call secnd2 (t1) + tcaitr = tcaitr + (t1 - t0) + ido = 99 + do 110 i = max(1,k), k+np-1 +diff -up ARPACK/SRC/zgetv0.f.sb ARPACK/SRC/zgetv0.f +--- ARPACK/SRC/zgetv0.f.sb 1999-04-08 00:46:45.000000000 +0200 ++++ ARPACK/SRC/zgetv0.f 2007-10-24 02:50:57.000000000 +0200 +@@ -211,7 +211,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mgetv0 + c + ierr = 0 +@@ -238,7 +238,7 @@ c | Force the starting vector int + c | the generalized problem when B is possibly (singular). | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nopx = nopx + 1 + ipntr(1) = 1 +@@ -261,7 +261,7 @@ c %--------------------------------- + c + if (orth) go to 40 + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + c + c %------------------------------------------------------% +@@ -269,7 +269,7 @@ c | Starting vector is now in the ra + c | Compute B-norm of starting vector. | + c %------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + first = .TRUE. + if (bmat .eq. 'G') then + nbx = nbx + 1 +@@ -285,7 +285,7 @@ c + 20 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -328,7 +328,7 @@ c %--------------------------------- + c | Compute the B-norm of the orthogonalized starting vector | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call zcopy (n, resid, 1, workd(n+1), 1) +@@ -343,7 +343,7 @@ c + 40 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -401,7 +401,7 @@ c + end if + ido = 99 + c +- call second (t1) ++ call secnd2 (t1) + tgetv0 = tgetv0 + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/zneigh.f.sb ARPACK/SRC/zneigh.f +--- ARPACK/SRC/zneigh.f.sb 1996-04-20 19:16:01.000000000 +0200 ++++ ARPACK/SRC/zneigh.f 2007-10-24 02:50:57.000000000 +0200 +@@ -171,7 +171,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mceigh + c + if (msglvl .gt. 2) then +@@ -244,7 +244,7 @@ c + & '_neigh: Ritz estimates for the eigenvalues of H') + end if + c +- call second(t1) ++ call secnd2(t1) + tceigh = tceigh + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/cnaupd.f.sb ARPACK/SRC/cnaupd.f +--- ARPACK/SRC/cnaupd.f.sb 2002-08-15 07:50:57.000000000 +0200 ++++ ARPACK/SRC/cnaupd.f 2007-10-24 02:50:57.000000000 +0200 +@@ -451,7 +451,7 @@ c | & message level for debugging + c %-------------------------------% + c + call cstatn +- call second (t0) ++ call secnd2 (t0) + msglvl = mcaupd + c + c %----------------% +@@ -611,7 +611,7 @@ c + & '_naupd: Associated Ritz estimates') + end if + c +- call second (t1) ++ call secnd2 (t1) + tcaupd = t1 - t0 + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/cgetv0.f.sb ARPACK/SRC/cgetv0.f +--- ARPACK/SRC/cgetv0.f.sb 1999-04-08 00:46:44.000000000 +0200 ++++ ARPACK/SRC/cgetv0.f 2007-10-24 02:50:57.000000000 +0200 +@@ -211,7 +211,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mgetv0 + c + ierr = 0 +@@ -238,7 +238,7 @@ c | Force the starting vector int + c | the generalized problem when B is possibly (singular). | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nopx = nopx + 1 + ipntr(1) = 1 +@@ -261,7 +261,7 @@ c %--------------------------------- + c + if (orth) go to 40 + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + c + c %------------------------------------------------------% +@@ -269,7 +269,7 @@ c | Starting vector is now in the ra + c | Compute B-norm of starting vector. | + c %------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + first = .TRUE. + if (bmat .eq. 'G') then + nbx = nbx + 1 +@@ -285,7 +285,7 @@ c + 20 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -328,7 +328,7 @@ c %--------------------------------- + c | Compute the B-norm of the orthogonalized starting vector | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call ccopy (n, resid, 1, workd(n+1), 1) +@@ -343,7 +343,7 @@ c + 40 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -401,7 +401,7 @@ c + end if + ido = 99 + c +- call second (t1) ++ call secnd2 (t1) + tgetv0 = tgetv0 + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/sgetv0.f.sb ARPACK/SRC/sgetv0.f +--- ARPACK/SRC/sgetv0.f.sb 1999-04-08 00:42:46.000000000 +0200 ++++ ARPACK/SRC/sgetv0.f 2007-10-24 02:50:57.000000000 +0200 +@@ -214,7 +214,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mgetv0 + c + ierr = 0 +@@ -241,7 +241,7 @@ c | Force the starting vector int + c | the generalized problem when B is possibly (singular). | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nopx = nopx + 1 + ipntr(1) = 1 +@@ -265,7 +265,7 @@ c + if (orth) go to 40 + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + end if + c +@@ -274,7 +274,7 @@ c | Starting vector is now in the ra + c | Compute B-norm of starting vector. | + c %------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + first = .TRUE. + if (bmat .eq. 'G') then + nbx = nbx + 1 +@@ -290,7 +290,7 @@ c + 20 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -333,7 +333,7 @@ c %--------------------------------- + c | Compute the B-norm of the orthogonalized starting vector | + c %----------------------------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(n+1), 1) +@@ -348,7 +348,7 @@ c + 40 continue + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -406,7 +406,7 @@ c + end if + ido = 99 + c +- call second (t1) ++ call secnd2 (t1) + tgetv0 = tgetv0 + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/dnaupd.f.sb ARPACK/SRC/dnaupd.f +--- ARPACK/SRC/dnaupd.f.sb 2002-08-23 07:29:34.000000000 +0200 ++++ ARPACK/SRC/dnaupd.f 2007-10-24 02:50:57.000000000 +0200 +@@ -476,7 +476,7 @@ c | & message level for debugging + c %-------------------------------% + c + call dstatn +- call second (t0) ++ call secnd2 (t0) + msglvl = mnaupd + c + c %----------------% +@@ -640,7 +640,7 @@ c + & '_naupd: Associated Ritz estimates') + end if + c +- call second (t1) ++ call secnd2 (t1) + tnaupd = t1 - t0 + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/cnaitr.f.sb ARPACK/SRC/cnaitr.f +--- ARPACK/SRC/cnaitr.f.sb 1996-08-27 18:12:56.000000000 +0200 ++++ ARPACK/SRC/cnaitr.f 2007-10-24 02:50:57.000000000 +0200 +@@ -326,7 +326,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mcaitr + c + c %------------------------------% +@@ -437,7 +437,7 @@ c | which spans OP and exit + c %------------------------------------------------% + c + info = j - 1 +- call second (t1) ++ call secnd2 (t1) + tcaitr = tcaitr + (t1 - t0) + ido = 99 + go to 9000 +@@ -477,7 +477,7 @@ c %------------------------------ + c + step3 = .true. + nopx = nopx + 1 +- call second (t2) ++ call secnd2 (t2) + call ccopy (n, v(1,j), 1, workd(ivj), 1) + ipntr(1) = ivj + ipntr(2) = irj +@@ -497,7 +497,7 @@ c | WORKD(IRJ:IRJ+N-1) := OP*v_{j + c | if step3 = .true. | + c %----------------------------------% + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + + step3 = .false. +@@ -513,7 +513,7 @@ c | STEP 4: Finish extending the + c | factorization to length j. | + c %---------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + step4 = .true. +@@ -538,7 +538,7 @@ c | if step4 = .true. + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -583,11 +583,11 @@ c + c + if (j .gt. 1) h(j,j-1) = cmplx(betaj, rzero) + c +- call second (t4) ++ call secnd2 (t4) + c + orth1 = .true. + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call ccopy (n, resid, 1, workd(irj), 1) +@@ -611,7 +611,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*r_{j} + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -689,7 +689,7 @@ c + call caxpy (j, one, workd(irj), 1, h(1,j), 1) + c + orth2 = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call ccopy (n, resid, 1, workd(irj), 1) +@@ -713,7 +713,7 @@ c | Back from reverse communicati + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -791,7 +791,7 @@ c + rstart = .false. + orth2 = .false. + c +- call second (t5) ++ call secnd2 (t5) + titref = titref + (t5 - t4) + c + c %------------------------------------% +@@ -800,7 +800,7 @@ c %------------------------------ + c + j = j + 1 + if (j .gt. k+np) then +- call second (t1) ++ call secnd2 (t1) + tcaitr = tcaitr + (t1 - t0) + ido = 99 + do 110 i = max(1,k), k+np-1 +diff -up ARPACK/SRC/dsaupd.f.sb ARPACK/SRC/dsaupd.f +--- ARPACK/SRC/dsaupd.f.sb 2001-04-11 00:52:40.000000000 +0200 ++++ ARPACK/SRC/dsaupd.f 2007-10-24 02:50:57.000000000 +0200 +@@ -478,7 +478,7 @@ c | & message level for debugging + c %-------------------------------% + c + call dstats +- call second (t0) ++ call secnd2 (t0) + msglvl = msaupd + c + ierr = 0 +@@ -638,7 +638,7 @@ c + & '_saupd: corresponding error bounds') + end if + c +- call second (t1) ++ call secnd2 (t1) + tsaupd = t1 - t0 + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/znaup2.f.sb ARPACK/SRC/znaup2.f +--- ARPACK/SRC/znaup2.f.sb 2000-06-01 22:28:53.000000000 +0200 ++++ ARPACK/SRC/znaup2.f 2007-10-24 02:50:57.000000000 +0200 +@@ -264,7 +264,7 @@ c %-----------------------% + c + if (ido .eq. 0) then + c +- call second (t0) ++ call secnd2 (t0) + c + msglvl = mcaup2 + c +@@ -724,7 +724,7 @@ c | the first step of the next ca + c %---------------------------------------------% + c + cnorm = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call zcopy (n, resid, 1, workd(n+1), 1) +@@ -749,7 +749,7 @@ c | WORKD(1:N) := B*RESID + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -788,7 +788,7 @@ c %------------% + c | Error Exit | + c %------------% + c +- call second (t1) ++ call secnd2 (t1) + tcaup2 = t1 - t0 + c + 9000 continue +diff -up ARPACK/SRC/snaitr.f.sb ARPACK/SRC/snaitr.f +--- ARPACK/SRC/snaitr.f.sb 1996-08-27 18:09:01.000000000 +0200 ++++ ARPACK/SRC/snaitr.f 2007-10-24 02:50:57.000000000 +0200 +@@ -319,7 +319,7 @@ c | Initialize timing statistics + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mnaitr + c + c %------------------------------% +@@ -430,7 +430,7 @@ c | which spans OP and exit + c %------------------------------------------------% + c + info = j - 1 +- call second (t1) ++ call secnd2 (t1) + tnaitr = tnaitr + (t1 - t0) + ido = 99 + go to 9000 +@@ -470,7 +470,7 @@ c %------------------------------ + c + step3 = .true. + nopx = nopx + 1 +- call second (t2) ++ call secnd2 (t2) + call scopy (n, v(1,j), 1, workd(ivj), 1) + ipntr(1) = ivj + ipntr(2) = irj +@@ -490,7 +490,7 @@ c | WORKD(IRJ:IRJ+N-1) := OP*v_{j + c | if step3 = .true. | + c %----------------------------------% + c +- call second (t3) ++ call secnd2 (t3) + tmvopx = tmvopx + (t3 - t2) + + step3 = .false. +@@ -506,7 +506,7 @@ c | STEP 4: Finish extending the + c | factorization to length j. | + c %---------------------------------------% + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + step4 = .true. +@@ -531,7 +531,7 @@ c | if step4 = .true. + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -576,11 +576,11 @@ c + c + if (j .gt. 1) h(j,j-1) = betaj + c +- call second (t4) ++ call secnd2 (t4) + c + orth1 = .true. + c +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(irj), 1) +@@ -604,7 +604,7 @@ c | WORKD(IPJ:IPJ+N-1) := B*r_{j} + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -681,7 +681,7 @@ c + call saxpy (j, one, workd(irj), 1, h(1,j), 1) + c + orth2 = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call scopy (n, resid, 1, workd(irj), 1) +@@ -705,7 +705,7 @@ c | Back from reverse communicati + c %---------------------------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -783,7 +783,7 @@ c + rstart = .false. + orth2 = .false. + c +- call second (t5) ++ call secnd2 (t5) + titref = titref + (t5 - t4) + c + c %------------------------------------% +@@ -792,7 +792,7 @@ c %------------------------------ + c + j = j + 1 + if (j .gt. k+np) then +- call second (t1) ++ call secnd2 (t1) + tnaitr = tnaitr + (t1 - t0) + ido = 99 + do 110 i = max(1,k), k+np-1 +diff -up ARPACK/SRC/cnapps.f.sb ARPACK/SRC/cnapps.f +--- ARPACK/SRC/cnapps.f.sb 1998-05-20 16:45:03.000000000 +0200 ++++ ARPACK/SRC/cnapps.f 2007-10-24 02:50:57.000000000 +0200 +@@ -240,7 +240,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mcapps + c + kplusp = kev + np +@@ -495,7 +495,7 @@ c + end if + c + 9000 continue +- call second (t1) ++ call secnd2 (t1) + tcapps = tcapps + (t1 - t0) + c + return +diff -up ARPACK/SRC/dnconv.f.sb ARPACK/SRC/dnconv.f +--- ARPACK/SRC/dnconv.f.sb 1996-04-20 18:27:05.000000000 +0200 ++++ ARPACK/SRC/dnconv.f 2007-10-24 02:50:57.000000000 +0200 +@@ -119,7 +119,7 @@ c | + c | for some appropriate choice of norm. | + c %-------------------------------------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + c + c %---------------------------------% + c | Get machine dependent constant. | +@@ -134,7 +134,7 @@ c + if (bounds(i) .le. tol*temp) nconv = nconv + 1 + 20 continue + c +- call second (t1) ++ call secnd2 (t1) + tnconv = tnconv + (t1 - t0) + c + return +diff -up ARPACK/SRC/dngets.f.sb ARPACK/SRC/dngets.f +--- ARPACK/SRC/dngets.f.sb 1996-04-20 18:27:07.000000000 +0200 ++++ ARPACK/SRC/dngets.f 2007-10-24 02:50:57.000000000 +0200 +@@ -152,7 +152,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mngets + c + c %----------------------------------------------------% +@@ -208,7 +208,7 @@ c + call dsortc ( 'SR', .true., np, bounds, ritzr, ritzi ) + end if + c +- call second (t1) ++ call secnd2 (t1) + tngets = tngets + (t1 - t0) + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/ssconv.f.sb ARPACK/SRC/ssconv.f +--- ARPACK/SRC/ssconv.f.sb 1996-04-20 18:27:27.000000000 +0200 ++++ ARPACK/SRC/ssconv.f 2007-10-24 02:50:57.000000000 +0200 +@@ -106,7 +106,7 @@ c %-----------------------% + c | Executable Statements | + c %-----------------------% + c +- call second (t0) ++ call secnd2 (t0) + c + eps23 = slamch('Epsilon-Machine') + eps23 = eps23**(2.0E+0 / 3.0E+0) +@@ -126,7 +126,7 @@ c + c + 10 continue + c +- call second (t1) ++ call secnd2 (t1) + tsconv = tsconv + (t1 - t0) + c + return +diff -up ARPACK/SRC/ssapps.f.sb ARPACK/SRC/ssapps.f +--- ARPACK/SRC/ssapps.f.sb 1998-05-20 16:58:58.000000000 +0200 ++++ ARPACK/SRC/ssapps.f 2007-10-24 02:50:57.000000000 +0200 +@@ -213,7 +213,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = msapps + c + kplusp = kev + np +@@ -503,7 +503,7 @@ c + end if + end if + c +- call second (t1) ++ call secnd2 (t1) + tsapps = tsapps + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/ssaupd.f.sb ARPACK/SRC/ssaupd.f +--- ARPACK/SRC/ssaupd.f.sb 2001-04-11 00:52:40.000000000 +0200 ++++ ARPACK/SRC/ssaupd.f 2007-10-24 02:50:57.000000000 +0200 +@@ -478,7 +478,7 @@ c | & message level for debugging + c %-------------------------------% + c + call sstats +- call second (t0) ++ call secnd2 (t0) + msglvl = msaupd + c + ierr = 0 +@@ -638,7 +638,7 @@ c + & '_saupd: corresponding error bounds') + end if + c +- call second (t1) ++ call secnd2 (t1) + tsaupd = t1 - t0 + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/snconv.f.sb ARPACK/SRC/snconv.f +--- ARPACK/SRC/snconv.f.sb 1996-04-20 18:27:21.000000000 +0200 ++++ ARPACK/SRC/snconv.f 2007-10-24 02:50:57.000000000 +0200 +@@ -119,7 +119,7 @@ c | + c | for some appropriate choice of norm. | + c %-------------------------------------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + c + c %---------------------------------% + c | Get machine dependent constant. | +@@ -134,7 +134,7 @@ c + if (bounds(i) .le. tol*temp) nconv = nconv + 1 + 20 continue + c +- call second (t1) ++ call secnd2 (t1) + tnconv = tnconv + (t1 - t0) + c + return +diff -up ARPACK/SRC/cnaup2.f.sb ARPACK/SRC/cnaup2.f +--- ARPACK/SRC/cnaup2.f.sb 2000-06-01 22:28:53.000000000 +0200 ++++ ARPACK/SRC/cnaup2.f 2007-10-24 02:50:57.000000000 +0200 +@@ -264,7 +264,7 @@ c %-----------------------% + c + if (ido .eq. 0) then + c +- call second (t0) ++ call secnd2 (t0) + c + msglvl = mcaup2 + c +@@ -724,7 +724,7 @@ c | the first step of the next ca + c %---------------------------------------------% + c + cnorm = .true. +- call second (t2) ++ call secnd2 (t2) + if (bmat .eq. 'G') then + nbx = nbx + 1 + call ccopy (n, resid, 1, workd(n+1), 1) +@@ -749,7 +749,7 @@ c | WORKD(1:N) := B*RESID + c %----------------------------------% + c + if (bmat .eq. 'G') then +- call second (t3) ++ call secnd2 (t3) + tmvbx = tmvbx + (t3 - t2) + end if + c +@@ -788,7 +788,7 @@ c %------------% + c | Error Exit | + c %------------% + c +- call second (t1) ++ call secnd2 (t1) + tcaup2 = t1 - t0 + c + 9000 continue +diff -up ARPACK/SRC/dseigt.f.sb ARPACK/SRC/dseigt.f +--- ARPACK/SRC/dseigt.f.sb 1996-08-27 07:29:04.000000000 +0200 ++++ ARPACK/SRC/dseigt.f 2007-10-24 02:50:57.000000000 +0200 +@@ -138,7 +138,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mseigt + c + if (msglvl .gt. 0) then +@@ -168,7 +168,7 @@ c + bounds(k) = rnorm*abs(bounds(k)) + 30 continue + c +- call second (t1) ++ call secnd2 (t1) + tseigt = tseigt + (t1 - t0) + c + 9000 continue +diff -up ARPACK/SRC/sngets.f.sb ARPACK/SRC/sngets.f +--- ARPACK/SRC/sngets.f.sb 1996-04-20 18:27:24.000000000 +0200 ++++ ARPACK/SRC/sngets.f 2007-10-24 02:50:57.000000000 +0200 +@@ -152,7 +152,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mngets + c + c %----------------------------------------------------% +@@ -208,7 +208,7 @@ c + call ssortc ( 'SR', .true., np, bounds, ritzr, ritzi ) + end if + c +- call second (t1) ++ call secnd2 (t1) + tngets = tngets + (t1 - t0) + c + if (msglvl .gt. 0) then +diff -up ARPACK/SRC/cngets.f.sb ARPACK/SRC/cngets.f +--- ARPACK/SRC/cngets.f.sb 1996-04-20 19:15:56.000000000 +0200 ++++ ARPACK/SRC/cngets.f 2007-10-24 02:50:57.000000000 +0200 +@@ -137,7 +137,7 @@ c | Initialize timing statistics | + c | & message level for debugging | + c %-------------------------------% + c +- call second (t0) ++ call secnd2 (t0) + msglvl = mcgets + c + call csortc (which, .true., kev+np, ritz, bounds) +@@ -157,7 +157,7 @@ c + c + end if + c +- call second (t1) ++ call secnd2 (t1) + tcgets = tcgets + (t1 - t0) + c + if (msglvl .gt. 0) then diff --git a/arpack.spec b/arpack.spec new file mode 100644 index 0000000..78f716a --- /dev/null +++ b/arpack.spec @@ -0,0 +1,127 @@ +%bcond_without gfortran + +Summary: Fortran77 subroutines for solving large scale eigenvalue problems +Name: arpack +Version: 2.1 +Release: 7%{?dist} +License: Freely distributable +Group: Development/Libraries +URL: http://www.caam.rice.edu/software/ARPACK/ +Source0: http://www.caam.rice.edu/software/ARPACK/SRC/arpack96.tar.gz +Source1: http://www.caam.rice.edu/software/ARPACK/SRC/patch.tar.gz +Source2: http://www.caam.rice.edu/software/ARPACK/RiceBSD.doc +Source3: RiceBSD.txt +# https://bugzilla.redhat.com/bugzilla/attachment.cgi?id=148107 +Source4: clarification-note-by-authors.txt +Patch0: arpack-2.1-redhat.patch +# see http://www.ann.jussieu.fr/pipermail/freefempp/2006/000213.html +Patch1: arpack-second-bug.patch +BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-buildroot +BuildRequires: %{?with_gfortran:gcc-gfortran}%{!?with_gfortran:/usr/bin/f77} +# The correct dependency would be the following, but it doesn't exist on RHEL4/3 +#BuildRequires: lapack-devel +BuildRequires: %{_libdir}/liblapack.so + +%description +ARPACK is a collection of Fortran77 subroutines designed to solve large +scale eigenvalue problems. + +The package is designed to compute a few eigenvalues and corresponding +eigenvectors of a general n by n matrix A. It is most appropriate for +large sparse or structured matrices A where structured means that a +matrix-vector product w <- Av requires order n rather than the usual +order n**2 floating point operations. This software is based upon an +algorithmic variant of the Arnoldi process called the Implicitly +Restarted Arnoldi Method (IRAM). + +%package devel +Summary: Files needed for developing arpack based applications +Group: Development/Libraries +Requires: arpack = %{version}-%{release} + +%description devel +ARPACK is a collection of Fortran77 subroutines designed to solve +large scale eigenvalue problems. This package contains the so +library links used for building arpack based applications. + +%package static +Summary: Static library for developing arpack based applications +Group: Development/Libraries +Requires: arpack-devel = %{version}-%{release} + +%description static +ARPACK is a collection of Fortran77 subroutines designed to solve +large scale eigenvalue problems. This package contains the static +library and so links used for building arpack based applications. + +%prep +%setup -q -b 1 -n ARPACK +%patch -p1 -b .rh +%patch1 -p1 -b .sb +mkdir static shared + +%build +cd shared +for dir in ../SRC ../UTIL; do + make -f $dir/Makefile VPATH=$dir srcdir=$dir \ + %{?with_gfortran:FC=gfortran} FFLAGS="%{optflags} -fPIC" \ + single double complex complex16 +done +gcc -shared -llapack -Wl,-soname,libarpack.so.2 -o libarpack.so.2.1 *.o +cd .. +cd static +for dir in ../SRC ../UTIL; do + make -f $dir/Makefile VPATH=$dir srcdir=$dir \ + %{?with_gfortran:FC=gfortran} FFLAGS="%{optflags}" LDFLAGS="-s" \ + all +done +ar rv libarpack.a *.o +ranlib libarpack.a +cd .. + +%install +rm -rf %{buildroot} +mkdir -p %{buildroot}%{_libdir} +install -p -m644 static/libarpack.a %{buildroot}%{_libdir} +install -p -m755 shared/libarpack.so.2.1 %{buildroot}%{_libdir} +ln -s libarpack.so.2.1 %{buildroot}%{_libdir}/libarpack.so.2 +ln -s libarpack.so.2 %{buildroot}%{_libdir}/libarpack.so +cp -p %{SOURCE2} %{SOURCE3} %{SOURCE4} . + +%clean +rm -rf %{buildroot} + +%post -p /sbin/ldconfig + +%postun -p /sbin/ldconfig + +%files +%defattr(-,root,root,-) +%doc RiceBSD.doc clarification-note-by-authors.txt +%{_libdir}/libarpack.so.* + +%files devel +%defattr(-,root,root,-) +%doc DOCUMENTS EXAMPLES +%{_libdir}/libarpack.so + +%files static +%{_libdir}/libarpack.a + +%changelog +* Wed Oct 24 2007 Dominik 'Rathann' Mierzejewski 2.1-7 +- apply Frederic Hecht's patch for eigenvalue bug +- move static libs to separate package + +* Mon Mar 26 2007 Axel Thimm - 2.1-6 +- Add license and clarification note +- Add lapack support + +* Thu Nov 9 2006 Axel Thimm - 2.1-4 +- Freshen up for submitting to fedora extras. +- Fix permissions of so file. +- Add forgotten ldconfig +- Remove dot from summaries. + +* Wed Jul 16 2003 Axel Thimm +- Initial build. diff --git a/clarification-note-by-authors.txt b/clarification-note-by-authors.txt new file mode 100644 index 0000000..796373a --- /dev/null +++ b/clarification-note-by-authors.txt @@ -0,0 +1,102 @@ +X-Mozilla-Status: 0011 +X-Mozilla-Status2: 00000000 +Received: from zuk35exm65.ds.mot.com ([10.178.1.44]) by zuk35exm62.ds.mot.com with Microsoft SMTPSVC(6.0.3790.2709); + Tue, 13 Feb 2007 19:53:15 +0000 +Received: from az33exr02.mot.com ([10.64.251.232]) by zuk35exm65.ds.mot.com with Microsoft SMTPSVC(6.0.3790.2709); + Tue, 13 Feb 2007 19:53:14 +0000 +Received: from motgate3.mot.com (motgate3.mot.com [144.189.100.103]) + by az33exr02.mot.com (8.13.1/8.13.0) with ESMTP id l1DJrDDS020683 + for ; Tue, 13 Feb 2007 13:53:13 -0600 (CST) +Received: from mail128.messagelabs.com (mail128.messagelabs.com [216.82.250.131]) + by motgate3.mot.com (8.12.11/Motorola) with SMTP id l1DJr8gl023906 + for ; Tue, 13 Feb 2007 12:53:11 -0700 (MST) +X-VirusChecked: Checked +X-Env-Sender: sorensen@rice.edu +X-Msg-Ref: server-6.tower-128.messagelabs.com!1171396385!13383447!1 +X-StarScan-Version: 5.5.10.7.1; banners=-,-,- +X-Originating-IP: [128.42.17.10] +X-SpamReason: No, hits=0.0 required=7.0 tests= +Received: (qmail 3872 invoked from network); 13 Feb 2007 19:53:05 -0000 +Received: from caam.rice.edu (HELO caam.rice.edu) (128.42.17.10) + by server-6.tower-128.messagelabs.com with SMTP; 13 Feb 2007 19:53:05 -0000 +Received: from localhost (localhost [127.0.0.1]) + by caam.rice.edu (Postfix) with ESMTP id 64341153A7 + for ; Tue, 13 Feb 2007 13:53:04 -0600 (CST) +Received: from caam.rice.edu ([127.0.0.1]) + by localhost (caam.rice.edu [127.0.0.1]) (amavisd-new, port 10024) with LMTP + id 23777-01-16 for ; + Tue, 13 Feb 2007 13:52:59 -0600 (CST) +Received: from [128.42.21.177] (sorensenl400.caam.rice.edu [128.42.21.177]) + by caam.rice.edu (Postfix) with ESMTP id 494E81539F + for ; Tue, 13 Feb 2007 13:52:59 -0600 (CST) +Message-ID: <45D2171B.8030109@rice.edu> +Date: Tue, 13 Feb 2007 13:52:59 -0600 +From: Dan Sorensen +User-Agent: Thunderbird 1.5.0.9 (Windows/20061207) +MIME-Version: 1.0 +To: David Bateman +Subject: Re: ARPACK License Question +References: <457EE5B3.70402@ieee.org> <20070105114426.GI4860@neu.nirvana> <45B8CB2F.9030904@motorola.com> +In-Reply-To: <45B8CB2F.9030904@motorola.com> +Content-Type: text/plain; charset=ISO-8859-1; format=flowed +Content-Transfer-Encoding: 7bit +X-Virus-Scanned: by amavis-2.2.1 at caam.rice.edu +Return-Path: sorensen@rice.edu +X-OriginalArrivalTime: 13 Feb 2007 19:53:14.0831 (UTC) FILETIME=[994B7DF0:01C74FA8] + +Dear Mr. Bateman + +I apologize for not responding to this previously. + +The clarification we discussed is the following + + +The clause in the license statement that states + +>>Written notification is provided to the developers of intent to use this +>> software. Also, we ask that use of ARPACK is properly cited in any +>> resulting publications or software documentation. + +has the following intension in your case. + +We are asking for acknowledgment in FEDORA that ARPACK is +the software that underlies what corresponds to the "eigs" command. +There is no intention to pass on a requirement of notification of use +from users of FEDORA. + +This is the understanding we have with MATLAB for example. + +If the above note or a slight modification of it is not acceptable +for the purposes of using ARPACK in FEDORA, I will have to refer +you to the tech transfer department of Rice University as I explained +during our phone conversation. + +Once again my apologies for the delay and I thank you for your +interest in ARPACK. + +Best Regards +Dan Sorensen + + + + + + + +David Bateman wrote: +> Dear Professor Sorensen, +> +> Perhaps you have not yet seen the e-mail below, and so I draw it to your +> attention. Can you please examine the request to modify the license of +> ARPACK in this mail belong to allow its inclusion in FEDORA and other +> similar open source linux distributions? +> +> As the author of the eigs function for Octave (www.octave.org) that uses +> ARPACK for its functionality, I'd hate to see my work not included in +> Octave due to this question not being resolved. +> +> Best Regards +> David +> +> + diff --git a/sources b/sources index e69de29..4498148 100644 --- a/sources +++ b/sources @@ -0,0 +1,2 @@ +fffaa970198b285676f4156cebc8626e arpack96.tar.gz +14830d758f195f272b8594a493501fa2 patch.tar.gz