+++ /dev/null
-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
+++ /dev/null
---- 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
projects / gentoo.git / commitdiff