rpms/arpack/F-8 RiceBSD.doc, NONE, 1.1 RiceBSD.txt, NONE, 1.1 arpack-2.1-redhat.patch, NONE, 1.1 arpack-second-bug.patch, NONE, 1.1 arpack.spec, NONE, 1.1 clarification-note-by-authors.txt, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
Axel Thimm (athimm)
fedora-extras-commits at redhat.com
Sat Jan 26 07:28:21 UTC 2008
- Previous message (by thread): rpms/arpack/F-7 RiceBSD.doc, NONE, 1.1 RiceBSD.txt, NONE, 1.1 arpack-2.1-redhat.patch, NONE, 1.1 arpack-second-bug.patch, NONE, 1.1 arpack.spec, NONE, 1.1 clarification-note-by-authors.txt, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
- Next message (by thread): rpms/arpack/devel RiceBSD.doc, NONE, 1.1 RiceBSD.txt, NONE, 1.1 arpack-2.1-redhat.patch, NONE, 1.1 arpack-second-bug.patch, NONE, 1.1 arpack.spec, NONE, 1.1 clarification-note-by-authors.txt, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Author: athimm
Update of /cvs/extras/rpms/arpack/F-8
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv12269/F-8
Modified Files:
.cvsignore sources
Added Files:
RiceBSD.doc RiceBSD.txt arpack-2.1-redhat.patch
arpack-second-bug.patch arpack.spec
clarification-note-by-authors.txt
Log Message:
Import arpack.
--- NEW FILE RiceBSD.doc ---
ÐÏࡱá
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:
Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
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.
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.
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.
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.
&
--- NEW FILE RiceBSD.txt ---
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.
arpack-2.1-redhat.patch:
--- NEW FILE arpack-2.1-redhat.patch ---
--- 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
arpack-second-bug.patch:
--- NEW FILE arpack-second-bug.patch ---
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
--- NEW FILE arpack.spec ---
%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 <rpm at greysector.net> 2.1-7
- apply Frederic Hecht's patch for eigenvalue bug
- move static libs to separate package
* Mon Mar 26 2007 Axel Thimm <Axel.Thimm at ATrpms.net> - 2.1-6
- Add license and clarification note
- Add lapack support
* Thu Nov 9 2006 Axel Thimm <Axel.Thimm at ATrpms.net> - 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 <Axel.Thimm at ATrpms.net>
- Initial build.
--- NEW FILE clarification-note-by-authors.txt ---
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 <David.Bateman at motorola.com>; 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 <David.Bateman at motorola.com>; Tue, 13 Feb 2007 12:53:11 -0700 (MST)
X-VirusChecked: Checked
X-Env-Sender: sorensen at 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 <David.Bateman at motorola.com>; 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 <David.Bateman at motorola.com>;
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 <David.Bateman at motorola.com>; Tue, 13 Feb 2007 13:52:59 -0600 (CST)
Message-ID: <45D2171B.8030109 at rice.edu>
Date: Tue, 13 Feb 2007 13:52:59 -0600
From: Dan Sorensen<sorensen at rice.edu>
User-Agent: Thunderbird 1.5.0.9 (Windows/20061207)
MIME-Version: 1.0
To: David Bateman<David.Bateman at motorola.com>
Subject: Re: ARPACK License Question
References: <457EE5B3.70402 at ieee.org> <20070105114426.GI4860 at neu.nirvana> <45B8CB2F.9030904 at motorola.com>
In-Reply-To: <45B8CB2F.9030904 at 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 at 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
>
>
Index: .cvsignore
===================================================================
RCS file: /cvs/extras/rpms/arpack/F-8/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore 25 Jan 2008 20:47:02 -0000 1.1
+++ .cvsignore 26 Jan 2008 07:27:46 -0000 1.2
@@ -0,0 +1,2 @@
+arpack96.tar.gz
+patch.tar.gz
Index: sources
===================================================================
RCS file: /cvs/extras/rpms/arpack/F-8/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sources 25 Jan 2008 20:47:02 -0000 1.1
+++ sources 26 Jan 2008 07:27:46 -0000 1.2
@@ -0,0 +1,2 @@
+fffaa970198b285676f4156cebc8626e arpack96.tar.gz
+14830d758f195f272b8594a493501fa2 patch.tar.gz
- Previous message (by thread): rpms/arpack/F-7 RiceBSD.doc, NONE, 1.1 RiceBSD.txt, NONE, 1.1 arpack-2.1-redhat.patch, NONE, 1.1 arpack-second-bug.patch, NONE, 1.1 arpack.spec, NONE, 1.1 clarification-note-by-authors.txt, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
- Next message (by thread): rpms/arpack/devel RiceBSD.doc, NONE, 1.1 RiceBSD.txt, NONE, 1.1 arpack-2.1-redhat.patch, NONE, 1.1 arpack-second-bug.patch, NONE, 1.1 arpack.spec, NONE, 1.1 clarification-note-by-authors.txt, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the fedora-extras-commits
mailing list