--- /dev/null
+diff -urN original/ARPACK/SRC/cgetv0.f ARPACK/SRC/cgetv0.f
+--- original/ARPACK/SRC/cgetv0.f 1999-04-08 00:46:44.000000000 +0200
++++ ARPACK/SRC/cgetv0.f 2005-06-30 23:20:38.850796569 +0200
+@@ -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 -urN original/ARPACK/SRC/cnaitr.f ARPACK/SRC/cnaitr.f
+--- original/ARPACK/SRC/cnaitr.f 1996-08-27 18:12:56.000000000 +0200
++++ ARPACK/SRC/cnaitr.f 2005-06-30 23:20:38.856795869 +0200
+@@ -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 -urN original/ARPACK/SRC/cnapps.f ARPACK/SRC/cnapps.f
+--- original/ARPACK/SRC/cnapps.f 1998-05-20 16:45:03.000000000 +0200
++++ ARPACK/SRC/cnapps.f 2005-06-30 23:20:38.859795518 +0200
+@@ -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 -urN original/ARPACK/SRC/cnaup2.f ARPACK/SRC/cnaup2.f
+--- original/ARPACK/SRC/cnaup2.f 2000-06-01 22:28:53.000000000 +0200
++++ ARPACK/SRC/cnaup2.f 2005-06-30 23:20:38.864794935 +0200
+@@ -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 -urN original/ARPACK/SRC/cnaupd.f ARPACK/SRC/cnaupd.f
+--- original/ARPACK/SRC/cnaupd.f 2002-08-15 07:50:57.000000000 +0200
++++ ARPACK/SRC/cnaupd.f 2005-06-30 23:20:38.869794351 +0200
+@@ -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 -urN original/ARPACK/SRC/cneigh.f ARPACK/SRC/cneigh.f
+--- original/ARPACK/SRC/cneigh.f 1996-04-20 19:15:53.000000000 +0200
++++ ARPACK/SRC/cneigh.f 2005-06-30 23:20:38.870794234 +0200
+@@ -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 -urN original/ARPACK/SRC/cngets.f ARPACK/SRC/cngets.f
+--- original/ARPACK/SRC/cngets.f 1996-04-20 19:15:56.000000000 +0200
++++ ARPACK/SRC/cngets.f 2005-06-30 23:20:38.877793417 +0200
+@@ -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 -urN original/ARPACK/SRC/dgetv0.f ARPACK/SRC/dgetv0.f
+--- original/ARPACK/SRC/dgetv0.f 1999-04-08 00:42:47.000000000 +0200
++++ ARPACK/SRC/dgetv0.f 2005-06-30 23:20:38.882792833 +0200
+@@ -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 -urN original/ARPACK/SRC/dnaitr.f ARPACK/SRC/dnaitr.f
+--- original/ARPACK/SRC/dnaitr.f 1996-08-27 18:09:00.000000000 +0200
++++ ARPACK/SRC/dnaitr.f 2005-06-30 23:20:38.891791783 +0200
+@@ -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 -urN original/ARPACK/SRC/dnapps.f ARPACK/SRC/dnapps.f
+--- original/ARPACK/SRC/dnapps.f 1998-05-20 16:58:56.000000000 +0200
++++ ARPACK/SRC/dnapps.f 2005-06-30 23:20:38.896791199 +0200
+@@ -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
+--- ARPACK/SRC/dnaup2.f.orig 1996-08-16 22:28:09.000000000 +0200
++++ ARPACK/SRC/dnaup2.f 2022-12-15 21:12:42.177193805 +0100
+@@ -143,7 +143,7 @@ c dneigh ARPACK compute Ritz values
+ 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.
+@@ -234,7 +234,7 @@ c | External Subroutines |
+ c %----------------------%
+ c
+ external dcopy, dgetv0, dnaitr, dnconv, dneigh, dngets, dnapps,
+- & dvout, ivout, second
++ & dvout, ivout, arscnd
+ c
+ c %--------------------%
+ c | External Functions |
+@@ -256,7 +256,7 @@ c %-----------------------%
+ c
+ if (ido .eq. 0) then
+ c
+- call second (t0)
++ call arscnd (t0)
+ c
+ msglvl = mnaup2
+ c
+@@ -755,7 +755,7 @@ c | the first step of the next ca
+ 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)
+@@ -780,7 +780,7 @@ c | WORKD(1:N) := B*RESID
+ c %----------------------------------%
+ c
+ if (bmat .eq. 'G') then
+- call second (t3)
++ call arscnd (t3)
+ tmvbx = tmvbx + (t3 - t2)
+ end if
+ c
+@@ -819,7 +819,7 @@ c %------------%
+ c | Error Exit |
+ c %------------%
+ c
+- call second (t1)
++ call arscnd (t1)
+ tnaup2 = t1 - t0
+ c
+ 9000 continue
+diff -urN original/ARPACK/SRC/dnaupd.f ARPACK/SRC/dnaupd.f
+--- original/ARPACK/SRC/dnaupd.f 2002-08-23 07:29:34.000000000 +0200
++++ ARPACK/SRC/dnaupd.f 2005-06-30 23:20:38.906790031 +0200
+@@ -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 -urN original/ARPACK/SRC/dnconv.f ARPACK/SRC/dnconv.f
+--- original/ARPACK/SRC/dnconv.f 1996-04-20 18:27:05.000000000 +0200
++++ ARPACK/SRC/dnconv.f 2005-06-30 23:20:38.907789915 +0200
+@@ -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 -urN original/ARPACK/SRC/dneigh.f ARPACK/SRC/dneigh.f
+--- original/ARPACK/SRC/dneigh.f 1996-04-20 18:27:06.000000000 +0200
++++ ARPACK/SRC/dneigh.f 2005-06-30 23:20:38.909789681 +0200
+@@ -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 -urN original/ARPACK/SRC/dngets.f ARPACK/SRC/dngets.f
+--- original/ARPACK/SRC/dngets.f 1996-04-20 18:27:07.000000000 +0200
++++ ARPACK/SRC/dngets.f 2005-06-30 23:20:38.918788630 +0200
+@@ -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 -urN original/ARPACK/SRC/dsaitr.f ARPACK/SRC/dsaitr.f
+--- original/ARPACK/SRC/dsaitr.f 1996-08-28 16:21:43.000000000 +0200
++++ ARPACK/SRC/dsaitr.f 2005-06-30 23:20:38.923788047 +0200
+@@ -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 -urN original/ARPACK/SRC/dsapps.f ARPACK/SRC/dsapps.f
+--- original/ARPACK/SRC/dsapps.f 1998-05-20 16:58:59.000000000 +0200
++++ ARPACK/SRC/dsapps.f 2005-06-30 23:20:38.926787696 +0200
+@@ -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 -urN original/ARPACK/SRC/dsaup2.f ARPACK/SRC/dsaup2.f
+--- original/ARPACK/SRC/dsaup2.f 1998-05-20 16:59:00.000000000 +0200
++++ ARPACK/SRC/dsaup2.f 2005-06-30 23:20:38.933786879 +0200
+@@ -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
+--- ARPACK/SRC/dsaupd.f.orig 1996-08-27 07:28:56.000000000 +0200
++++ ARPACK/SRC/dsaupd.f 2022-12-15 21:14:09.256722054 +0100
+@@ -380,7 +380,7 @@ c Arnoldi Iteration.
+ 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 %----------------------%
+ 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 | & message level for debugging
+ c %-------------------------------%
+ c
+ call dstats
+- call second (t0)
++ call arscnd (t0)
+ msglvl = msaupd
+ c
+ ierr = 0
+@@ -637,7 +637,7 @@ c
+ & '_saupd: corresponding error bounds')
+ end if
+ c
+- call second (t1)
++ call arscnd (t1)
+ tsaupd = t1 - t0
+ c
+ if (msglvl .gt. 0) then
+diff -urN original/ARPACK/SRC/dsconv.f ARPACK/SRC/dsconv.f
+--- original/ARPACK/SRC/dsconv.f 1996-04-20 18:27:11.000000000 +0200
++++ ARPACK/SRC/dsconv.f 2005-06-30 23:20:38.939786179 +0200
+@@ -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 -urN original/ARPACK/SRC/dseigt.f ARPACK/SRC/dseigt.f
+--- original/ARPACK/SRC/dseigt.f 1996-08-27 07:29:04.000000000 +0200
++++ ARPACK/SRC/dseigt.f 2005-06-30 23:20:38.940786062 +0200
+@@ -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 -urN original/ARPACK/SRC/dsgets.f ARPACK/SRC/dsgets.f
+--- original/ARPACK/SRC/dsgets.f 1996-04-20 18:27:14.000000000 +0200
++++ ARPACK/SRC/dsgets.f 2005-06-30 23:20:38.949785011 +0200
+@@ -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 -urN original/ARPACK/SRC/sgetv0.f ARPACK/SRC/sgetv0.f
+--- original/ARPACK/SRC/sgetv0.f 1999-04-08 00:42:46.000000000 +0200
++++ ARPACK/SRC/sgetv0.f 2005-06-30 23:20:38.960783727 +0200
+@@ -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 -urN original/ARPACK/SRC/snaitr.f ARPACK/SRC/snaitr.f
+--- original/ARPACK/SRC/snaitr.f 1996-08-27 18:09:01.000000000 +0200
++++ ARPACK/SRC/snaitr.f 2005-06-30 23:20:38.969782676 +0200
+@@ -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 -urN original/ARPACK/SRC/snapps.f ARPACK/SRC/snapps.f
+--- original/ARPACK/SRC/snapps.f 1998-05-20 16:58:55.000000000 +0200
++++ ARPACK/SRC/snapps.f 2005-06-30 23:20:38.973782209 +0200
+@@ -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
+--- ARPACK/SRC/snaup2.f.orig 1996-08-16 22:28:10.000000000 +0200
++++ ARPACK/SRC/snaup2.f 2022-12-15 21:16:41.849228723 +0100
+@@ -143,7 +143,7 @@ c sneigh ARPACK compute Ritz values
+ 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.
+@@ -234,7 +234,7 @@ c | External Subroutines |
+ c %----------------------%
+ c
+ external scopy, sgetv0, snaitr, snconv, sneigh, sngets, snapps,
+- & svout, ivout, second
++ & svout, ivout, arscnd
+ c
+ c %--------------------%
+ c | External Functions |
+@@ -256,7 +256,7 @@ c %-----------------------%
+ c
+ if (ido .eq. 0) then
+ c
+- call second (t0)
++ call arscnd (t0)
+ c
+ msglvl = mnaup2
+ c
+@@ -755,7 +755,7 @@ c | the first step of the next ca
+ 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)
+@@ -780,7 +780,7 @@ c | WORKD(1:N) := B*RESID
+ c %----------------------------------%
+ c
+ if (bmat .eq. 'G') then
+- call second (t3)
++ call arscnd (t3)
+ tmvbx = tmvbx + (t3 - t2)
+ end if
+ c
+@@ -819,7 +819,7 @@ c %------------%
+ c | Error Exit |
+ c %------------%
+ c
+- call second (t1)
++ call arscnd (t1)
+ tnaup2 = t1 - t0
+ c
+ 9000 continue
+diff -urN original/ARPACK/SRC/snaupd.f ARPACK/SRC/snaupd.f
+--- original/ARPACK/SRC/snaupd.f 2002-08-23 07:29:34.000000000 +0200
++++ ARPACK/SRC/snaupd.f 2005-06-30 23:20:38.984780925 +0200
+@@ -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 -urN original/ARPACK/SRC/snconv.f ARPACK/SRC/snconv.f
+--- original/ARPACK/SRC/snconv.f 1996-04-20 18:27:21.000000000 +0200
++++ ARPACK/SRC/snconv.f 2005-06-30 23:20:38.985780808 +0200
+@@ -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 -urN original/ARPACK/SRC/sneigh.f ARPACK/SRC/sneigh.f
+--- original/ARPACK/SRC/sneigh.f 1996-04-20 18:27:22.000000000 +0200
++++ ARPACK/SRC/sneigh.f 2005-06-30 23:20:38.987780575 +0200
+@@ -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 -urN original/ARPACK/SRC/sngets.f ARPACK/SRC/sngets.f
+--- original/ARPACK/SRC/sngets.f 1996-04-20 18:27:24.000000000 +0200
++++ ARPACK/SRC/sngets.f 2005-06-30 23:20:38.995779641 +0200
+@@ -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 -urN original/ARPACK/SRC/ssaitr.f ARPACK/SRC/ssaitr.f
+--- original/ARPACK/SRC/ssaitr.f 1996-08-28 16:21:43.000000000 +0200
++++ ARPACK/SRC/ssaitr.f 2005-06-30 23:20:39.001778940 +0200
+@@ -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 -urN original/ARPACK/SRC/ssapps.f ARPACK/SRC/ssapps.f
+--- original/ARPACK/SRC/ssapps.f 1998-05-20 16:58:58.000000000 +0200
++++ ARPACK/SRC/ssapps.f 2005-06-30 23:20:39.004778590 +0200
+@@ -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 -urN original/ARPACK/SRC/ssaup2.f ARPACK/SRC/ssaup2.f
+--- original/ARPACK/SRC/ssaup2.f 1998-05-20 16:58:59.000000000 +0200
++++ ARPACK/SRC/ssaup2.f 2005-06-30 23:20:39.010777890 +0200
+@@ -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 -urN original/ARPACK/SRC/ssaupd.f ARPACK/SRC/ssaupd.f
+--- original/ARPACK/SRC/ssaupd.f 2001-04-11 00:52:40.000000000 +0200
++++ ARPACK/SRC/ssaupd.f 2005-06-30 23:20:39.015777306 +0200
+@@ -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 -urN original/ARPACK/SRC/ssconv.f ARPACK/SRC/ssconv.f
+--- original/ARPACK/SRC/ssconv.f 1996-04-20 18:27:27.000000000 +0200
++++ ARPACK/SRC/ssconv.f 2005-06-30 23:20:39.016777190 +0200
+@@ -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 -urN original/ARPACK/SRC/sseigt.f ARPACK/SRC/sseigt.f
+--- original/ARPACK/SRC/sseigt.f 1996-08-27 07:29:04.000000000 +0200
++++ ARPACK/SRC/sseigt.f 2005-06-30 23:20:39.017777073 +0200
+@@ -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 -urN original/ARPACK/SRC/ssgets.f ARPACK/SRC/ssgets.f
+--- original/ARPACK/SRC/ssgets.f 1996-04-20 18:27:30.000000000 +0200
++++ ARPACK/SRC/ssgets.f 2005-06-30 23:20:39.026776022 +0200
+@@ -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 -urN original/ARPACK/SRC/zgetv0.f ARPACK/SRC/zgetv0.f
+--- original/ARPACK/SRC/zgetv0.f 1999-04-08 00:46:45.000000000 +0200
++++ ARPACK/SRC/zgetv0.f 2005-06-30 23:20:39.037774738 +0200
+@@ -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 -urN original/ARPACK/SRC/znaitr.f ARPACK/SRC/znaitr.f
+--- original/ARPACK/SRC/znaitr.f 1996-08-27 18:12:57.000000000 +0200
++++ ARPACK/SRC/znaitr.f 2005-06-30 23:20:39.042774155 +0200
+@@ -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 -urN original/ARPACK/SRC/znapps.f ARPACK/SRC/znapps.f
+--- original/ARPACK/SRC/znapps.f 1998-05-20 16:45:03.000000000 +0200
++++ ARPACK/SRC/znapps.f 2005-06-30 23:20:39.045773805 +0200
+@@ -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
+--- ARPACK/SRC/znaup2.f.orig 1996-09-24 22:40:01.000000000 +0200
++++ ARPACK/SRC/znaup2.f 2022-12-15 21:20:55.564520897 +0100
+@@ -135,7 +135,7 @@ c zneigh ARPACK compute Ritz values
+ 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.
+@@ -239,7 +239,7 @@ c | External Subroutines |
+ 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 |
+@@ -263,7 +263,7 @@ c %-----------------------%
+ c
+ if (ido .eq. 0) then
+ c
+- call second (t0)
++ call arscnd (t0)
+ c
+ msglvl = mcaup2
+ c
+@@ -723,7 +723,7 @@ c | the first step of the next ca
+ 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)
+@@ -748,7 +748,7 @@ c | WORKD(1:N) := B*RESID
+ c %----------------------------------%
+ c
+ if (bmat .eq. 'G') then
+- call second (t3)
++ call arscnd (t3)
+ tmvbx = tmvbx + (t3 - t2)
+ end if
+ c
+@@ -787,7 +787,7 @@ c %------------%
+ c | Error Exit |
+ c %------------%
+ c
+- call second (t1)
++ call arscnd (t1)
+ tcaup2 = t1 - t0
+ c
+ 9000 continue
+diff -urN original/ARPACK/SRC/znaupd.f ARPACK/SRC/znaupd.f
+--- original/ARPACK/SRC/znaupd.f 2002-08-15 07:50:57.000000000 +0200
++++ ARPACK/SRC/znaupd.f 2005-06-30 23:20:39.055772637 +0200
+@@ -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 -urN original/ARPACK/SRC/zneigh.f ARPACK/SRC/zneigh.f
+--- original/ARPACK/SRC/zneigh.f 1996-04-20 19:16:01.000000000 +0200
++++ ARPACK/SRC/zneigh.f 2005-06-30 23:20:39.056772521 +0200
+@@ -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 -urN original/ARPACK/SRC/zngets.f ARPACK/SRC/zngets.f
+--- original/ARPACK/SRC/zngets.f 1996-04-20 19:16:02.000000000 +0200
++++ ARPACK/SRC/zngets.f 2005-06-30 23:20:39.063771704 +0200
+@@ -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 -urN original/ARPACK/UTIL/Makefile ARPACK/UTIL/Makefile
+--- original/ARPACK/UTIL/Makefile 1996-09-09 16:30:48.000000000 +0200
++++ ARPACK/UTIL/Makefile 2005-06-30 23:23:46.746224656 +0200
+@@ -31,7 +31,7 @@
+ # ../ARmake.inc and is created at the next higher directory level.
+ #
+
+-OBJS = icnteq.o icopy.o iset.o iswap.o ivout.o second.o
++OBJS = icnteq.o icopy.o iset.o iswap.o ivout.o arscnd.o
+
+ SOBJ = svout.o smout.o
+
+diff -urN original/ARPACK/UTIL/arscnd.f ARPACK/UTIL/arscnd.f
+--- original/ARPACK/UTIL/arscnd.f 1970-01-01 01:00:00.000000000 +0100
++++ ARPACK/UTIL/arscnd.f 2005-06-30 23:22:55.982983811 +0200
+@@ -0,0 +1,36 @@
++ SUBROUTINE ARSCND( T )
++*
++ REAL T
++*
++* -- LAPACK auxiliary routine (preliminary version) --
++* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
++* Courant Institute, Argonne National Lab, and Rice University
++* July 26, 1991
++*
++* Purpose
++* =======
++*
++* ARSCND returns the user time for a process in seconds.
++* This version gets the time from the system function ETIME.
++*
++* .. Local Scalars ..
++ REAL T1
++* ..
++* .. Local Arrays ..
++ REAL TARRAY( 2 )
++* ..
++* .. External Functions ..
++ REAL ETIME
++ EXTERNAL ETIME
++* ..
++* .. Executable Statements ..
++*
++
++ T1 = ETIME( TARRAY )
++ T = TARRAY( 1 )
++
++ RETURN
++*
++* End of ARSCND
++*
++ END
+diff -urN original/ARPACK/UTIL/second.f ARPACK/UTIL/second.f
+--- original/ARPACK/UTIL/second.f 1995-10-02 19:56:44.000000000 +0100
++++ ARPACK/UTIL/second.f 1970-01-01 01:00:00.000000000 +0100
+@@ -1,36 +0,0 @@
+- SUBROUTINE SECOND( T )
+-*
+- REAL T
+-*
+-* -- LAPACK auxiliary routine (preliminary version) --
+-* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+-* Courant Institute, Argonne National Lab, and Rice University
+-* July 26, 1991
+-*
+-* Purpose
+-* =======
+-*
+-* SECOND returns the user time for a process in seconds.
+-* This version gets the time from the system function ETIME.
+-*
+-* .. Local Scalars ..
+- REAL T1
+-* ..
+-* .. Local Arrays ..
+- REAL TARRAY( 2 )
+-* ..
+-* .. External Functions ..
+- REAL ETIME
+- EXTERNAL ETIME
+-* ..
+-* .. Executable Statements ..
+-*
+-
+- T1 = ETIME( TARRAY )
+- T = TARRAY( 1 )
+-
+- RETURN
+-*
+-* End of SECOND
+-*
+- END
projects / packages / arpack.git / commitdiff