Get Gentoo!
gentoo.org sites
gentoo.org Wiki Bugs Forums Packages
Planet Archives Sources
Infra Status
summaryrefslogtreecommitdiff
path: root/sci-libs/arpack
diff options
context:
space:
mode:
authorSebastien Fabbro <bicatali@gentoo.org>2008-03-04 10:38:38 +0000
committerSebastien Fabbro <bicatali@gentoo.org>2008-03-04 10:38:38 +0000
commitf0370e19d911d98fdde28e5f60ff91591afd240a (patch)
tree99ab12514ca8a8ace162c4262350f8426fca5e54 /sci-libs/arpack
parentVersion bump wrt bug #178626, ebuild by Jakub Moc (diff)
downloadhistorical-f0370e19d911d98fdde28e5f60ff91591afd240a.tar.gz
historical-f0370e19d911d98fdde28e5f60ff91591afd240a.tar.bz2
historical-f0370e19d911d98fdde28e5f60ff91591afd240a.zip
mpi fixes: symbol duplication routines, tests and the no-optimization for some lapack routines. Moved patches to the mirrors, and removed old revision
Package-Manager: portage-2.1.4.4
Diffstat (limited to 'sci-libs/arpack')
-rw-r--r--sci-libs/arpack/ChangeLog11
-rw-r--r--sci-libs/arpack/Manifest23
-rw-r--r--sci-libs/arpack/arpack-96-r1.ebuild103
-rw-r--r--sci-libs/arpack/arpack-96-r2.ebuild51
-rw-r--r--sci-libs/arpack/files/arpack-96-gcc-4.2.patch11
-rw-r--r--sci-libs/arpack/files/arpack-arscnd.patch2574
-rw-r--r--sci-libs/arpack/files/arpack-autotools.patch557
-rw-r--r--sci-libs/arpack/metadata.xml17
8 files changed, 61 insertions, 3286 deletions
diff --git a/sci-libs/arpack/ChangeLog b/sci-libs/arpack/ChangeLog
index 44da8502d943..207ae9ad0933 100644
--- a/sci-libs/arpack/ChangeLog
+++ b/sci-libs/arpack/ChangeLog
@@ -1,6 +1,13 @@
# ChangeLog for sci-libs/arpack
-# Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/sci-libs/arpack/ChangeLog,v 1.5 2007/12/04 15:45:10 bicatali Exp $
+# Copyright 1999-2008 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/sci-libs/arpack/ChangeLog,v 1.6 2008/03/04 10:38:38 bicatali Exp $
+
+ 04 Mar 2008; Sébastien Fabbro <bicatali@gentoo.org>
+ -files/arpack-96-gcc-4.2.patch, -files/arpack-arscnd.patch,
+ -files/arpack-autotools.patch, metadata.xml, -arpack-96-r1.ebuild,
+ arpack-96-r2.ebuild:
+ mpi fixes: symbol duplication routines, tests and the no-optimization for
+ some lapack routines. Moved patches to the mirrors, and removed old revision
04 Dec 2007; Sébastien Fabbro <bicatali@gentoo.org>
files/arpack-arscnd.patch, files/arpack-autotools.patch:
diff --git a/sci-libs/arpack/Manifest b/sci-libs/arpack/Manifest
index 6bf08a1ebb49..7eb83495da57 100644
--- a/sci-libs/arpack/Manifest
+++ b/sci-libs/arpack/Manifest
@@ -1,13 +1,18 @@
-AUX arpack-96-gcc-4.2.patch 355 RMD160 cc0a3e5e3bdfeefbf0ab35103d1be1e32c2f5475 SHA1 9c3826340ca5d1256abc13145e4afbd1c5338ddb SHA256 8c43144456e25164fb50f77a5d813b1afd38ab0826453a58e4161b21a189b201
-AUX arpack-arscnd.patch 77146 RMD160 705efbc6168f6cfca5d9dca91aeb5e269f94d577 SHA1 ba0e9124020be4bb725bc9e7c12c2868efedd56f SHA256 09628674bdfd53a4b98412963332c7798fcce2e39aa92b9b13670ef58950fbac
-AUX arpack-autotools.patch 20636 RMD160 a65ba2d4174fbcb5fb0c2df92685a43d529b83b8 SHA1 d0b43eb31ac82352c4f6680efec6f0d00eee7f30 SHA256 e163f28570608bad5aade90075aefc97403df2b68ce8156254226c30e4a9a35c
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+DIST arpack-96-patches.tar.bz2 502877 RMD160 52b2fb81a6b96f5237c7d39338daadbe11b6c6e1 SHA1 e0182e05cd6b1f7f9c01e44cd29498777ad6aaab SHA256 eff198a6ead37bfbf3c138648ddace411d24f00deca7b69d39f789dcccc5d579
DIST arpack96.tar.gz 636865 RMD160 3d1c1c307223961506066f895b7ab291861e73fe SHA1 3f91de2b39b484bc8365f8048c9eb109e0306e1c SHA256 c6a47eca30a256cbae60e69c606251b84b6a0f352ba527b2dcbd4789ce85ecfc
DIST parpack96.tar.gz 509316 RMD160 224d61ef7ff9eec5f59b747d669f3deb74eb2ba5 SHA1 ebcb4de09639a2faa929bb1a46ba7350d1aa58da SHA256 3b6a1ceec06f14e2a06c323721baa908c2f7823d1da79cdfd3f91961f8b6b926
-DIST patch.tar.gz 226473 RMD160 4ccda2de8dc04c9ecb0ea722f230f5dd5c981154 SHA1 9fc6db4180d516d834d959a5f079e63f174f98fa SHA256 af8914d60af47e49fbad55812d0a5d0a7040fba90c93e5ef1a8d88d32027d3ad
-DIST ppatch.tar.gz 253097 RMD160 d1d42293fa98864060189410e9619484682bb176 SHA1 da11e982c359576722ae3f6fd17f15d36a0ac76a SHA256 3422c0916ff74a1c980ac4b79552357af56cd84e81102ac67928b80e913a580f
DIST tutorial.ps.gz 105599 RMD160 aaba42a6d5ce212e56f312d6187ba932d3b674b7 SHA1 70961d4e3463d012b33a1bbe25b5761d2a25a4d0 SHA256 2f745fe80b0a4fcdf1c273995ed67bc6cf03684ccbaa44442ad1187ea41b81c0
DIST ug.ps.gz 248543 RMD160 29911161dbc7f496ee16db3c98047dae0be51da2 SHA1 6ad34e7ddee64a340e756d55690a2f4e4f46e767 SHA256 ff1faac74bfc42442955906132756ecd7f0034803898d507dbd1bc960f6f4ab0
-EBUILD arpack-96-r1.ebuild 3058 RMD160 72dcdbb3c111d92f83c91a322f99de6dbf25dd8d SHA1 0c493440e0bdaa6ddac6bb8ee9f763933be14224 SHA256 abc899616de889eeca470b90a6dd4e58deab01bf2ed7bbcaa2a436f3927a3397
-EBUILD arpack-96-r2.ebuild 2997 RMD160 1bcaf0d4cd87cb00dfa490c31d5de93ae3f7417f SHA1 9bfc7aeaec59f17f1c6faddb7a449ca1b8f4adfc SHA256 f58a316698473fe9464a070f3501356f7ca6016a0f1e5b19bff49b5c8ce8e34d
-MISC ChangeLog 1623 RMD160 a45c249a884ca5094a5edef41df3e4e901b91a73 SHA1 73e5bd74b8e9612e59ad07fbfaab25cfd023055f SHA256 2b28acf15f4b155894662233b9fe926b199eff7f3196d0d9081e97f9bc8e15c7
-MISC metadata.xml 783 RMD160 32b72a8ead2943359dc32f1a26792bb30c1204ae SHA1 0b2d3050b2b9381aaf0802b9e2766c6a904225d4 SHA256 f2242db1d9196d1c81aee49b2db5db3d7e77f369671bf8c49fe2d09c56ec1673
+EBUILD arpack-96-r2.ebuild 2933 RMD160 28c924cb419734c5e0f8090fee802b46005a9c39 SHA1 569ce326e521a2ede4ed24e2a4331b4148401066 SHA256 3f0bc46ba17a106228e2e6044436eb6ccdbfaa58c24d37832b870334b7e7da20
+MISC ChangeLog 1988 RMD160 91eba67499e4929374c6829f5528d804cd24673c SHA1 5fafae04b4ee21d564b2caf873d5a2ab5a37e980 SHA256 365906195464d9f92f3172b8c833cab551dd757b07e1eb4b489c872cbddf8ec3
+MISC metadata.xml 778 RMD160 a17303d8e0a33f121e91431bc79c29c474b89621 SHA1 48a7c028e4a85b44a816ee160da700b85eb6c81f SHA256 9322966357560a8ec46b992b22a95797cb52fb5df194e7fbca78ae05226e2fb3
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v2.0.7 (GNU/Linux)
+
+iD8DBQFHzSa21ycZbhPLE2ARAkIsAKCb/lqDOxN+UmSZuYgvjvbBws5CfgCfV12j
+305EL/IceeQFhbP9jWHNZqQ=
+=kwJ2
+-----END PGP SIGNATURE-----
diff --git a/sci-libs/arpack/arpack-96-r1.ebuild b/sci-libs/arpack/arpack-96-r1.ebuild
deleted file mode 100644
index ed6cef134d9c..000000000000
--- a/sci-libs/arpack/arpack-96-r1.ebuild
+++ /dev/null
@@ -1,103 +0,0 @@
-# Copyright 1999-2007 Gentoo Foundation
-# Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/sci-libs/arpack/arpack-96-r1.ebuild,v 1.1 2007/09/26 19:26:47 bicatali Exp $
-
-inherit eutils autotools fortran
-
-DESCRIPTION="Arnoldi package library to solve large scale eigenvalue problems."
-HOMEPAGE="http://www.caam.rice.edu/software/ARPACK"
-SRC_URI="http://www.caam.rice.edu/software/ARPACK/SRC/${PN}${PV}.tar.gz
- http://www.caam.rice.edu/software/ARPACK/SRC/patch.tar.gz
- http://www.caam.rice.edu/software/ARPACK/SRC/p${PN}${PV}.tar.gz
- http://www.caam.rice.edu/software/ARPACK/SRC/ppatch.tar.gz
- doc? ( http://www.caam.rice.edu/software/ARPACK/SRC/ug.ps.gz
- http://www.caam.rice.edu/software/ARPACK/DOCS/tutorial.ps.gz )"
-
-LICENSE="RiceBSD"
-SLOT="0"
-KEYWORDS="~amd64 ~x86"
-IUSE="mpi doc examples"
-
-DEPEND="mpi? ( virtual/mpi )"
-RDEPEND="${DEPEND} virtual/blas"
-
-S="${WORKDIR}/ARPACK"
-
-FORTRAN="gfortran ifc g77"
-
-RESTRICT="mirror"
-
-src_unpack() {
- unpack ${A}
- cd "${S}"
- epatch "${FILESDIR}"/${PN}-autotools.patch
- epatch "${FILESDIR}"/${P}-gcc-4.2.patch
-
- # BLAS_LIBS="$(pkg-config --libs blas)" when new blas virtuals ok (bug #189722)
- BLAS_LIBS="-lblas"
- # fix examples library paths
- sed -i \
- -e '/^include/d' \
- -e "s/\$(ALIBS)/-larpack ${BLAS_LIBS}/g" \
- -e 's/$(FC)/$(F77)/g' \
- -e 's/$(FFLAGS)/$(FFLAGS) $(LDFLAGS)/g' \
- EXAMPLES/*/makefile || die "sed failed"
-
- sed -i \
- -e '/^include/d' \
- -e "s/\$(PLIBS)/-larpack -lparpack ${BLAS_LIBS} -lmpi/g" \
- -e 's/_$(PLAT)//g' \
- -e 's/$(PFC)/mpif77/g' \
- -e 's/$(PFFLAGS)/$(FFLAGS) $(LDFLAGS)/g' \
- PARPACK/EXAMPLES/MPI/makefile || die "sed failed"
-
- eautoreconf
-}
-
-src_compile() {
- econf \
- --with-blas="${BLAS_LIBS}" \
- $(use_enable mpi) \
- || "econf failed"
- emake || "emake failed"
-}
-
-src_test() {
- cd "${S}"/EXAMPLES/SIMPLE
- emake simple FC=${FORTRANC} LDFLAGS="-L${S}/.libs"
- local prog=
- for p in ss ds sn dn cn zn; do
- prog=${p}simp
- LD_LIBRARY_PATH="${S}/.libs" ./${prog} || die "${prog} test failed"
- rm -f ${prog}
- done
- if use mpi; then
- cd "${S}"/PARPACK/EXAMPLES/MPI
- ${FORTRANC} ${FFLAGS} -c ../../../LAPACK/dpttrf.f dpttrf.o || die "compiling dpttrf failed"
- ${FORTRANC} ${FFLAGS} -c ../../../LAPACK/dpttrs.f dpttrs.o || die "compiling dpttrs failed"
- emake pdndrv FC=mpif77 LDFLAGS="-L${S}/.libs -L${S}/PARPACK/.libs dpttrf.o dpttrs.o"
- for p in 1 3; do
- prog=pdndrv${p}
- LD_LIBRARY_PATH="${S}/.libs:${S}/PARPACK/.libs" ./${prog} || die "${prog} test failed"
- rm -f ${prog}
- done
- fi
-}
-
-src_install() {
- emake DESTDIR="${D}" install || die "emake install failed"
-
- dodoc README DOCUMENTS/*.doc || die "dodoc failed"
- newdoc DOCUMENTS/README README.doc || die "newdoc failed"
- if use doc; then
- dodoc "${WORKDIR}"/*.ps || die "dodoc postscript failed"
- fi
- if use examples; then
- insinto /usr/share/doc/${PF}
- doins -r EXAMPLES || die "doins examples failed"
- if use mpi; then
- insinto /usr/share/doc/${PF}/EXAMPLES/PARPACK
- doins -r PARPACK/EXAMPLES/MPI || die "doins mpi examples failed"
- fi
- fi
-}
diff --git a/sci-libs/arpack/arpack-96-r2.ebuild b/sci-libs/arpack/arpack-96-r2.ebuild
index 3e96d986369d..f3d591e6cc8f 100644
--- a/sci-libs/arpack/arpack-96-r2.ebuild
+++ b/sci-libs/arpack/arpack-96-r2.ebuild
@@ -1,15 +1,14 @@
-# Copyright 1999-2007 Gentoo Foundation
+# Copyright 1999-2008 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/sci-libs/arpack/arpack-96-r2.ebuild,v 1.1 2007/11/02 13:14:31 bicatali Exp $
+# $Header: /var/cvsroot/gentoo-x86/sci-libs/arpack/arpack-96-r2.ebuild,v 1.2 2008/03/04 10:38:38 bicatali Exp $
inherit eutils autotools fortran
DESCRIPTION="Arnoldi package library to solve large scale eigenvalue problems."
HOMEPAGE="http://www.caam.rice.edu/software/ARPACK"
SRC_URI="http://www.caam.rice.edu/software/ARPACK/SRC/${PN}${PV}.tar.gz
- http://www.caam.rice.edu/software/ARPACK/SRC/patch.tar.gz
http://www.caam.rice.edu/software/ARPACK/SRC/p${PN}${PV}.tar.gz
- http://www.caam.rice.edu/software/ARPACK/SRC/ppatch.tar.gz
+ mirror://gentoo/${P}-patches.tar.bz2
doc? ( http://www.caam.rice.edu/software/ARPACK/SRC/ug.ps.gz
http://www.caam.rice.edu/software/ARPACK/DOCS/tutorial.ps.gz )"
@@ -18,21 +17,21 @@ SLOT="0"
KEYWORDS="~amd64 ~x86"
IUSE="mpi doc examples"
-DEPEND="virtual/blas
- dev-util/pkgconfig
+RDEPEND="virtual/blas
mpi? ( virtual/mpi )"
+DEPEND="${RDEPEND}
+ dev-util/pkgconfig"
S="${WORKDIR}/ARPACK"
FORTRAN="gfortran ifc g77"
-RESTRICT="mirror"
-
src_unpack() {
unpack ${A}
+ unpack ./*patch.tar.gz
+ epatch "${WORKDIR}"/${PN}-arscnd.patch
cd "${S}"
- epatch "${FILESDIR}"/${PN}-autotools.patch
- epatch "${FILESDIR}"/${PN}-arscnd.patch
+ epatch "${WORKDIR}"/${PN}-autotools.patch
BLAS_LIBS="$(pkg-config --libs blas)"
# fix examples library paths
@@ -45,10 +44,10 @@ src_unpack() {
sed -i \
-e '/^include/d' \
- -e "s/\$(PLIBS)/-larpack -lparpack ${BLAS_LIBS} -lmpi/g" \
+ -e "s/\$(PLIBS)/-larpack -lparpack ${BLAS_LIBS}/g" \
-e 's/_$(PLAT)//g' \
-e 's/$(PFC)/mpif77/g' \
- -e 's/$(PFFLAGS)/$(FFLAGS) $(LDFLAGS)/g' \
+ -e 's/$(PFFLAGS)/$(FFLAGS) $(LDFLAGS) $(EXTOBJS)/g' \
PARPACK/EXAMPLES/MPI/makefile || die "sed failed"
eautoreconf
@@ -63,24 +62,34 @@ src_compile() {
}
src_test() {
- cd "${S}"/EXAMPLES/SIMPLE
+
+ pushd EXAMPLES/SIMPLE
emake simple FC=${FORTRANC} LDFLAGS="-L${S}/.libs"
local prog=
for p in ss ds sn dn cn zn; do
prog=${p}simp
- LD_LIBRARY_PATH="${S}/.libs" ./${prog} || die "${prog} test failed"
- rm -f ${prog}
+ LD_LIBRARY_PATH="${S}/.libs" ./${prog} \
+ || die "${prog} test failed"
+ rm -f ${prog} *.o
done
+ popd
+
if use mpi; then
- cd "${S}"/PARPACK/EXAMPLES/MPI
- ${FORTRANC} ${FFLAGS} -c ../../../LAPACK/dpttrf.f dpttrf.o || die "compiling dpttrf failed"
- ${FORTRANC} ${FFLAGS} -c ../../../LAPACK/dpttrs.f dpttrs.o || die "compiling dpttrs failed"
- emake pdndrv FC=mpif77 LDFLAGS="-L${S}/.libs -L${S}/PARPACK/.libs dpttrf.o dpttrs.o"
+ pushd PARPACK/EXAMPLES/MPI
+ ${FORTRANC} ${FFLAGS} -c ../../../LAPACK/dpttr{f,s}.f \
+ || die "compiling dpttrf,s failed"
+ emake \
+ FC=mpif77 \
+ EXTOBJS="dpttr{f,s}.o" \
+ LDFLAGS="-L${S}/.libs -L${S}/PARPACK/.libs" \
+ pdndrv || die "emake pdndrv failed"
for p in 1 3; do
prog=pdndrv${p}
- LD_LIBRARY_PATH="${S}/.libs:${S}/PARPACK/.libs" ./${prog} || die "${prog} test failed"
- rm -f ${prog}
+ LD_LIBRARY_PATH="${S}/.libs:${S}/PARPACK/.libs" \
+ ./${prog} || die "${prog} test failed"
+ rm -f ${prog} *.o
done
+ popd
fi
}
diff --git a/sci-libs/arpack/files/arpack-96-gcc-4.2.patch b/sci-libs/arpack/files/arpack-96-gcc-4.2.patch
deleted file mode 100644
index d0f16f14732c..000000000000
--- a/sci-libs/arpack/files/arpack-96-gcc-4.2.patch
+++ /dev/null
@@ -1,11 +0,0 @@
-diff -Naur ARPACK-old/UTIL/second.f ARPACK/UTIL/second.f
---- ARPACK-old/UTIL/second.f 1995-10-02 14:56:44.000000000 -0400
-+++ ARPACK/UTIL/second.f 2007-09-26 08:43:28.000000000 -0400
-@@ -21,7 +21,6 @@
- * ..
- * .. External Functions ..
- REAL ETIME
-- EXTERNAL ETIME
- * ..
- * .. Executable Statements ..
- *
diff --git a/sci-libs/arpack/files/arpack-arscnd.patch b/sci-libs/arpack/files/arpack-arscnd.patch
deleted file mode 100644
index f36b427e1963..000000000000
--- a/sci-libs/arpack/files/arpack-arscnd.patch
+++ /dev/null
@@ -1,2574 +0,0 @@
-diff -Nur ARPACK.orig/SRC/cgetv0.f ARPACK/SRC/cgetv0.f
---- ARPACK.orig/SRC/cgetv0.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cgetv0.f 2007-12-04 12:40:24.000000000 +0000
-@@ -89,7 +89,7 @@
- c pp 357-385.
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c cvout ARPACK utility routine that prints vectors.
- c clarnv LAPACK routine for generating a random vector.
- c cgemv Level 2 BLAS routine for matrix vector multiplication.
-@@ -168,7 +168,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external ccopy, cgemv, clarnv, cvout, second
-+ external ccopy, cgemv, clarnv, cvout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -211,7 +211,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mgetv0
- c
- ierr = 0
-@@ -238,7 +238,7 @@
- c | the generalized problem when B is possibly (singular). |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nopx = nopx + 1
- ipntr(1) = 1
-@@ -261,7 +261,7 @@
- c
- if (orth) go to 40
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
- c
- c %------------------------------------------------------%
-@@ -269,7 +269,7 @@
- c | Compute B-norm of starting vector. |
- c %------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- first = .TRUE.
- if (bmat .eq. 'G') then
- nbx = nbx + 1
-@@ -285,7 +285,7 @@
- 20 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -328,7 +328,7 @@
- c | Compute the B-norm of the orthogonalized starting vector |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call ccopy (n, resid, 1, workd(n+1), 1)
-@@ -343,7 +343,7 @@
- 40 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -401,7 +401,7 @@
- end if
- ido = 99
- c
-- call second (t1)
-+ call arscnd (t1)
- tgetv0 = tgetv0 + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/cnaitr.f ARPACK/SRC/cnaitr.f
---- ARPACK.orig/SRC/cnaitr.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cnaitr.f 2007-12-04 12:40:24.000000000 +0000
-@@ -131,7 +131,7 @@
- c\Routines called:
- c cgetv0 ARPACK routine to generate the initial vector.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c cmout ARPACK utility routine that prints matrices
- c cvout ARPACK utility routine that prints vectors.
- c clanhs LAPACK routine that computes various norms of a matrix.
-@@ -273,7 +273,7 @@
- c %----------------------%
- c
- external caxpy, ccopy, cscal, csscal, cgemv, cgetv0,
-- & slabad, cvout, cmout, ivout, second
-+ & slabad, cvout, cmout, ivout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -326,7 +326,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcaitr
- c
- c %------------------------------%
-@@ -437,7 +437,7 @@
- c %------------------------------------------------%
- c
- info = j - 1
-- call second (t1)
-+ call arscnd (t1)
- tcaitr = tcaitr + (t1 - t0)
- ido = 99
- go to 9000
-@@ -477,7 +477,7 @@
- c
- step3 = .true.
- nopx = nopx + 1
-- call second (t2)
-+ call arscnd (t2)
- call ccopy (n, v(1,j), 1, workd(ivj), 1)
- ipntr(1) = ivj
- ipntr(2) = irj
-@@ -497,7 +497,7 @@
- c | if step3 = .true. |
- c %----------------------------------%
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
-
- step3 = .false.
-@@ -513,7 +513,7 @@
- c | factorization to length j. |
- c %---------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- step4 = .true.
-@@ -538,7 +538,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -583,11 +583,11 @@
- c
- if (j .gt. 1) h(j,j-1) = cmplx(betaj, rzero)
- c
-- call second (t4)
-+ call arscnd (t4)
- c
- orth1 = .true.
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call ccopy (n, resid, 1, workd(irj), 1)
-@@ -611,7 +611,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -689,7 +689,7 @@
- call caxpy (j, one, workd(irj), 1, h(1,j), 1)
- c
- orth2 = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call ccopy (n, resid, 1, workd(irj), 1)
-@@ -713,7 +713,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -791,7 +791,7 @@
- rstart = .false.
- orth2 = .false.
- c
-- call second (t5)
-+ call arscnd (t5)
- titref = titref + (t5 - t4)
- c
- c %------------------------------------%
-@@ -800,7 +800,7 @@
- c
- j = j + 1
- if (j .gt. k+np) then
-- call second (t1)
-+ call arscnd (t1)
- tcaitr = tcaitr + (t1 - t0)
- ido = 99
- do 110 i = max(1,k), k+np-1
-diff -Nur ARPACK.orig/SRC/cnapps.f ARPACK/SRC/cnapps.f
---- ARPACK.orig/SRC/cnapps.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cnapps.f 2007-12-04 12:40:24.000000000 +0000
-@@ -92,7 +92,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c cmout ARPACK utility routine that prints matrices
- c cvout ARPACK utility routine that prints vectors.
- c clacpy LAPACK matrix copy routine.
-@@ -184,7 +184,7 @@
- c %----------------------%
- c
- external caxpy, ccopy, cgemv, cscal, clacpy, clartg,
-- & cvout, claset, slabad, cmout, second, ivout
-+ & cvout, claset, slabad, cmout, arscnd, ivout
- c
- c %--------------------%
- c | External Functions |
-@@ -240,7 +240,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcapps
- c
- kplusp = kev + np
-@@ -495,7 +495,7 @@
- end if
- c
- 9000 continue
-- call second (t1)
-+ call arscnd (t1)
- tcapps = tcapps + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/cnaup2.f ARPACK/SRC/cnaup2.f
---- ARPACK.orig/SRC/cnaup2.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cnaup2.f 2007-12-04 12:40:24.000000000 +0000
-@@ -135,7 +135,7 @@
- c cngets ARPACK reorder Ritz values and error bounds routine.
- c csortc ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c cmout ARPACK utility routine that prints matrices
- c cvout ARPACK utility routine that prints vectors.
- c svout ARPACK utility routine that prints vectors.
-@@ -240,7 +240,7 @@
- c %----------------------%
- c
- external ccopy, cgetv0, cnaitr, cneigh, cngets, cnapps,
-- & csortc, cswap, cmout, cvout, ivout, second
-+ & csortc, cswap, cmout, cvout, ivout, arscnd
- c
- c %--------------------%
- c | External functions |
-@@ -264,7 +264,7 @@
- c
- if (ido .eq. 0) then
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- msglvl = mcaup2
- c
-@@ -724,7 +724,7 @@
- c %---------------------------------------------%
- c
- cnorm = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call ccopy (n, resid, 1, workd(n+1), 1)
-@@ -749,7 +749,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -788,7 +788,7 @@
- c | Error Exit |
- c %------------%
- c
-- call second (t1)
-+ call arscnd (t1)
- tcaup2 = t1 - t0
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/cnaupd.f ARPACK/SRC/cnaupd.f
---- ARPACK.orig/SRC/cnaupd.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cnaupd.f 2007-12-04 12:40:24.000000000 +0000
-@@ -356,7 +356,7 @@
- c cstatn ARPACK routine that initializes the timing variables.
- c ivout ARPACK utility routine that prints integers.
- c cvout ARPACK utility routine that prints vectors.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c slamch LAPACK routine that determines machine constants.
- c
- c\Author
-@@ -429,7 +429,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external cnaup2, cvout, ivout, second, cstatn
-+ external cnaup2, cvout, ivout, arscnd, cstatn
- c
- c %--------------------%
- c | External Functions |
-@@ -451,7 +451,7 @@
- c %-------------------------------%
- c
- call cstatn
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcaupd
- c
- c %----------------%
-@@ -611,7 +611,7 @@
- & '_naupd: Associated Ritz estimates')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tcaupd = t1 - t0
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/cneigh.f ARPACK/SRC/cneigh.f
---- ARPACK.orig/SRC/cneigh.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cneigh.f 2007-12-04 12:40:24.000000000 +0000
-@@ -64,7 +64,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c cmout ARPACK utility routine that prints matrices
- c cvout ARPACK utility routine that prints vectors.
- c svout ARPACK utility routine that prints vectors.
-@@ -152,7 +152,7 @@
- c %----------------------%
- c
- external clacpy, clahqr, ctrevc, ccopy,
-- & csscal, cmout, cvout, second
-+ & csscal, cmout, cvout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -171,7 +171,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mceigh
- c
- if (msglvl .gt. 2) then
-@@ -244,7 +244,7 @@
- & '_neigh: Ritz estimates for the eigenvalues of H')
- end if
- c
-- call second(t1)
-+ call arscnd(t1)
- tceigh = tceigh + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/cngets.f ARPACK/SRC/cngets.f
---- ARPACK.orig/SRC/cngets.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/cngets.f 2007-12-04 12:40:24.000000000 +0000
-@@ -63,7 +63,7 @@
- c\Routines called:
- c csortc ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c cvout ARPACK utility routine that prints vectors.
- c
- c\Author
-@@ -126,7 +126,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external cvout, csortc, second
-+ external cvout, csortc, arscnd
- c
- c %-----------------------%
- c | Executable Statements |
-@@ -137,7 +137,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcgets
- c
- call csortc (which, .true., kev+np, ritz, bounds)
-@@ -157,7 +157,7 @@
- c
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/dgetv0.f ARPACK/SRC/dgetv0.f
---- ARPACK.orig/SRC/dgetv0.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dgetv0.f 2007-12-04 12:40:24.000000000 +0000
-@@ -93,7 +93,7 @@
- c TR95-13, Department of Computational and Applied Mathematics.
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine for vector output.
- c dlarnv LAPACK routine for generating a random vector.
- c dgemv Level 2 BLAS routine for matrix vector multiplication.
-@@ -167,7 +167,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dlarnv, dvout, dcopy, dgemv, second
-+ external dlarnv, dvout, dcopy, dgemv, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -214,7 +214,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mgetv0
- c
- ierr = 0
-@@ -241,7 +241,7 @@
- c | the generalized problem when B is possibly (singular). |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nopx = nopx + 1
- ipntr(1) = 1
-@@ -265,7 +265,7 @@
- if (orth) go to 40
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
- end if
- c
-@@ -274,7 +274,7 @@
- c | Compute B-norm of starting vector. |
- c %------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- first = .TRUE.
- if (bmat .eq. 'G') then
- nbx = nbx + 1
-@@ -290,7 +290,7 @@
- 20 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -333,7 +333,7 @@
- c | Compute the B-norm of the orthogonalized starting vector |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(n+1), 1)
-@@ -348,7 +348,7 @@
- 40 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -406,7 +406,7 @@
- end if
- ido = 99
- c
-- call second (t1)
-+ call arscnd (t1)
- tgetv0 = tgetv0 + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/dnaitr.f ARPACK/SRC/dnaitr.f
---- ARPACK.orig/SRC/dnaitr.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dnaitr.f 2007-12-04 12:40:24.000000000 +0000
-@@ -132,7 +132,7 @@
- c\Routines called:
- c dgetv0 ARPACK routine to generate the initial vector.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dmout ARPACK utility routine that prints matrices
- c dvout ARPACK utility routine that prints vectors.
- c dlabad LAPACK routine that computes machine constants.
-@@ -268,7 +268,7 @@
- c %----------------------%
- c
- external daxpy, dcopy, dscal, dgemv, dgetv0, dlabad,
-- & dvout, dmout, ivout, second
-+ & dvout, dmout, ivout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -319,7 +319,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mnaitr
- c
- c %------------------------------%
-@@ -430,7 +430,7 @@
- c %------------------------------------------------%
- c
- info = j - 1
-- call second (t1)
-+ call arscnd (t1)
- tnaitr = tnaitr + (t1 - t0)
- ido = 99
- go to 9000
-@@ -470,7 +470,7 @@
- c
- step3 = .true.
- nopx = nopx + 1
-- call second (t2)
-+ call arscnd (t2)
- call dcopy (n, v(1,j), 1, workd(ivj), 1)
- ipntr(1) = ivj
- ipntr(2) = irj
-@@ -490,7 +490,7 @@
- c | if step3 = .true. |
- c %----------------------------------%
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
-
- step3 = .false.
-@@ -506,7 +506,7 @@
- c | factorization to length j. |
- c %---------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- step4 = .true.
-@@ -531,7 +531,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -576,11 +576,11 @@
- c
- if (j .gt. 1) h(j,j-1) = betaj
- c
-- call second (t4)
-+ call arscnd (t4)
- c
- orth1 = .true.
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(irj), 1)
-@@ -604,7 +604,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -681,7 +681,7 @@
- call daxpy (j, one, workd(irj), 1, h(1,j), 1)
- c
- orth2 = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(irj), 1)
-@@ -705,7 +705,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -783,7 +783,7 @@
- rstart = .false.
- orth2 = .false.
- c
-- call second (t5)
-+ call arscnd (t5)
- titref = titref + (t5 - t4)
- c
- c %------------------------------------%
-@@ -792,7 +792,7 @@
- c
- j = j + 1
- if (j .gt. k+np) then
-- call second (t1)
-+ call arscnd (t1)
- tnaitr = tnaitr + (t1 - t0)
- ido = 99
- do 110 i = max(1,k), k+np-1
-diff -Nur ARPACK.orig/SRC/dnapps.f ARPACK/SRC/dnapps.f
---- ARPACK.orig/SRC/dnapps.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dnapps.f 2007-12-04 12:40:24.000000000 +0000
-@@ -97,7 +97,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dmout ARPACK utility routine that prints matrices.
- c dvout ARPACK utility routine that prints vectors.
- c dlabad LAPACK routine that computes machine constants.
-@@ -189,7 +189,7 @@
- c %----------------------%
- c
- external daxpy, dcopy, dscal, dlacpy, dlarfg, dlarf,
-- & dlaset, dlabad, second, dlartg
-+ & dlaset, dlabad, arscnd, dlartg
- c
- c %--------------------%
- c | External Functions |
-@@ -237,7 +237,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mnapps
- kplusp = kev + np
- c
-@@ -635,7 +635,7 @@
- end if
- c
- 9000 continue
-- call second (t1)
-+ call arscnd (t1)
- tnapps = tnapps + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/dnaup2.f ARPACK/SRC/dnaup2.f
---- ARPACK.orig/SRC/dnaup2.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dnaup2.f 2007-12-04 12:40:24.000000000 +0000
-@@ -143,7 +143,7 @@
- c dngets ARPACK reorder Ritz values and error bounds routine.
- c dsortc ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dmout ARPACK utility routine that prints matrices
- c dvout ARPACK utility routine that prints vectors.
- c dlamch LAPACK routine that determines machine constants.
-@@ -236,7 +236,7 @@
- c %----------------------%
- c
- external dcopy , dgetv0, dnaitr, dnconv, dneigh,
-- & dngets, dnapps, dvout , ivout , second
-+ & dngets, dnapps, dvout , ivout , arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -258,7 +258,7 @@
- c
- if (ido .eq. 0) then
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- msglvl = mnaup2
- c
-@@ -758,7 +758,7 @@
- c %---------------------------------------------%
- c
- cnorm = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(n+1), 1)
-@@ -783,7 +783,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -822,7 +822,7 @@
- c | Error Exit |
- c %------------%
- c
-- call second (t1)
-+ call arscnd (t1)
- tnaup2 = t1 - t0
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/dnaupd.f ARPACK/SRC/dnaupd.f
---- ARPACK.orig/SRC/dnaupd.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dnaupd.f 2007-12-04 12:40:24.000000000 +0000
-@@ -379,7 +379,7 @@
- c dnaup2 ARPACK routine that implements the Implicitly Restarted
- c Arnoldi Iteration.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine that prints vectors.
- c dlamch LAPACK routine that determines machine constants.
- c
-@@ -454,7 +454,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dnaup2, dvout, ivout, second, dstatn
-+ external dnaup2, dvout, ivout, arscnd, dstatn
- c
- c %--------------------%
- c | External Functions |
-@@ -476,7 +476,7 @@
- c %-------------------------------%
- c
- call dstatn
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mnaupd
- c
- c %----------------%
-@@ -640,7 +640,7 @@
- & '_naupd: Associated Ritz estimates')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tnaupd = t1 - t0
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/dnconv.f ARPACK/SRC/dnconv.f
---- ARPACK.orig/SRC/dnconv.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dnconv.f 2007-12-04 12:40:24.000000000 +0000
-@@ -38,7 +38,7 @@
- c xxxxxx real
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dlamch LAPACK routine that determines machine constants.
- c dlapy2 LAPACK routine to compute sqrt(x**2+y**2) carefully.
- c
-@@ -119,7 +119,7 @@
- c | for some appropriate choice of norm. |
- c %-------------------------------------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- c %---------------------------------%
- c | Get machine dependent constant. |
-@@ -134,7 +134,7 @@
- if (bounds(i) .le. tol*temp) nconv = nconv + 1
- 20 continue
- c
-- call second (t1)
-+ call arscnd (t1)
- tnconv = tnconv + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/dneigh.f ARPACK/SRC/dneigh.f
---- ARPACK.orig/SRC/dneigh.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dneigh.f 2007-12-04 12:40:24.000000000 +0000
-@@ -63,7 +63,7 @@
- c\Routines called:
- c dlaqrb ARPACK routine to compute the real Schur form of an
- c upper Hessenberg matrix and last row of the Schur vectors.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dmout ARPACK utility routine that prints matrices
- c dvout ARPACK utility routine that prints vectors.
- c dlacpy LAPACK matrix copy routine.
-@@ -144,7 +144,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dcopy, dlacpy, dlaqrb, dtrevc, dvout, second
-+ external dcopy, dlacpy, dlaqrb, dtrevc, dvout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -170,7 +170,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mneigh
- c
- if (msglvl .gt. 2) then
-@@ -301,7 +301,7 @@
- & '_neigh: Ritz estimates for the eigenvalues of H')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tneigh = tneigh + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/dngets.f ARPACK/SRC/dngets.f
---- ARPACK.orig/SRC/dngets.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dngets.f 2007-12-04 12:40:24.000000000 +0000
-@@ -135,7 +135,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dcopy, dsortc, second
-+ external dcopy, dsortc, arscnd
- c
- c %----------------------%
- c | Intrinsics Functions |
-@@ -152,7 +152,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mngets
- c
- c %----------------------------------------------------%
-@@ -208,7 +208,7 @@
- call dsortc ( 'SR', .true., np, bounds, ritzr, ritzi )
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/dsaitr.f ARPACK/SRC/dsaitr.f
---- ARPACK.orig/SRC/dsaitr.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dsaitr.f 2007-12-04 12:40:24.000000000 +0000
-@@ -262,7 +262,7 @@
- c %----------------------%
- c
- external daxpy, dcopy, dscal, dgemv, dgetv0, dvout, dmout,
-- & dlascl, ivout, second
-+ & dlascl, ivout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -300,7 +300,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msaitr
- c
- c %------------------------------%
-@@ -420,7 +420,7 @@
- c %------------------------------------------------%
- c
- info = j - 1
-- call second (t1)
-+ call arscnd (t1)
- tsaitr = tsaitr + (t1 - t0)
- ido = 99
- go to 9000
-@@ -460,7 +460,7 @@
- c
- step3 = .true.
- nopx = nopx + 1
-- call second (t2)
-+ call arscnd (t2)
- call dcopy (n, v(1,j), 1, workd(ivj), 1)
- ipntr(1) = ivj
- ipntr(2) = irj
-@@ -479,7 +479,7 @@
- c | WORKD(IRJ:IRJ+N-1) := OP*v_{j}. |
- c %-----------------------------------%
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
- c
- step3 = .false.
-@@ -500,7 +500,7 @@
- c %-------------------------------------------%
- c
- if (mode .eq. 2) go to 65
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- step4 = .true.
-@@ -524,7 +524,7 @@
- c %-----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -592,12 +592,12 @@
- else
- h(j,1) = rnorm
- end if
-- call second (t4)
-+ call arscnd (t4)
- c
- orth1 = .true.
- iter = 0
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(irj), 1)
-@@ -621,7 +621,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -695,7 +695,7 @@
- h(j,2) = h(j,2) + workd(irj + j - 1)
- c
- orth2 = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(irj), 1)
-@@ -719,7 +719,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -791,7 +791,7 @@
- rstart = .false.
- orth2 = .false.
- c
-- call second (t5)
-+ call arscnd (t5)
- titref = titref + (t5 - t4)
- c
- c %----------------------------------------------------------%
-@@ -815,7 +815,7 @@
- c
- j = j + 1
- if (j .gt. k+np) then
-- call second (t1)
-+ call arscnd (t1)
- tsaitr = tsaitr + (t1 - t0)
- ido = 99
- c
-diff -Nur ARPACK.orig/SRC/dsapps.f ARPACK/SRC/dsapps.f
---- ARPACK.orig/SRC/dsapps.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dsapps.f 2007-12-04 12:40:24.000000000 +0000
-@@ -91,7 +91,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine that prints vectors.
- c dlamch LAPACK routine that determines machine constants.
- c dlartg LAPACK Givens rotation construction routine.
-@@ -176,7 +176,7 @@
- c %----------------------%
- c
- external daxpy, dcopy, dscal, dlacpy, dlartg, dlaset, dvout,
-- & ivout, second, dgemv
-+ & ivout, arscnd, dgemv
- c
- c %--------------------%
- c | External Functions |
-@@ -213,7 +213,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msapps
- c
- kplusp = kev + np
-@@ -503,7 +503,7 @@
- end if
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tsapps = tsapps + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/dsaup2.f ARPACK/SRC/dsaup2.f
---- ARPACK.orig/SRC/dsaup2.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dsaup2.f 2007-12-04 12:40:24.000000000 +0000
-@@ -148,7 +148,7 @@
- c dsgets ARPACK reorder Ritz values and error bounds routine.
- c dsortr ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine that prints vectors.
- c dlamch LAPACK routine that determines machine constants.
- c dcopy Level 1 BLAS that copies one vector to another.
-@@ -235,7 +235,7 @@
- c %----------------------%
- c
- external dcopy, dgetv0, dsaitr, dscal, dsconv, dseigt, dsgets,
-- & dsapps, dsortr, dvout, ivout, second, dswap
-+ & dsapps, dsortr, dvout, ivout, arscnd, dswap
- c
- c %--------------------%
- c | External Functions |
-@@ -262,7 +262,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msaup2
- c
- c %---------------------------------%
-@@ -770,7 +770,7 @@
- c %---------------------------------------------%
- c
- cnorm = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call dcopy (n, resid, 1, workd(n+1), 1)
-@@ -795,7 +795,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -837,7 +837,7 @@
- c | Error exit |
- c %------------%
- c
-- call second (t1)
-+ call arscnd (t1)
- tsaup2 = t1 - t0
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/dsaupd.f ARPACK/SRC/dsaupd.f
---- ARPACK.orig/SRC/dsaupd.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dsaupd.f 2007-12-04 12:40:24.000000000 +0000
-@@ -380,7 +380,7 @@
- c dstats ARPACK routine that initialize timing and other statistics
- c variables.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine that prints vectors.
- c dlamch LAPACK routine that determines machine constants.
- c
-@@ -456,7 +456,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dsaup2 , dvout , ivout, second, dstats
-+ external dsaup2 , dvout , ivout, arscnd, dstats
- c
- c %--------------------%
- c | External Functions |
-@@ -478,7 +478,7 @@
- c %-------------------------------%
- c
- call dstats
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msaupd
- c
- ierr = 0
-@@ -638,7 +638,7 @@
- & '_saupd: corresponding error bounds')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tsaupd = t1 - t0
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/dsconv.f ARPACK/SRC/dsconv.f
---- ARPACK.orig/SRC/dsconv.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dsconv.f 2007-12-04 12:40:24.000000000 +0000
-@@ -34,7 +34,7 @@
- c\BeginLib
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dlamch LAPACK routine that determines machine constants.
- c
- c\Author
-@@ -106,7 +106,7 @@
- c | Executable Statements |
- c %-----------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- eps23 = dlamch('Epsilon-Machine')
- eps23 = eps23**(2.0D+0 / 3.0D+0)
-@@ -126,7 +126,7 @@
- c
- 10 continue
- c
-- call second (t1)
-+ call arscnd (t1)
- tsconv = tsconv + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/dseigt.f ARPACK/SRC/dseigt.f
---- ARPACK.orig/SRC/dseigt.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dseigt.f 2007-12-04 12:40:24.000000000 +0000
-@@ -59,7 +59,7 @@
- c dstqrb ARPACK routine that computes the eigenvalues and the
- c last components of the eigenvectors of a symmetric
- c and tridiagonal matrix.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine that prints vectors.
- c dcopy Level 1 BLAS that copies one vector to another.
- c
-@@ -127,7 +127,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dcopy, dstqrb, dvout, second
-+ external dcopy, dstqrb, dvout, arscnd
- c
- c %-----------------------%
- c | Executable Statements |
-@@ -138,7 +138,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mseigt
- c
- if (msglvl .gt. 0) then
-@@ -168,7 +168,7 @@
- bounds(k) = rnorm*abs(bounds(k))
- 30 continue
- c
-- call second (t1)
-+ call arscnd (t1)
- tseigt = tseigt + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/dsgets.f ARPACK/SRC/dsgets.f
---- ARPACK.orig/SRC/dsgets.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/dsgets.f 2007-12-04 12:40:24.000000000 +0000
-@@ -65,7 +65,7 @@
- c\Routines called:
- c dsortr ARPACK utility sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dvout ARPACK utility routine that prints vectors.
- c dcopy Level 1 BLAS that copies one vector to another.
- c dswap Level 1 BLAS that swaps the contents of two vectors.
-@@ -131,7 +131,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external dswap, dcopy, dsortr, second
-+ external dswap, dcopy, dsortr, arscnd
- c
- c %---------------------%
- c | Intrinsic Functions |
-@@ -148,7 +148,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msgets
- c
- if (which .eq. 'BE') then
-@@ -198,7 +198,7 @@
- call dcopy (np, ritz, 1, shifts, 1)
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/sgetv0.f ARPACK/SRC/sgetv0.f
---- ARPACK.orig/SRC/sgetv0.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/sgetv0.f 2007-12-04 12:40:24.000000000 +0000
-@@ -93,7 +93,7 @@
- c TR95-13, Department of Computational and Applied Mathematics.
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine for vector output.
- c slarnv LAPACK routine for generating a random vector.
- c sgemv Level 2 BLAS routine for matrix vector multiplication.
-@@ -167,7 +167,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external slarnv, svout, scopy, sgemv, second
-+ external slarnv, svout, scopy, sgemv, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -214,7 +214,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mgetv0
- c
- ierr = 0
-@@ -241,7 +241,7 @@
- c | the generalized problem when B is possibly (singular). |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nopx = nopx + 1
- ipntr(1) = 1
-@@ -265,7 +265,7 @@
- if (orth) go to 40
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
- end if
- c
-@@ -274,7 +274,7 @@
- c | Compute B-norm of starting vector. |
- c %------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- first = .TRUE.
- if (bmat .eq. 'G') then
- nbx = nbx + 1
-@@ -290,7 +290,7 @@
- 20 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -333,7 +333,7 @@
- c | Compute the B-norm of the orthogonalized starting vector |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(n+1), 1)
-@@ -348,7 +348,7 @@
- 40 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -406,7 +406,7 @@
- end if
- ido = 99
- c
-- call second (t1)
-+ call arscnd (t1)
- tgetv0 = tgetv0 + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/snaitr.f ARPACK/SRC/snaitr.f
---- ARPACK.orig/SRC/snaitr.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/snaitr.f 2007-12-04 12:40:24.000000000 +0000
-@@ -132,7 +132,7 @@
- c\Routines called:
- c sgetv0 ARPACK routine to generate the initial vector.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c smout ARPACK utility routine that prints matrices
- c svout ARPACK utility routine that prints vectors.
- c slabad LAPACK routine that computes machine constants.
-@@ -268,7 +268,7 @@
- c %----------------------%
- c
- external saxpy, scopy, sscal, sgemv, sgetv0, slabad,
-- & svout, smout, ivout, second
-+ & svout, smout, ivout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -319,7 +319,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mnaitr
- c
- c %------------------------------%
-@@ -430,7 +430,7 @@
- c %------------------------------------------------%
- c
- info = j - 1
-- call second (t1)
-+ call arscnd (t1)
- tnaitr = tnaitr + (t1 - t0)
- ido = 99
- go to 9000
-@@ -470,7 +470,7 @@
- c
- step3 = .true.
- nopx = nopx + 1
-- call second (t2)
-+ call arscnd (t2)
- call scopy (n, v(1,j), 1, workd(ivj), 1)
- ipntr(1) = ivj
- ipntr(2) = irj
-@@ -490,7 +490,7 @@
- c | if step3 = .true. |
- c %----------------------------------%
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
-
- step3 = .false.
-@@ -506,7 +506,7 @@
- c | factorization to length j. |
- c %---------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- step4 = .true.
-@@ -531,7 +531,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -576,11 +576,11 @@
- c
- if (j .gt. 1) h(j,j-1) = betaj
- c
-- call second (t4)
-+ call arscnd (t4)
- c
- orth1 = .true.
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(irj), 1)
-@@ -604,7 +604,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -681,7 +681,7 @@
- call saxpy (j, one, workd(irj), 1, h(1,j), 1)
- c
- orth2 = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(irj), 1)
-@@ -705,7 +705,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -783,7 +783,7 @@
- rstart = .false.
- orth2 = .false.
- c
-- call second (t5)
-+ call arscnd (t5)
- titref = titref + (t5 - t4)
- c
- c %------------------------------------%
-@@ -792,7 +792,7 @@
- c
- j = j + 1
- if (j .gt. k+np) then
-- call second (t1)
-+ call arscnd (t1)
- tnaitr = tnaitr + (t1 - t0)
- ido = 99
- do 110 i = max(1,k), k+np-1
-diff -Nur ARPACK.orig/SRC/snapps.f ARPACK/SRC/snapps.f
---- ARPACK.orig/SRC/snapps.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/snapps.f 2007-12-04 12:40:24.000000000 +0000
-@@ -97,7 +97,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c smout ARPACK utility routine that prints matrices.
- c svout ARPACK utility routine that prints vectors.
- c slabad LAPACK routine that computes machine constants.
-@@ -189,7 +189,7 @@
- c %----------------------%
- c
- external saxpy, scopy, sscal, slacpy, slarfg, slarf,
-- & slaset, slabad, second, slartg
-+ & slaset, slabad, arscnd, slartg
- c
- c %--------------------%
- c | External Functions |
-@@ -237,7 +237,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mnapps
- kplusp = kev + np
- c
-@@ -635,7 +635,7 @@
- end if
- c
- 9000 continue
-- call second (t1)
-+ call arscnd (t1)
- tnapps = tnapps + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/snaup2.f ARPACK/SRC/snaup2.f
---- ARPACK.orig/SRC/snaup2.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/snaup2.f 2007-12-04 12:40:24.000000000 +0000
-@@ -143,7 +143,7 @@
- c sngets ARPACK reorder Ritz values and error bounds routine.
- c ssortc ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c smout ARPACK utility routine that prints matrices
- c svout ARPACK utility routine that prints vectors.
- c slamch LAPACK routine that determines machine constants.
-@@ -236,7 +236,7 @@
- c %----------------------%
- c
- external scopy , sgetv0, snaitr, snconv, sneigh,
-- & sngets, snapps, svout , ivout , second
-+ & sngets, snapps, svout , ivout , arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -258,7 +258,7 @@
- c
- if (ido .eq. 0) then
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- msglvl = mnaup2
- c
-@@ -758,7 +758,7 @@
- c %---------------------------------------------%
- c
- cnorm = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(n+1), 1)
-@@ -783,7 +783,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -822,7 +822,7 @@
- c | Error Exit |
- c %------------%
- c
-- call second (t1)
-+ call arscnd (t1)
- tnaup2 = t1 - t0
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/snaupd.f ARPACK/SRC/snaupd.f
---- ARPACK.orig/SRC/snaupd.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/snaupd.f 2007-12-04 12:40:24.000000000 +0000
-@@ -379,7 +379,7 @@
- c snaup2 ARPACK routine that implements the Implicitly Restarted
- c Arnoldi Iteration.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine that prints vectors.
- c slamch LAPACK routine that determines machine constants.
- c
-@@ -454,7 +454,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external snaup2, svout, ivout, second, sstatn
-+ external snaup2, svout, ivout, arscnd, sstatn
- c
- c %--------------------%
- c | External Functions |
-@@ -476,7 +476,7 @@
- c %-------------------------------%
- c
- call sstatn
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mnaupd
- c
- c %----------------%
-@@ -640,7 +640,7 @@
- & '_naupd: Associated Ritz estimates')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tnaupd = t1 - t0
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/snconv.f ARPACK/SRC/snconv.f
---- ARPACK.orig/SRC/snconv.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/snconv.f 2007-12-04 12:40:24.000000000 +0000
-@@ -38,7 +38,7 @@
- c xxxxxx real
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c slamch LAPACK routine that determines machine constants.
- c slapy2 LAPACK routine to compute sqrt(x**2+y**2) carefully.
- c
-@@ -119,7 +119,7 @@
- c | for some appropriate choice of norm. |
- c %-------------------------------------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- c %---------------------------------%
- c | Get machine dependent constant. |
-@@ -134,7 +134,7 @@
- if (bounds(i) .le. tol*temp) nconv = nconv + 1
- 20 continue
- c
-- call second (t1)
-+ call arscnd (t1)
- tnconv = tnconv + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/sneigh.f ARPACK/SRC/sneigh.f
---- ARPACK.orig/SRC/sneigh.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/sneigh.f 2007-12-04 12:40:24.000000000 +0000
-@@ -63,7 +63,7 @@
- c\Routines called:
- c slaqrb ARPACK routine to compute the real Schur form of an
- c upper Hessenberg matrix and last row of the Schur vectors.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c smout ARPACK utility routine that prints matrices
- c svout ARPACK utility routine that prints vectors.
- c slacpy LAPACK matrix copy routine.
-@@ -144,7 +144,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external scopy, slacpy, slaqrb, strevc, svout, second
-+ external scopy, slacpy, slaqrb, strevc, svout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -170,7 +170,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mneigh
- c
- if (msglvl .gt. 2) then
-@@ -301,7 +301,7 @@
- & '_neigh: Ritz estimates for the eigenvalues of H')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tneigh = tneigh + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/sngets.f ARPACK/SRC/sngets.f
---- ARPACK.orig/SRC/sngets.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/sngets.f 2007-12-04 12:40:24.000000000 +0000
-@@ -135,7 +135,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external scopy, ssortc, second
-+ external scopy, ssortc, arscnd
- c
- c %----------------------%
- c | Intrinsics Functions |
-@@ -152,7 +152,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mngets
- c
- c %----------------------------------------------------%
-@@ -208,7 +208,7 @@
- call ssortc ( 'SR', .true., np, bounds, ritzr, ritzi )
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/ssaitr.f ARPACK/SRC/ssaitr.f
---- ARPACK.orig/SRC/ssaitr.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/ssaitr.f 2007-12-04 12:40:24.000000000 +0000
-@@ -262,7 +262,7 @@
- c %----------------------%
- c
- external saxpy, scopy, sscal, sgemv, sgetv0, svout, smout,
-- & slascl, ivout, second
-+ & slascl, ivout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -300,7 +300,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msaitr
- c
- c %------------------------------%
-@@ -420,7 +420,7 @@
- c %------------------------------------------------%
- c
- info = j - 1
-- call second (t1)
-+ call arscnd (t1)
- tsaitr = tsaitr + (t1 - t0)
- ido = 99
- go to 9000
-@@ -460,7 +460,7 @@
- c
- step3 = .true.
- nopx = nopx + 1
-- call second (t2)
-+ call arscnd (t2)
- call scopy (n, v(1,j), 1, workd(ivj), 1)
- ipntr(1) = ivj
- ipntr(2) = irj
-@@ -479,7 +479,7 @@
- c | WORKD(IRJ:IRJ+N-1) := OP*v_{j}. |
- c %-----------------------------------%
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
- c
- step3 = .false.
-@@ -500,7 +500,7 @@
- c %-------------------------------------------%
- c
- if (mode .eq. 2) go to 65
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- step4 = .true.
-@@ -524,7 +524,7 @@
- c %-----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -592,12 +592,12 @@
- else
- h(j,1) = rnorm
- end if
-- call second (t4)
-+ call arscnd (t4)
- c
- orth1 = .true.
- iter = 0
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(irj), 1)
-@@ -621,7 +621,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -695,7 +695,7 @@
- h(j,2) = h(j,2) + workd(irj + j - 1)
- c
- orth2 = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(irj), 1)
-@@ -719,7 +719,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -791,7 +791,7 @@
- rstart = .false.
- orth2 = .false.
- c
-- call second (t5)
-+ call arscnd (t5)
- titref = titref + (t5 - t4)
- c
- c %----------------------------------------------------------%
-@@ -815,7 +815,7 @@
- c
- j = j + 1
- if (j .gt. k+np) then
-- call second (t1)
-+ call arscnd (t1)
- tsaitr = tsaitr + (t1 - t0)
- ido = 99
- c
-diff -Nur ARPACK.orig/SRC/ssapps.f ARPACK/SRC/ssapps.f
---- ARPACK.orig/SRC/ssapps.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/ssapps.f 2007-12-04 12:40:25.000000000 +0000
-@@ -91,7 +91,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine that prints vectors.
- c slamch LAPACK routine that determines machine constants.
- c slartg LAPACK Givens rotation construction routine.
-@@ -176,7 +176,7 @@
- c %----------------------%
- c
- external saxpy, scopy, sscal, slacpy, slartg, slaset, svout,
-- & ivout, second, sgemv
-+ & ivout, arscnd, sgemv
- c
- c %--------------------%
- c | External Functions |
-@@ -213,7 +213,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msapps
- c
- kplusp = kev + np
-@@ -503,7 +503,7 @@
- end if
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tsapps = tsapps + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/ssaup2.f ARPACK/SRC/ssaup2.f
---- ARPACK.orig/SRC/ssaup2.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/ssaup2.f 2007-12-04 12:40:25.000000000 +0000
-@@ -148,7 +148,7 @@
- c ssgets ARPACK reorder Ritz values and error bounds routine.
- c ssortr ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine that prints vectors.
- c slamch LAPACK routine that determines machine constants.
- c scopy Level 1 BLAS that copies one vector to another.
-@@ -235,7 +235,7 @@
- c %----------------------%
- c
- external scopy, sgetv0, ssaitr, sscal, ssconv, sseigt, ssgets,
-- & ssapps, ssortr, svout, ivout, second, sswap
-+ & ssapps, ssortr, svout, ivout, arscnd, sswap
- c
- c %--------------------%
- c | External Functions |
-@@ -262,7 +262,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msaup2
- c
- c %---------------------------------%
-@@ -770,7 +770,7 @@
- c %---------------------------------------------%
- c
- cnorm = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call scopy (n, resid, 1, workd(n+1), 1)
-@@ -795,7 +795,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -837,7 +837,7 @@
- c | Error exit |
- c %------------%
- c
-- call second (t1)
-+ call arscnd (t1)
- tsaup2 = t1 - t0
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/ssaupd.f ARPACK/SRC/ssaupd.f
---- ARPACK.orig/SRC/ssaupd.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/ssaupd.f 2007-12-04 12:40:25.000000000 +0000
-@@ -380,7 +380,7 @@
- c sstats ARPACK routine that initialize timing and other statistics
- c variables.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine that prints vectors.
- c slamch LAPACK routine that determines machine constants.
- c
-@@ -456,7 +456,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external ssaup2, svout, ivout, second, sstats
-+ external ssaup2, svout, ivout, arscnd, sstats
- c
- c %--------------------%
- c | External Functions |
-@@ -478,7 +478,7 @@
- c %-------------------------------%
- c
- call sstats
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msaupd
- c
- ierr = 0
-@@ -638,7 +638,7 @@
- & '_saupd: corresponding error bounds')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tsaupd = t1 - t0
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/ssconv.f ARPACK/SRC/ssconv.f
---- ARPACK.orig/SRC/ssconv.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/ssconv.f 2007-12-04 12:40:25.000000000 +0000
-@@ -34,7 +34,7 @@
- c\BeginLib
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c slamch LAPACK routine that determines machine constants.
- c
- c\Author
-@@ -106,7 +106,7 @@
- c | Executable Statements |
- c %-----------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- eps23 = slamch('Epsilon-Machine')
- eps23 = eps23**(2.0E+0 / 3.0E+0)
-@@ -126,7 +126,7 @@
- c
- 10 continue
- c
-- call second (t1)
-+ call arscnd (t1)
- tsconv = tsconv + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/sseigt.f ARPACK/SRC/sseigt.f
---- ARPACK.orig/SRC/sseigt.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/sseigt.f 2007-12-04 12:40:25.000000000 +0000
-@@ -59,7 +59,7 @@
- c sstqrb ARPACK routine that computes the eigenvalues and the
- c last components of the eigenvectors of a symmetric
- c and tridiagonal matrix.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine that prints vectors.
- c scopy Level 1 BLAS that copies one vector to another.
- c
-@@ -127,7 +127,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external scopy, sstqrb, svout, second
-+ external scopy, sstqrb, svout, arscnd
- c
- c %-----------------------%
- c | Executable Statements |
-@@ -138,7 +138,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mseigt
- c
- if (msglvl .gt. 0) then
-@@ -168,7 +168,7 @@
- bounds(k) = rnorm*abs(bounds(k))
- 30 continue
- c
-- call second (t1)
-+ call arscnd (t1)
- tseigt = tseigt + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/ssgets.f ARPACK/SRC/ssgets.f
---- ARPACK.orig/SRC/ssgets.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/ssgets.f 2007-12-04 12:40:25.000000000 +0000
-@@ -65,7 +65,7 @@
- c\Routines called:
- c ssortr ARPACK utility sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c svout ARPACK utility routine that prints vectors.
- c scopy Level 1 BLAS that copies one vector to another.
- c sswap Level 1 BLAS that swaps the contents of two vectors.
-@@ -131,7 +131,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external sswap, scopy, ssortr, second
-+ external sswap, scopy, ssortr, arscnd
- c
- c %---------------------%
- c | Intrinsic Functions |
-@@ -148,7 +148,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = msgets
- c
- if (which .eq. 'BE') then
-@@ -198,7 +198,7 @@
- call scopy (np, ritz, 1, shifts, 1)
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/zgetv0.f ARPACK/SRC/zgetv0.f
---- ARPACK.orig/SRC/zgetv0.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/zgetv0.f 2007-12-04 12:40:25.000000000 +0000
-@@ -89,7 +89,7 @@
- c pp 357-385.
- c
- c\Routines called:
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c zvout ARPACK utility routine that prints vectors.
- c zlarnv LAPACK routine for generating a random vector.
- c zgemv Level 2 BLAS routine for matrix vector multiplication.
-@@ -168,7 +168,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external zcopy, zgemv, zlarnv, zvout, second
-+ external zcopy, zgemv, zlarnv, zvout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -211,7 +211,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mgetv0
- c
- ierr = 0
-@@ -238,7 +238,7 @@
- c | the generalized problem when B is possibly (singular). |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nopx = nopx + 1
- ipntr(1) = 1
-@@ -261,7 +261,7 @@
- c
- if (orth) go to 40
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
- c
- c %------------------------------------------------------%
-@@ -269,7 +269,7 @@
- c | Compute B-norm of starting vector. |
- c %------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- first = .TRUE.
- if (bmat .eq. 'G') then
- nbx = nbx + 1
-@@ -285,7 +285,7 @@
- 20 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -328,7 +328,7 @@
- c | Compute the B-norm of the orthogonalized starting vector |
- c %----------------------------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call zcopy (n, resid, 1, workd(n+1), 1)
-@@ -343,7 +343,7 @@
- 40 continue
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -401,7 +401,7 @@
- end if
- ido = 99
- c
-- call second (t1)
-+ call arscnd (t1)
- tgetv0 = tgetv0 + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/znaitr.f ARPACK/SRC/znaitr.f
---- ARPACK.orig/SRC/znaitr.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/znaitr.f 2007-12-04 12:40:25.000000000 +0000
-@@ -131,7 +131,7 @@
- c\Routines called:
- c zgetv0 ARPACK routine to generate the initial vector.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c zmout ARPACK utility routine that prints matrices
- c zvout ARPACK utility routine that prints vectors.
- c zlanhs LAPACK routine that computes various norms of a matrix.
-@@ -273,7 +273,7 @@
- c %----------------------%
- c
- external zaxpy, zcopy, zscal, zdscal, zgemv, zgetv0,
-- & dlabad, zvout, zmout, ivout, second
-+ & dlabad, zvout, zmout, ivout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -326,7 +326,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcaitr
- c
- c %------------------------------%
-@@ -437,7 +437,7 @@
- c %------------------------------------------------%
- c
- info = j - 1
-- call second (t1)
-+ call arscnd (t1)
- tcaitr = tcaitr + (t1 - t0)
- ido = 99
- go to 9000
-@@ -477,7 +477,7 @@
- c
- step3 = .true.
- nopx = nopx + 1
-- call second (t2)
-+ call arscnd (t2)
- call zcopy (n, v(1,j), 1, workd(ivj), 1)
- ipntr(1) = ivj
- ipntr(2) = irj
-@@ -497,7 +497,7 @@
- c | if step3 = .true. |
- c %----------------------------------%
- c
-- call second (t3)
-+ call arscnd (t3)
- tmvopx = tmvopx + (t3 - t2)
-
- step3 = .false.
-@@ -513,7 +513,7 @@
- c | factorization to length j. |
- c %---------------------------------------%
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- step4 = .true.
-@@ -538,7 +538,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -583,11 +583,11 @@
- c
- if (j .gt. 1) h(j,j-1) = dcmplx(betaj, rzero)
- c
-- call second (t4)
-+ call arscnd (t4)
- c
- orth1 = .true.
- c
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call zcopy (n, resid, 1, workd(irj), 1)
-@@ -611,7 +611,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -689,7 +689,7 @@
- call zaxpy (j, one, workd(irj), 1, h(1,j), 1)
- c
- orth2 = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call zcopy (n, resid, 1, workd(irj), 1)
-@@ -713,7 +713,7 @@
- c %---------------------------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -791,7 +791,7 @@
- rstart = .false.
- orth2 = .false.
- c
-- call second (t5)
-+ call arscnd (t5)
- titref = titref + (t5 - t4)
- c
- c %------------------------------------%
-@@ -800,7 +800,7 @@
- c
- j = j + 1
- if (j .gt. k+np) then
-- call second (t1)
-+ call arscnd (t1)
- tcaitr = tcaitr + (t1 - t0)
- ido = 99
- do 110 i = max(1,k), k+np-1
-diff -Nur ARPACK.orig/SRC/znapps.f ARPACK/SRC/znapps.f
---- ARPACK.orig/SRC/znapps.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/znapps.f 2007-12-04 12:40:25.000000000 +0000
-@@ -92,7 +92,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c zmout ARPACK utility routine that prints matrices
- c zvout ARPACK utility routine that prints vectors.
- c zlacpy LAPACK matrix copy routine.
-@@ -184,7 +184,7 @@
- c %----------------------%
- c
- external zaxpy, zcopy, zgemv, zscal, zlacpy, zlartg,
-- & zvout, zlaset, dlabad, zmout, second, ivout
-+ & zvout, zlaset, dlabad, zmout, arscnd, ivout
- c
- c %--------------------%
- c | External Functions |
-@@ -240,7 +240,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcapps
- c
- kplusp = kev + np
-@@ -495,7 +495,7 @@
- end if
- c
- 9000 continue
-- call second (t1)
-+ call arscnd (t1)
- tcapps = tcapps + (t1 - t0)
- c
- return
-diff -Nur ARPACK.orig/SRC/znaup2.f ARPACK/SRC/znaup2.f
---- ARPACK.orig/SRC/znaup2.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/znaup2.f 2007-12-04 12:40:25.000000000 +0000
-@@ -135,7 +135,7 @@
- c zngets ARPACK reorder Ritz values and error bounds routine.
- c zsortc ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c zmout ARPACK utility routine that prints matrices
- c zvout ARPACK utility routine that prints vectors.
- c dvout ARPACK utility routine that prints vectors.
-@@ -240,7 +240,7 @@
- c %----------------------%
- c
- external zcopy , zgetv0 , znaitr , zneigh , zngets , znapps ,
-- & zsortc , zswap , zmout , zvout , ivout, second
-+ & zsortc , zswap , zmout , zvout , ivout, arscnd
- c
- c %--------------------%
- c | External functions |
-@@ -264,7 +264,7 @@
- c
- if (ido .eq. 0) then
- c
-- call second (t0)
-+ call arscnd (t0)
- c
- msglvl = mcaup2
- c
-@@ -724,7 +724,7 @@
- c %---------------------------------------------%
- c
- cnorm = .true.
-- call second (t2)
-+ call arscnd (t2)
- if (bmat .eq. 'G') then
- nbx = nbx + 1
- call zcopy (n, resid, 1, workd(n+1), 1)
-@@ -749,7 +749,7 @@
- c %----------------------------------%
- c
- if (bmat .eq. 'G') then
-- call second (t3)
-+ call arscnd (t3)
- tmvbx = tmvbx + (t3 - t2)
- end if
- c
-@@ -788,7 +788,7 @@
- c | Error Exit |
- c %------------%
- c
-- call second (t1)
-+ call arscnd (t1)
- tcaup2 = t1 - t0
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/znaupd.f ARPACK/SRC/znaupd.f
---- ARPACK.orig/SRC/znaupd.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/znaupd.f 2007-12-04 12:40:25.000000000 +0000
-@@ -356,7 +356,7 @@
- c zstatn ARPACK routine that initializes the timing variables.
- c ivout ARPACK utility routine that prints integers.
- c zvout ARPACK utility routine that prints vectors.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c dlamch LAPACK routine that determines machine constants.
- c
- c\Author
-@@ -429,7 +429,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external znaup2, zvout, ivout, second, zstatn
-+ external znaup2, zvout, ivout, arscnd, zstatn
- c
- c %--------------------%
- c | External Functions |
-@@ -451,7 +451,7 @@
- c %-------------------------------%
- c
- call zstatn
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcaupd
- c
- c %----------------%
-@@ -611,7 +611,7 @@
- & '_naupd: Associated Ritz estimates')
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tcaupd = t1 - t0
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/SRC/zneigh.f ARPACK/SRC/zneigh.f
---- ARPACK.orig/SRC/zneigh.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/zneigh.f 2007-12-04 12:40:25.000000000 +0000
-@@ -64,7 +64,7 @@
- c
- c\Routines called:
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c zmout ARPACK utility routine that prints matrices
- c zvout ARPACK utility routine that prints vectors.
- c dvout ARPACK utility routine that prints vectors.
-@@ -152,7 +152,7 @@
- c %----------------------%
- c
- external zlacpy, zlahqr, ztrevc, zcopy,
-- & zdscal, zmout, zvout, second
-+ & zdscal, zmout, zvout, arscnd
- c
- c %--------------------%
- c | External Functions |
-@@ -171,7 +171,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mceigh
- c
- if (msglvl .gt. 2) then
-@@ -244,7 +244,7 @@
- & '_neigh: Ritz estimates for the eigenvalues of H')
- end if
- c
-- call second(t1)
-+ call arscnd(t1)
- tceigh = tceigh + (t1 - t0)
- c
- 9000 continue
-diff -Nur ARPACK.orig/SRC/zngets.f ARPACK/SRC/zngets.f
---- ARPACK.orig/SRC/zngets.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/SRC/zngets.f 2007-12-04 12:40:25.000000000 +0000
-@@ -63,7 +63,7 @@
- c\Routines called:
- c zsortc ARPACK sorting routine.
- c ivout ARPACK utility routine that prints integers.
--c second ARPACK utility routine for timing.
-+c arscnd ARPACK utility routine for timing.
- c zvout ARPACK utility routine that prints vectors.
- c
- c\Author
-@@ -126,7 +126,7 @@
- c | External Subroutines |
- c %----------------------%
- c
-- external zvout, zsortc, second
-+ external zvout, zsortc, arscnd
- c
- c %-----------------------%
- c | Executable Statements |
-@@ -137,7 +137,7 @@
- c | & message level for debugging |
- c %-------------------------------%
- c
-- call second (t0)
-+ call arscnd (t0)
- msglvl = mcgets
- c
- call zsortc (which, .true., kev+np, ritz, bounds)
-@@ -157,7 +157,7 @@
- c
- end if
- c
-- call second (t1)
-+ call arscnd (t1)
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-diff -Nur ARPACK.orig/UTIL/second.f ARPACK/UTIL/second.f
---- ARPACK.orig/UTIL/second.f 2007-12-04 12:40:20.000000000 +0000
-+++ ARPACK/UTIL/second.f 2007-12-04 12:42:15.000000000 +0000
-@@ -1,4 +1,4 @@
-- SUBROUTINE SECOND( T )
-+ SUBROUTINE ARSCND( T )
- *
- REAL T
- *
-@@ -10,7 +10,7 @@
- * Purpose
- * =======
- *
--* SECOND returns the user time for a process in seconds.
-+* ARSCND returns the user time for a process in seconds.
- * This version gets the time from the system function ETIME.
- *
- * .. Local Scalars ..
-@@ -21,7 +21,6 @@
- * ..
- * .. External Functions ..
- REAL ETIME
-- EXTERNAL ETIME
- * ..
- * .. Executable Statements ..
- *
-@@ -31,6 +30,6 @@
-
- RETURN
- *
--* End of SECOND
-+* End of ARSCND
- *
- END
diff --git a/sci-libs/arpack/files/arpack-autotools.patch b/sci-libs/arpack/files/arpack-autotools.patch
deleted file mode 100644
index 6c7e2cf31902..000000000000
--- a/sci-libs/arpack/files/arpack-autotools.patch
+++ /dev/null
@@ -1,557 +0,0 @@
---- configure.ac 1970-01-01 01:00:00.000000000 +0100
-+++ configure.ac 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,45 @@
-+AC_PREREQ(2.59)
-+AC_INIT([arpack], [96], [arpack@caam.rice.edu])
-+AM_INIT_AUTOMAKE([foreign])
-+
-+dnl Checks for standard programs.
-+AC_PROG_F77
-+AC_PROG_LIBTOOL
-+
-+dnl Check for BLAS libraries
-+sinclude(acx_blas.m4)
-+ACX_BLAS
-+if test x"$BLAS_LIBS" = x; then
-+ AC_MSG_ERROR([Cannot find blas libraries])
-+fi
-+
-+dnl See if compiling parpack
-+AC_MSG_CHECKING([for MPI mode])
-+AC_ARG_ENABLE(mpi,
-+ AC_HELP_STRING([--enable-mpi],
-+ [build parallel version of arpack with mpi]),
-+ [enable_mpi=$enableval],
-+ [enable_mpi=no])
-+sinclude(acx_mpi.m4)
-+if test x"$enable_mpi" != x"no"; then
-+ AC_LANG_PUSH([Fortran 77])
-+ ACX_MPI([], AC_MSG_ERROR([could not compile an mpi test program]))
-+ AC_LANG_POP([Fortran 77])
-+fi
-+
-+if test x"$enable_mpi" = x"yes"; then
-+ MPIDIR=PARPACK
-+fi
-+AC_SUBST(MPIDIR)
-+
-+AC_CONFIG_FILES([
-+ Makefile
-+ SRC/Makefile
-+ UTIL/Makefile
-+ LAPACK/Makefile
-+ PARPACK/Makefile
-+ PARPACK/SRC/Makefile
-+ PARPACK/SRC/MPI/Makefile
-+ PARPACK/UTIL/Makefile
-+ PARPACK/UTIL/MPI/Makefile])
-+AC_OUTPUT
---- acx_blas.m4 1970-01-01 01:00:00.000000000 +0100
-+++ acx_blas.m4 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,191 @@
-+##### http://autoconf-archive.cryp.to/acx_blas.html
-+#
-+# SYNOPSIS
-+#
-+# ACX_BLAS([ACTION-IF-FOUND[, ACTION-IF-NOT-FOUND]])
-+#
-+# DESCRIPTION
-+#
-+# This macro looks for a library that implements the BLAS
-+# linear-algebra interface (see http://www.netlib.org/blas/). On
-+# success, it sets the BLAS_LIBS output variable to hold the
-+# requisite library linkages.
-+#
-+# To link with BLAS, you should link with:
-+#
-+# $BLAS_LIBS $LIBS $FLIBS
-+#
-+# in that order. FLIBS is the output variable of the
-+# AC_F77_LIBRARY_LDFLAGS macro (called if necessary by ACX_BLAS), and
-+# is sometimes necessary in order to link with F77 libraries. Users
-+# will also need to use AC_F77_DUMMY_MAIN (see the autoconf manual),
-+# for the same reason.
-+#
-+# Many libraries are searched for, from ATLAS to CXML to ESSL. The
-+# user may also use --with-blas=<lib> in order to use some specific
-+# BLAS library <lib>. In order to link successfully, however, be
-+# aware that you will probably need to use the same Fortran compiler
-+# (which can be set via the F77 env. var.) as was used to compile the
-+# BLAS library.
-+#
-+# ACTION-IF-FOUND is a list of shell commands to run if a BLAS
-+# library is found, and ACTION-IF-NOT-FOUND is a list of commands to
-+# run it if it is not found. If ACTION-IF-FOUND is not specified, the
-+# default action will define HAVE_BLAS.
-+#
-+# This macro requires autoconf 2.50 or later.
-+#
-+# LAST MODIFICATION
-+#
-+# 2007-07-29
-+#
-+# COPYLEFT
-+#
-+# Copyright (c) 2007 Steven G. Johnson <stevenj@alum.mit.edu>
-+#
-+# This program is free software: you can redistribute it and/or
-+# modify it under the terms of the GNU General Public License as
-+# published by the Free Software Foundation, either version 3 of the
-+# License, or (at your option) any later version.
-+#
-+# This program is distributed in the hope that it will be useful, but
-+# WITHOUT ANY WARRANTY; without even the implied warranty of
-+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-+# General Public License for more details.
-+#
-+# You should have received a copy of the GNU General Public License
-+# along with this program. If not, see
-+# <http://www.gnu.org/licenses/>.
-+#
-+# As a special exception, the respective Autoconf Macro's copyright
-+# owner gives unlimited permission to copy, distribute and modify the
-+# configure scripts that are the output of Autoconf when processing
-+# the Macro. You need not follow the terms of the GNU General Public
-+# License when using or distributing such scripts, even though
-+# portions of the text of the Macro appear in them. The GNU General
-+# Public License (GPL) does govern all other use of the material that
-+# constitutes the Autoconf Macro.
-+#
-+# This special exception to the GPL applies to versions of the
-+# Autoconf Macro released by the Autoconf Macro Archive. When you
-+# make and distribute a modified version of the Autoconf Macro, you
-+# may extend this special exception to the GPL to apply to your
-+# modified version as well.
-+
-+AC_DEFUN([ACX_BLAS], [
-+AC_PREREQ(2.50)
-+AC_REQUIRE([AC_F77_LIBRARY_LDFLAGS])
-+acx_blas_ok=no
-+
-+AC_ARG_WITH(blas,
-+ [AC_HELP_STRING([--with-blas=<lib>], [use BLAS library <lib>])])
-+case $with_blas in
-+ yes | "") ;;
-+ no) acx_blas_ok=disable ;;
-+ -* | */* | *.a | *.so | *.so.* | *.o) BLAS_LIBS="$with_blas" ;;
-+ *) BLAS_LIBS="-l$with_blas" ;;
-+esac
-+
-+# Get fortran linker names of BLAS functions to check for.
-+AC_F77_FUNC(sgemm)
-+AC_F77_FUNC(dgemm)
-+
-+acx_blas_save_LIBS="$LIBS"
-+LIBS="$LIBS $FLIBS"
-+
-+# First, check BLAS_LIBS environment variable
-+if test $acx_blas_ok = no; then
-+if test "x$BLAS_LIBS" != x; then
-+ save_LIBS="$LIBS"; LIBS="$BLAS_LIBS $LIBS"
-+ AC_MSG_CHECKING([for $sgemm in $BLAS_LIBS])
-+ AC_TRY_LINK_FUNC($sgemm, [acx_blas_ok=yes], [BLAS_LIBS=""])
-+ AC_MSG_RESULT($acx_blas_ok)
-+ LIBS="$save_LIBS"
-+fi
-+fi
-+
-+# BLAS linked to by default? (happens on some supercomputers)
-+if test $acx_blas_ok = no; then
-+ save_LIBS="$LIBS"; LIBS="$LIBS"
-+ AC_CHECK_FUNC($sgemm, [acx_blas_ok=yes])
-+ LIBS="$save_LIBS"
-+fi
-+
-+# BLAS in ATLAS library? (http://math-atlas.sourceforge.net/)
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(atlas, ATL_xerbla,
-+ [AC_CHECK_LIB(f77blas, $sgemm,
-+ [AC_CHECK_LIB(cblas, cblas_dgemm,
-+ [acx_blas_ok=yes
-+ BLAS_LIBS="-lcblas -lf77blas -latlas"],
-+ [], [-lf77blas -latlas])],
-+ [], [-latlas])])
-+fi
-+
-+# BLAS in PhiPACK libraries? (requires generic BLAS lib, too)
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(blas, $sgemm,
-+ [AC_CHECK_LIB(dgemm, $dgemm,
-+ [AC_CHECK_LIB(sgemm, $sgemm,
-+ [acx_blas_ok=yes; BLAS_LIBS="-lsgemm -ldgemm -lblas"],
-+ [], [-lblas])],
-+ [], [-lblas])])
-+fi
-+
-+# BLAS in Alpha CXML library?
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(cxml, $sgemm, [acx_blas_ok=yes;BLAS_LIBS="-lcxml"])
-+fi
-+
-+# BLAS in Alpha DXML library? (now called CXML, see above)
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(dxml, $sgemm, [acx_blas_ok=yes;BLAS_LIBS="-ldxml"])
-+fi
-+
-+# BLAS in Sun Performance library?
-+if test $acx_blas_ok = no; then
-+ if test "x$GCC" != xyes; then # only works with Sun CC
-+ AC_CHECK_LIB(sunmath, acosp,
-+ [AC_CHECK_LIB(sunperf, $sgemm,
-+ [BLAS_LIBS="-xlic_lib=sunperf -lsunmath"
-+ acx_blas_ok=yes],[],[-lsunmath])])
-+ fi
-+fi
-+
-+# BLAS in SCSL library? (SGI/Cray Scientific Library)
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(scs, $sgemm, [acx_blas_ok=yes; BLAS_LIBS="-lscs"])
-+fi
-+
-+# BLAS in SGIMATH library?
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(complib.sgimath, $sgemm,
-+ [acx_blas_ok=yes; BLAS_LIBS="-lcomplib.sgimath"])
-+fi
-+
-+# BLAS in IBM ESSL library? (requires generic BLAS lib, too)
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(blas, $sgemm,
-+ [AC_CHECK_LIB(essl, $sgemm,
-+ [acx_blas_ok=yes; BLAS_LIBS="-lessl -lblas"],
-+ [], [-lblas $FLIBS])])
-+fi
-+
-+# Generic BLAS library?
-+if test $acx_blas_ok = no; then
-+ AC_CHECK_LIB(blas, $sgemm, [acx_blas_ok=yes; BLAS_LIBS="-lblas"])
-+fi
-+
-+AC_SUBST(BLAS_LIBS)
-+
-+LIBS="$acx_blas_save_LIBS"
-+
-+# Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND:
-+if test x"$acx_blas_ok" = xyes; then
-+ ifelse([$1],,AC_DEFINE(HAVE_BLAS,1,[Define if you have a BLAS library.]),[$1])
-+ :
-+else
-+ acx_blas_ok=no
-+ $2
-+fi
-+])dnl ACX_BLAS
---- acx_mpi.m4 1970-01-01 01:00:00.000000000 +0100
-+++ acx_mpi.m4 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,183 @@
-+##### http://autoconf-archive.cryp.to/acx_mpi.html
-+#
-+# SYNOPSIS
-+#
-+# ACX_MPI([ACTION-IF-FOUND[, ACTION-IF-NOT-FOUND]])
-+#
-+# DESCRIPTION
-+#
-+# This macro tries to find out how to compile programs that use MPI
-+# (Message Passing Interface), a standard API for parallel process
-+# communication (see http://www-unix.mcs.anl.gov/mpi/)
-+#
-+# On success, it sets the MPICC, MPICXX, MPIF77, or MPIFC output
-+# variable to the name of the MPI compiler, depending upon the
-+# current language. (This may just be $CC/$CXX/$F77/$FC, but is more
-+# often something like mpicc/mpiCC/mpif77/mpif90.) It also sets
-+# MPILIBS to any libraries that are needed for linking MPI (e.g.
-+# -lmpi or -lfmpi, if a special MPICC/MPICXX/MPIF77/MPIFC was not
-+# found).
-+#
-+# If you want to compile everything with MPI, you should set:
-+#
-+# CC="MPICC" #OR# CXX="MPICXX" #OR# F77="MPIF77" #OR# FC="MPIFC"
-+# LIBS="$MPILIBS $LIBS"
-+#
-+# NOTE: The above assumes that you will use $CC (or whatever) for
-+# linking as well as for compiling. (This is the default for automake
-+# and most Makefiles.)
-+#
-+# The user can force a particular library/compiler by setting the
-+# MPICC/MPICXX/MPIF77/MPIFC and/or MPILIBS environment variables.
-+#
-+# ACTION-IF-FOUND is a list of shell commands to run if an MPI
-+# library is found, and ACTION-IF-NOT-FOUND is a list of commands to
-+# run if it is not found. If ACTION-IF-FOUND is not specified, the
-+# default action will define HAVE_MPI.
-+#
-+# LAST MODIFICATION
-+#
-+# 2007-07-29
-+#
-+# COPYLEFT
-+#
-+# Copyright (c) 2007 Steven G. Johnson <stevenj@alum.mit.edu>
-+# Copyright (c) 2007 Julian C. Cummings <cummings@cacr.caltech.edu>
-+#
-+# This program is free software: you can redistribute it and/or
-+# modify it under the terms of the GNU General Public License as
-+# published by the Free Software Foundation, either version 3 of the
-+# License, or (at your option) any later version.
-+#
-+# This program is distributed in the hope that it will be useful, but
-+# WITHOUT ANY WARRANTY; without even the implied warranty of
-+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-+# General Public License for more details.
-+#
-+# You should have received a copy of the GNU General Public License
-+# along with this program. If not, see
-+# <http://www.gnu.org/licenses/>.
-+#
-+# As a special exception, the respective Autoconf Macro's copyright
-+# owner gives unlimited permission to copy, distribute and modify the
-+# configure scripts that are the output of Autoconf when processing
-+# the Macro. You need not follow the terms of the GNU General Public
-+# License when using or distributing such scripts, even though
-+# portions of the text of the Macro appear in them. The GNU General
-+# Public License (GPL) does govern all other use of the material that
-+# constitutes the Autoconf Macro.
-+#
-+# This special exception to the GPL applies to versions of the
-+# Autoconf Macro released by the Autoconf Macro Archive. When you
-+# make and distribute a modified version of the Autoconf Macro, you
-+# may extend this special exception to the GPL to apply to your
-+# modified version as well.
-+
-+AC_DEFUN([ACX_MPI], [
-+AC_PREREQ(2.50) dnl for AC_LANG_CASE
-+
-+AC_LANG_CASE([C], [
-+ AC_REQUIRE([AC_PROG_CC])
-+ AC_ARG_VAR(MPICC,[MPI C compiler command])
-+ AC_CHECK_PROGS(MPICC, mpicc hcc mpxlc_r mpxlc mpcc cmpicc, $CC)
-+ acx_mpi_save_CC="$CC"
-+ CC="$MPICC"
-+ AC_SUBST(MPICC)
-+],
-+[C++], [
-+ AC_REQUIRE([AC_PROG_CXX])
-+ AC_ARG_VAR(MPICXX,[MPI C++ compiler command])
-+ AC_CHECK_PROGS(MPICXX, mpic++ mpicxx mpiCC hcp mpxlC_r mpxlC mpCC cmpic++, $CXX)
-+ acx_mpi_save_CXX="$CXX"
-+ CXX="$MPICXX"
-+ AC_SUBST(MPICXX)
-+],
-+[Fortran 77], [
-+ AC_REQUIRE([AC_PROG_F77])
-+ AC_ARG_VAR(MPIF77,[MPI Fortran 77 compiler command])
-+ AC_CHECK_PROGS(MPIF77, mpif77 hf77 mpxlf_r mpxlf mpf77 cmpifc, $F77)
-+ acx_mpi_save_F77="$F77"
-+ F77="$MPIF77"
-+ AC_SUBST(MPIF77)
-+],
-+[Fortran], [
-+ AC_REQUIRE([AC_PROG_FC])
-+ AC_ARG_VAR(MPIFC,[MPI Fortran compiler command])
-+ AC_CHECK_PROGS(MPIFC, mpif90 mpxlf95_r mpxlf90_r mpxlf95 mpxlf90 mpf90 cmpif90c, $FC)
-+ acx_mpi_save_FC="$FC"
-+ FC="$MPIFC"
-+ AC_SUBST(MPIFC)
-+])
-+
-+if test x = x"$MPILIBS"; then
-+ AC_LANG_CASE([C], [AC_CHECK_FUNC(MPI_Init, [MPILIBS=" "])],
-+ [C++], [AC_CHECK_FUNC(MPI_Init, [MPILIBS=" "])],
-+ [Fortran 77], [AC_MSG_CHECKING([for MPI_Init])
-+ AC_LINK_IFELSE([AC_LANG_PROGRAM([],[ call MPI_Init])],[MPILIBS=" "
-+ AC_MSG_RESULT(yes)], [AC_MSG_RESULT(no)])],
-+ [Fortran], [AC_MSG_CHECKING([for MPI_Init])
-+ AC_LINK_IFELSE([AC_LANG_PROGRAM([],[ call MPI_Init])],[MPILIBS=" "
-+ AC_MSG_RESULT(yes)], [AC_MSG_RESULT(no)])])
-+fi
-+AC_LANG_CASE([Fortran 77], [
-+ if test x = x"$MPILIBS"; then
-+ AC_CHECK_LIB(fmpi, MPI_Init, [MPILIBS="-lfmpi"])
-+ fi
-+ if test x = x"$MPILIBS"; then
-+ AC_CHECK_LIB(fmpich, MPI_Init, [MPILIBS="-lfmpich"])
-+ fi
-+],
-+[Fortran], [
-+ if test x = x"$MPILIBS"; then
-+ AC_CHECK_LIB(fmpi, MPI_Init, [MPILIBS="-lfmpi"])
-+ fi
-+ if test x = x"$MPILIBS"; then
-+ AC_CHECK_LIB(mpichf90, MPI_Init, [MPILIBS="-lmpichf90"])
-+ fi
-+])
-+if test x = x"$MPILIBS"; then
-+ AC_CHECK_LIB(mpi, MPI_Init, [MPILIBS="-lmpi"])
-+fi
-+if test x = x"$MPILIBS"; then
-+ AC_CHECK_LIB(mpich, MPI_Init, [MPILIBS="-lmpich"])
-+fi
-+
-+dnl We have to use AC_TRY_COMPILE and not AC_CHECK_HEADER because the
-+dnl latter uses $CPP, not $CC (which may be mpicc).
-+AC_LANG_CASE([C], [if test x != x"$MPILIBS"; then
-+ AC_MSG_CHECKING([for mpi.h])
-+ AC_TRY_COMPILE([#include <mpi.h>],[],[AC_MSG_RESULT(yes)], [MPILIBS=""
-+ AC_MSG_RESULT(no)])
-+fi],
-+[C++], [if test x != x"$MPILIBS"; then
-+ AC_MSG_CHECKING([for mpi.h])
-+ AC_TRY_COMPILE([#include <mpi.h>],[],[AC_MSG_RESULT(yes)], [MPILIBS=""
-+ AC_MSG_RESULT(no)])
-+fi],
-+[Fortran 77], [if test x != x"$MPILIBS"; then
-+ AC_MSG_CHECKING([for mpif.h])
-+ AC_COMPILE_IFELSE([AC_LANG_PROGRAM([],[ include 'mpif.h'])],[AC_MSG_RESULT(yes)], [MPILIBS=""
-+ AC_MSG_RESULT(no)])
-+fi],
-+[Fortran], [if test x != x"$MPILIBS"; then
-+ AC_MSG_CHECKING([for mpif.h])
-+ AC_COMPILE_IFELSE([AC_LANG_PROGRAM([],[ include 'mpif.h'])],[AC_MSG_RESULT(yes)], [MPILIBS=""
-+ AC_MSG_RESULT(no)])
-+fi])
-+
-+AC_LANG_CASE([C], [CC="$acx_mpi_save_CC"],
-+ [C++], [CXX="$acx_mpi_save_CXX"],
-+ [Fortran 77], [F77="$acx_mpi_save_F77"],
-+ [Fortran], [FC="$acx_mpi_save_FC"])
-+
-+AC_SUBST(MPILIBS)
-+
-+# Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND:
-+if test x = x"$MPILIBS"; then
-+ $2
-+ :
-+else
-+ ifelse([$1],,[AC_DEFINE(HAVE_MPI,1,[Define if you have the MPI library.])],[$1])
-+ :
-+fi
-+])dnl ACX_MPI
---- ./LAPACK/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./LAPACK/Makefile.am 2007-12-04 15:09:01.000000000 +0000
-@@ -0,0 +1,37 @@
-+noinst_LTLIBRARIES = liblapack_arpack.la
-+
-+NOOPT_FFLAGS = -O0
-+
-+liblapack_arpack_la_SOURCES = \
-+ sgeqr2.f slabad.f slacon.f slacpy.f sladiv.f slae2.f slaev2.f \
-+ slaexc.f slagtm.f slahqr.f slaln2.f slange.f slanhs.f \
-+ slanst.f slanv2.f slaptm.f slapy2.f slapy3.f slaran.f slarf.f \
-+ slarfg.f slarfx.f slarnd.f slarnv.f slartg.f slascl.f \
-+ slaset.f slasr.f slasrt.f slassq.f slasy2.f sorm2r.f ssteqr.f \
-+ strevc.f strexc.f strsen.f strsyl.f slamch.f slaruv.f \
-+ dgeqr2.f dlabad.f dlacon.f dlacpy.f dladiv.f dlae2.f dlaev2.f \
-+ dlaexc.f dlagtm.f dlahqr.f dlaln2.f dlange.f dlanhs.f \
-+ dlanst.f dlanv2.f dlaptm.f dlapy2.f dlapy3.f dlaran.f dlarf.f \
-+ dlarfg.f dlarfx.f dlarnd.f dlarnv.f dlartg.f dlascl.f \
-+ dlaset.f dlasr.f dlasrt.f dlassq.f dlasy2.f dorm2r.f dsteqr.f \
-+ dtrevc.f dtrexc.f dtrsen.f dtrsyl.f dlamch.f dlaruv.f \
-+ ilaenv.f lsame.f lsamen.f xerbla.f xlaenv.f icmax1.f izmax1.f \
-+ cgeqr2.f clacon.f clacpy.f cladiv.f clahqr.f clange.f clanhs.f \
-+ clarf.f clarfg.f clarnv.f clartg.f clascl.f claset.f classq.f \
-+ clatrs.f cmach.f crot.f ctrevc.f ctrexc.f ctrsen.f ctrsyl.f \
-+ zgeqr2.f zlacon.f zlacpy.f zladiv.f zlahqr.f zlange.f zlanhs.f \
-+ zlarf.f zlarfg.f zlarnv.f zlartg.f zlascl.f zlaset.f zlassq.f \
-+ zlatrs.f zmach.f zrot.f ztrevc.f ztrexc.f ztrsen.f ztrsyl.f \
-+ zunm2r.f dzsum1.f cunm2r.f scsum1.f
-+
-+slamch.lo: slamch.f
-+ $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(NOOPT_FFLAGS) -c -o slamch.lo `test -f 'slamch.f' || echo '$(srcdir)/'`slamch.f
-+
-+slaruv.lo: slaruv.f
-+ $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(NOOPT_FFLAGS) -c -o slaruv.lo `test -f 'slaruv.f' || echo '$(srcdir)/'`slaruv.f
-+
-+dlamch.lo: dlamch.f
-+ $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(NOOPT_FFLAGS) -c -o dlamch.lo `test -f 'dlamch.f' || echo '$(srcdir)/'`dlamch.f
-+
-+dlaruv.lo: dlaruv.f
-+ $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(NOOPT_FFLAGS) -c -o dlaruv.lo `test -f 'dlaruv.f' || echo '$(srcdir)/'`dlaruv.f
---- ./UTIL/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./UTIL/Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,5 @@
-+noinst_LTLIBRARIES = libarpackutil.la
-+libarpackutil_la_SOURCES = \
-+ icnteq.f icopy.f iset.f iswap.f ivout.f second.f \
-+ svout.f smout.f dvout.f dmout.f cvout.f cmout.f \
-+ zvout.f zmout.f
---- ./SRC/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./SRC/Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,14 @@
-+noinst_LTLIBRARIES = libarpacksrc.la
-+libarpacksrc_la_SOURCES = \
-+ sgetv0.f slaqrb.f sstqrb.f ssortc.f ssortr.f sstatn.f sstats.f \
-+ snaitr.f snapps.f snaup2.f snaupd.f snconv.f sneigh.f sngets.f \
-+ ssaitr.f ssapps.f ssaup2.f ssaupd.f ssconv.f sseigt.f ssgets.f \
-+ sneupd.f sseupd.f ssesrt.f \
-+ dgetv0.f dlaqrb.f dstqrb.f dsortc.f dsortr.f dstatn.f dstats.f \
-+ dnaitr.f dnapps.f dnaup2.f dnaupd.f dnconv.f dneigh.f dngets.f \
-+ dsaitr.f dsapps.f dsaup2.f dsaupd.f dsconv.f dseigt.f dsgets.f \
-+ dneupd.f dseupd.f dsesrt.f \
-+ cnaitr.f cnapps.f cnaup2.f cnaupd.f cneigh.f cneupd.f cngets.f \
-+ cgetv0.f csortc.f cstatn.f \
-+ znaitr.f znapps.f znaup2.f znaupd.f zneigh.f zneupd.f zngets.f \
-+ zgetv0.f zsortc.f zstatn.f
---- ./PARPACK/SRC/MPI/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./PARPACK/SRC/MPI/Makefile.am 2007-12-04 15:37:36.000000000 +0000
-@@ -0,0 +1,24 @@
-+F77= $(MPIF77)
-+noinst_LTLIBRARIES = libparpacksrcmpi.la
-+
-+NOOPT_FFLAGS = -O0
-+
-+libparpacksrcmpi_la_SOURCES = \
-+ psgetv0.f \
-+ psnaitr.f psnapps.f psnaup2.f psnaupd.f psneigh.f psngets.f \
-+ pssaitr.f pssapps.f pssaup2.f pssaupd.f psseigt.f pssgets.f \
-+ psneupd.f psseupd.f pslarnv.f psnorm2.f pdgetv0.f \
-+ pdnaitr.f pdnapps.f pdnaup2.f pdnaupd.f pdneigh.f pdngets.f \
-+ pdsaitr.f pdsapps.f pdsaup2.f pdsaupd.f pdseigt.f pdsgets.f \
-+ pdneupd.f pdseupd.f pdlarnv.f pdnorm2.f \
-+ pcnaitr.f pcnapps.f pcnaup2.f pcnaupd.f pcneigh.f \
-+ pcneupd.f pcngets.f pcgetv0.f pscnorm2.f pclarnv.f \
-+ pznaitr.f pznapps.f pznaup2.f pznaupd.f pzneigh.f \
-+ pzneupd.f pzngets.f pzgetv0.f pdznorm2.f pzlarnv.f
-+
-+
-+pslamch.lo: pslamch.f
-+ $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(NOOPT_FFLAGS) -c -o pslamch.lo `test -f 'pslamch.f' || echo '$(srcdir)/'`pslamch.f
-+
-+pdlamch.lo: pdlamch.f
-+ $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(NOOPT_FFLAGS) -c -o pdlamch.lo `test -f 'pdlamch.f' || echo '$(srcdir)/'`pdlamch.f
---- ./PARPACK/SRC/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./PARPACK/SRC/Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1 @@
-+SUBDIRS = MPI
---- ./PARPACK/UTIL/MPI/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./PARPACK/UTIL/MPI/Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,6 @@
-+F77 = $(MPIF77)
-+noinst_LTLIBRARIES = libparpackutilmpi.la
-+libparpackutilmpi_la_SOURCES = \
-+ pivout.f psvout.f psmout.f pdvout.f \
-+ pdmout.f pcvout.f pcmout.f pzvout.f pzmout.f
-+
---- ./PARPACK/UTIL/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./PARPACK/UTIL/Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,2 @@
-+SUBDIRS = MPI
-+
---- ./PARPACK/Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./PARPACK/Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,6 @@
-+SUBDIRS = UTIL SRC
-+SUBLIBS = SRC/MPI/libparpacksrcmpi.la UTIL/MPI/libparpackutilmpi.la
-+lib_LTLIBRARIES = libparpack.la
-+libparpack_la_SOURCES =
-+libparpack_la_LDFLAGS = -version-info 0:0
-+libparpack_la_LIBADD = $(SUBLIBS) @MPILIBS@
---- ./Makefile.am 1970-01-01 01:00:00.000000000 +0100
-+++ ./Makefile.am 2007-12-04 12:43:37.000000000 +0000
-@@ -0,0 +1,7 @@
-+SUBDIRS = UTIL SRC LAPACK @MPIDIR@
-+SUBLIBS = SRC/libarpacksrc.la UTIL/libarpackutil.la LAPACK/liblapack_arpack.la
-+lib_LTLIBRARIES = libarpack.la
-+libarpack_la_SOURCES =
-+libarpack_la_LDFLAGS = -version-info 0:0
-+libarpack_la_LIBADD = $(SUBLIBS)
-+EXTRA_DIST = README
diff --git a/sci-libs/arpack/metadata.xml b/sci-libs/arpack/metadata.xml
index 29fdad56d8f3..b177f1085672 100644
--- a/sci-libs/arpack/metadata.xml
+++ b/sci-libs/arpack/metadata.xml
@@ -3,14 +3,13 @@
<pkgmetadata>
<herd>sci</herd>
<longdescription lang="en">
-The Arnoldi Package Library is capable of solving large scale symmetric,
-nonsymmetric, and generalized eigenproblems from significant
-application areas. The software is designed to compute a few
-eigenvalues with user specified features such as those of largest real
-part or largest magnitude. Storage requirements are on the order of
-n*k locations. No auxiliary storage is required. A set of Schur basis
-vectors for the desired k-dimensional eigen-space is computed which is
-numerically orthogonal to working precision. Numerically accurate
-eigenvectors are available on request.
+ The ARnoldi PACKage is a library of routines capable of solving large scale symmetric,
+ nonsymmetric, and generalized eigenproblems. The software is designed to compute a few
+ eigenvalues with user specified features such as those of largest real
+ part or largest magnitude. Storage requirements are on the order of
+ n*k locations. No auxiliary storage is required. A set of Schur basis
+ vectors for the desired k-dimensional eigen-space is computed which is
+ numerically orthogonal to working precision. Numerically accurate
+ eigenvectors are available on request.
</longdescription>
</pkgmetadata>