arpack-arscnd-3.patch

   1 diff -urN original/ARPACK/SRC/cgetv0.f ARPACK/SRC/cgetv0.f
   2 --- original/ARPACK/SRC/cgetv0.f        1999-04-08 00:46:44.000000000 +0200
   3 +++ ARPACK/SRC/cgetv0.f 2005-06-30 23:20:38.850796569 +0200
   4 @@ -89,7 +89,7 @@
   5  c     pp 357-385.
   6  c
   7  c\Routines called:
   8 -c     second  ARPACK utility routine for timing.
   9 +c     arscnd  ARPACK utility routine for timing.
  10  c     cvout   ARPACK utility routine that prints vectors.
  11  c     clarnv  LAPACK routine for generating a random vector.
  12  c     cgemv   Level 2 BLAS routine for matrix vector multiplication.
  13 @@ -168,7 +168,7 @@
  14  c     | External Subroutines |
  15  c     %----------------------%
  16  c
  17 -      external   ccopy, cgemv, clarnv, cvout, second
  18 +      external   ccopy, cgemv, clarnv, cvout, arscnd
  19  c
  20  c     %--------------------%
  21  c     | External Functions |
  22 @@ -211,7 +211,7 @@
  23  c        | & message level for debugging |
  24  c        %-------------------------------%
  25  c
  26 -         call second (t0)
  27 +         call arscnd (t0)
  28           msglvl = mgetv0
  29  c
  30           ierr   = 0
  31 @@ -238,7 +238,7 @@
  32  c        | the generalized problem when B is possibly (singular).   |
  33  c        %----------------------------------------------------------%
  34  c
  35 -         call second (t2)
  36 +         call arscnd (t2)
  37           if (bmat .eq. 'G') then
  38              nopx = nopx + 1
  39              ipntr(1) = 1
  40 @@ -261,7 +261,7 @@
  41  c
  42        if (orth)  go to 40
  43  c
  44 -      call second (t3)
  45 +      call arscnd (t3)
  46        tmvopx = tmvopx + (t3 - t2)
  47  c
  48  c     %------------------------------------------------------%
  49 @@ -269,7 +269,7 @@
  50  c     | Compute B-norm of starting vector.                   |
  51  c     %------------------------------------------------------%
  52  c
  53 -      call second (t2)
  54 +      call arscnd (t2)
  55        first = .TRUE.
  56        if (bmat .eq. 'G') then
  57           nbx = nbx + 1
  58 @@ -285,7 +285,7 @@
  59     20 continue
  60  c
  61        if (bmat .eq. 'G') then
  62 -         call second (t3)
  63 +         call arscnd (t3)
  64           tmvbx = tmvbx + (t3 - t2)
  65        end if
  66  c
  67 @@ -328,7 +328,7 @@
  68  c     | Compute the B-norm of the orthogonalized starting vector |
  69  c     %----------------------------------------------------------%
  70  c
  71 -      call second (t2)
  72 +      call arscnd (t2)
  73        if (bmat .eq. 'G') then
  74           nbx = nbx + 1
  75           call ccopy (n, resid, 1, workd(n+1), 1)
  76 @@ -343,7 +343,7 @@
  77     40 continue
  78  c
  79        if (bmat .eq. 'G') then
  80 -         call second (t3)
  81 +         call arscnd (t3)
  82           tmvbx = tmvbx + (t3 - t2)
  83        end if
  84  c
  85 @@ -401,7 +401,7 @@
  86        end if
  87        ido = 99
  88  c
  89 -      call second (t1)
  90 +      call arscnd (t1)
  91        tgetv0 = tgetv0 + (t1 - t0)
  92  c
  93   9000 continue
  94 diff -urN original/ARPACK/SRC/cnaitr.f ARPACK/SRC/cnaitr.f
  95 --- original/ARPACK/SRC/cnaitr.f        1996-08-27 18:12:56.000000000 +0200
  96 +++ ARPACK/SRC/cnaitr.f 2005-06-30 23:20:38.856795869 +0200
  97 @@ -131,7 +131,7 @@
  98  c\Routines called:
  99  c     cgetv0  ARPACK routine to generate the initial vector.
 100  c     ivout   ARPACK utility routine that prints integers.
 101 -c     second  ARPACK utility routine for timing.
 102 +c     arscnd  ARPACK utility routine for timing.
 103  c     cmout   ARPACK utility routine that prints matrices
 104  c     cvout   ARPACK utility routine that prints vectors.
 105  c     clanhs  LAPACK routine that computes various norms of a matrix.
 106 @@ -273,7 +273,7 @@
 107  c     %----------------------%
 108  c
 109        external   caxpy, ccopy, cscal, csscal, cgemv, cgetv0,
 110 -     &           slabad, cvout, cmout, ivout, second
 111 +     &           slabad, cvout, cmout, ivout, arscnd
 112  c
 113  c     %--------------------%
 114  c     | External Functions |
 115 @@ -326,7 +326,7 @@
 116  c        | & message level for debugging |
 117  c        %-------------------------------%
 118  c
 119 -         call second (t0)
 120 +         call arscnd (t0)
 121           msglvl = mcaitr
 122  c
 123  c        %------------------------------%
 124 @@ -437,7 +437,7 @@
 125  c              %------------------------------------------------%
 126  c
 127                 info = j - 1
 128 -               call second (t1)
 129 +               call arscnd (t1)
 130                 tcaitr = tcaitr + (t1 - t0)
 131                 ido = 99
 132                 go to 9000
 133 @@ -477,7 +477,7 @@
 134  c
 135           step3 = .true.
 136           nopx  = nopx + 1
 137 -         call second (t2)
 138 +         call arscnd (t2)
 139           call ccopy (n, v(1,j), 1, workd(ivj), 1)
 140           ipntr(1) = ivj
 141           ipntr(2) = irj
 142 @@ -497,7 +497,7 @@
 143  c        | if step3 = .true.                |
 144  c        %----------------------------------%
 145  c
 146 -         call second (t3)
 147 +         call arscnd (t3)
 148           tmvopx = tmvopx + (t3 - t2)
 149
 150           step3 = .false.
 151 @@ -513,7 +513,7 @@
 152  c        |          factorization to length j.   |
 153  c        %---------------------------------------%
 154  c
 155 -         call second (t2)
 156 +         call arscnd (t2)
 157           if (bmat .eq. 'G') then
 158              nbx = nbx + 1
 159              step4 = .true.
 160 @@ -538,7 +538,7 @@
 161  c        %----------------------------------%
 162  c
 163           if (bmat .eq. 'G') then
 164 -            call second (t3)
 165 +            call arscnd (t3)
 166              tmvbx = tmvbx + (t3 - t2)
 167           end if
 168  c
 169 @@ -583,11 +583,11 @@
 170  c
 171           if (j .gt. 1) h(j,j-1) = cmplx(betaj, rzero)
 172  c
 173 -         call second (t4)
 174 +         call arscnd (t4)
 175  c
 176           orth1 = .true.
 177  c
 178 -         call second (t2)
 179 +         call arscnd (t2)
 180           if (bmat .eq. 'G') then
 181              nbx = nbx + 1
 182              call ccopy (n, resid, 1, workd(irj), 1)
 183 @@ -611,7 +611,7 @@
 184  c        %---------------------------------------------------%
 185  c
 186           if (bmat .eq. 'G') then
 187 -            call second (t3)
 188 +            call arscnd (t3)
 189              tmvbx = tmvbx + (t3 - t2)
 190           end if
 191  c
 192 @@ -689,7 +689,7 @@
 193           call caxpy (j, one, workd(irj), 1, h(1,j), 1)
 194  c
 195           orth2 = .true.
 196 -         call second (t2)
 197 +         call arscnd (t2)
 198           if (bmat .eq. 'G') then
 199              nbx = nbx + 1
 200              call ccopy (n, resid, 1, workd(irj), 1)
 201 @@ -713,7 +713,7 @@
 202  c        %---------------------------------------------------%
 203  c
 204           if (bmat .eq. 'G') then
 205 -            call second (t3)
 206 +            call arscnd (t3)
 207              tmvbx = tmvbx + (t3 - t2)
 208           end if
 209  c
 210 @@ -791,7 +791,7 @@
 211           rstart = .false.
 212           orth2  = .false.
 213  c
 214 -         call second (t5)
 215 +         call arscnd (t5)
 216           titref = titref + (t5 - t4)
 217  c
 218  c        %------------------------------------%
 219 @@ -800,7 +800,7 @@
 220  c
 221           j = j + 1
 222           if (j .gt. k+np) then
 223 -            call second (t1)
 224 +            call arscnd (t1)
 225              tcaitr = tcaitr + (t1 - t0)
 226              ido = 99
 227              do 110 i = max(1,k), k+np-1
 228 diff -urN original/ARPACK/SRC/cnapps.f ARPACK/SRC/cnapps.f
 229 --- original/ARPACK/SRC/cnapps.f        1998-05-20 16:45:03.000000000 +0200
 230 +++ ARPACK/SRC/cnapps.f 2005-06-30 23:20:38.859795518 +0200
 231 @@ -92,7 +92,7 @@
 232  c
 233  c\Routines called:
 234  c     ivout   ARPACK utility routine that prints integers.
 235 -c     second  ARPACK utility routine for timing.
 236 +c     arscnd  ARPACK utility routine for timing.
 237  c     cmout   ARPACK utility routine that prints matrices
 238  c     cvout   ARPACK utility routine that prints vectors.
 239  c     clacpy  LAPACK matrix copy routine.
 240 @@ -184,7 +184,7 @@
 241  c     %----------------------%
 242  c
 243        external   caxpy, ccopy, cgemv, cscal, clacpy, clartg,
 244 -     &           cvout, claset, slabad, cmout, second, ivout
 245 +     &           cvout, claset, slabad, cmout, arscnd, ivout
 246  c
 247  c     %--------------------%
 248  c     | External Functions |
 249 @@ -240,7 +240,7 @@
 250  c     | & message level for debugging |
 251  c     %-------------------------------%
 252  c
 253 -      call second (t0)
 254 +      call arscnd (t0)
 255        msglvl = mcapps
 256  c
 257        kplusp = kev + np
 258 @@ -495,7 +495,7 @@
 259        end if
 260  c
 261   9000 continue
 262 -      call second (t1)
 263 +      call arscnd (t1)
 264        tcapps = tcapps + (t1 - t0)
 265  c
 266        return
 267 diff -urN original/ARPACK/SRC/cnaup2.f ARPACK/SRC/cnaup2.f
 268 --- original/ARPACK/SRC/cnaup2.f        2000-06-01 22:28:53.000000000 +0200
 269 +++ ARPACK/SRC/cnaup2.f 2005-06-30 23:20:38.864794935 +0200
 270 @@ -135,7 +135,7 @@
 271  c     cngets  ARPACK reorder Ritz values and error bounds routine.
 272  c     csortc  ARPACK sorting routine.
 273  c     ivout   ARPACK utility routine that prints integers.
 274 -c     second  ARPACK utility routine for timing.
 275 +c     arscnd  ARPACK utility routine for timing.
 276  c     cmout   ARPACK utility routine that prints matrices
 277  c     cvout   ARPACK utility routine that prints vectors.
 278  c     svout   ARPACK utility routine that prints vectors.
 279 @@ -240,7 +240,7 @@
 280  c     %----------------------%
 281  c
 282        external   ccopy, cgetv0, cnaitr, cneigh, cngets, cnapps,
 283 -     &           csortc, cswap, cmout, cvout, ivout, second
 284 +     &           csortc, cswap, cmout, cvout, ivout, arscnd
 285  c
 286  c     %--------------------%
 287  c     | External functions |
 288 @@ -264,7 +264,7 @@
 289  c
 290        if (ido .eq. 0) then
 291  c
 292 -         call second (t0)
 293 +         call arscnd (t0)
 294  c
 295           msglvl = mcaup2
 296  c
 297 @@ -724,7 +724,7 @@
 298  c        %---------------------------------------------%
 299  c
 300           cnorm = .true.
 301 -         call second (t2)
 302 +         call arscnd (t2)
 303           if (bmat .eq. 'G') then
 304              nbx = nbx + 1
 305              call ccopy (n, resid, 1, workd(n+1), 1)
 306 @@ -749,7 +749,7 @@
 307  c        %----------------------------------%
 308  c
 309           if (bmat .eq. 'G') then
 310 -            call second (t3)
 311 +            call arscnd (t3)
 312              tmvbx = tmvbx + (t3 - t2)
 313           end if
 314  c
 315 @@ -788,7 +788,7 @@
 316  c     | Error Exit |
 317  c     %------------%
 318  c
 319 -      call second (t1)
 320 +      call arscnd (t1)
 321        tcaup2 = t1 - t0
 322  c
 323   9000 continue
 324 diff -urN original/ARPACK/SRC/cnaupd.f ARPACK/SRC/cnaupd.f
 325 --- original/ARPACK/SRC/cnaupd.f        2002-08-15 07:50:57.000000000 +0200
 326 +++ ARPACK/SRC/cnaupd.f 2005-06-30 23:20:38.869794351 +0200
 327 @@ -356,7 +356,7 @@
 328  c     cstatn  ARPACK routine that initializes the timing variables.
 329  c     ivout   ARPACK utility routine that prints integers.
 330  c     cvout   ARPACK utility routine that prints vectors.
 331 -c     second  ARPACK utility routine for timing.
 332 +c     arscnd  ARPACK utility routine for timing.
 333  c     slamch  LAPACK routine that determines machine constants.
 334  c
 335  c\Author
 336 @@ -429,7 +429,7 @@
 337  c     | External Subroutines |
 338  c     %----------------------%
 339  c
 340 -      external   cnaup2, cvout, ivout, second, cstatn
 341 +      external   cnaup2, cvout, ivout, arscnd, cstatn
 342  c
 343  c     %--------------------%
 344  c     | External Functions |
 345 @@ -451,7 +451,7 @@
 346  c        %-------------------------------%
 347  c
 348           call cstatn
 349 -         call second (t0)
 350 +         call arscnd (t0)
 351           msglvl = mcaupd
 352  c
 353  c        %----------------%
 354 @@ -611,7 +611,7 @@
 355       &               '_naupd: Associated Ritz estimates')
 356        end if
 357  c
 358 -      call second (t1)
 359 +      call arscnd (t1)
 360        tcaupd = t1 - t0
 361  c
 362        if (msglvl .gt. 0) then
 363 diff -urN original/ARPACK/SRC/cneigh.f ARPACK/SRC/cneigh.f
 364 --- original/ARPACK/SRC/cneigh.f        1996-04-20 19:15:53.000000000 +0200
 365 +++ ARPACK/SRC/cneigh.f 2005-06-30 23:20:38.870794234 +0200
 366 @@ -64,7 +64,7 @@
 367  c
 368  c\Routines called:
 369  c     ivout   ARPACK utility routine that prints integers.
 370 -c     second  ARPACK utility routine for timing.
 371 +c     arscnd  ARPACK utility routine for timing.
 372  c     cmout   ARPACK utility routine that prints matrices
 373  c     cvout   ARPACK utility routine that prints vectors.
 374  c     svout   ARPACK utility routine that prints vectors.
 375 @@ -152,7 +152,7 @@
 376  c     %----------------------%
 377  c
 378        external   clacpy, clahqr, ctrevc, ccopy,
 379 -     &           csscal, cmout, cvout, second
 380 +     &           csscal, cmout, cvout, arscnd
 381  c
 382  c     %--------------------%
 383  c     | External Functions |
 384 @@ -171,7 +171,7 @@
 385  c     | & message level for debugging |
 386  c     %-------------------------------%
 387  c
 388 -      call second (t0)
 389 +      call arscnd (t0)
 390        msglvl = mceigh
 391  c
 392        if (msglvl .gt. 2) then
 393 @@ -244,7 +244,7 @@
 394       &              '_neigh: Ritz estimates for the eigenvalues of H')
 395        end if
 396  c
 397 -      call second(t1)
 398 +      call arscnd(t1)
 399        tceigh = tceigh + (t1 - t0)
 400  c
 401   9000 continue
 402 diff -urN original/ARPACK/SRC/cngets.f ARPACK/SRC/cngets.f
 403 --- original/ARPACK/SRC/cngets.f        1996-04-20 19:15:56.000000000 +0200
 404 +++ ARPACK/SRC/cngets.f 2005-06-30 23:20:38.877793417 +0200
 405 @@ -63,7 +63,7 @@
 406  c\Routines called:
 407  c     csortc  ARPACK sorting routine.
 408  c     ivout   ARPACK utility routine that prints integers.
 409 -c     second  ARPACK utility routine for timing.
 410 +c     arscnd  ARPACK utility routine for timing.
 411  c     cvout   ARPACK utility routine that prints vectors.
 412  c
 413  c\Author
 414 @@ -126,7 +126,7 @@
 415  c     | External Subroutines |
 416  c     %----------------------%
 417  c
 418 -      external   cvout,  csortc, second
 419 +      external   cvout,  csortc, arscnd
 420  c
 421  c     %-----------------------%
 422  c     | Executable Statements |
 423 @@ -137,7 +137,7 @@
 424  c     | & message level for debugging |
 425  c     %-------------------------------%
 426  c
 427 -      call second (t0)
 428 +      call arscnd (t0)
 429        msglvl = mcgets
 430  c
 431        call csortc (which, .true., kev+np, ritz, bounds)
 432 @@ -157,7 +157,7 @@
 433  c
 434        end if
 435  c
 436 -      call second (t1)
 437 +      call arscnd (t1)
 438        tcgets = tcgets + (t1 - t0)
 439  c
 440        if (msglvl .gt. 0) then
 441 diff -urN original/ARPACK/SRC/dgetv0.f ARPACK/SRC/dgetv0.f
 442 --- original/ARPACK/SRC/dgetv0.f        1999-04-08 00:42:47.000000000 +0200
 443 +++ ARPACK/SRC/dgetv0.f 2005-06-30 23:20:38.882792833 +0200
 444 @@ -93,7 +93,7 @@
 445  c     TR95-13, Department of Computational and Applied Mathematics.
 446  c
 447  c\Routines called:
 448 -c     second  ARPACK utility routine for timing.
 449 +c     arscnd  ARPACK utility routine for timing.
 450  c     dvout   ARPACK utility routine for vector output.
 451  c     dlarnv  LAPACK routine for generating a random vector.
 452  c     dgemv   Level 2 BLAS routine for matrix vector multiplication.
 453 @@ -167,7 +167,7 @@
 454  c     | External Subroutines |
 455  c     %----------------------%
 456  c
 457 -      external   dlarnv, dvout, dcopy, dgemv, second
 458 +      external   dlarnv, dvout, dcopy, dgemv, arscnd
 459  c
 460  c     %--------------------%
 461  c     | External Functions |
 462 @@ -214,7 +214,7 @@
 463  c        | & message level for debugging |
 464  c        %-------------------------------%
 465  c
 466 -         call second (t0)
 467 +         call arscnd (t0)
 468           msglvl = mgetv0
 469  c
 470           ierr   = 0
 471 @@ -241,7 +241,7 @@
 472  c        | the generalized problem when B is possibly (singular).   |
 473  c        %----------------------------------------------------------%
 474  c
 475 -         call second (t2)
 476 +         call arscnd (t2)
 477           if (bmat .eq. 'G') then
 478              nopx = nopx + 1
 479              ipntr(1) = 1
 480 @@ -265,7 +265,7 @@
 481        if (orth)  go to 40
 482  c
 483        if (bmat .eq. 'G') then
 484 -         call second (t3)
 485 +         call arscnd (t3)
 486           tmvopx = tmvopx + (t3 - t2)
 487        end if
 488  c
 489 @@ -274,7 +274,7 @@
 490  c     | Compute B-norm of starting vector.                   |
 491  c     %------------------------------------------------------%
 492  c
 493 -      call second (t2)
 494 +      call arscnd (t2)
 495        first = .TRUE.
 496        if (bmat .eq. 'G') then
 497           nbx = nbx + 1
 498 @@ -290,7 +290,7 @@
 499     20 continue
 500  c
 501        if (bmat .eq. 'G') then
 502 -         call second (t3)
 503 +         call arscnd (t3)
 504           tmvbx = tmvbx + (t3 - t2)
 505        end if
 506  c
 507 @@ -333,7 +333,7 @@
 508  c     | Compute the B-norm of the orthogonalized starting vector |
 509  c     %----------------------------------------------------------%
 510  c
 511 -      call second (t2)
 512 +      call arscnd (t2)
 513        if (bmat .eq. 'G') then
 514           nbx = nbx + 1
 515           call dcopy (n, resid, 1, workd(n+1), 1)
 516 @@ -348,7 +348,7 @@
 517     40 continue
 518  c
 519        if (bmat .eq. 'G') then
 520 -         call second (t3)
 521 +         call arscnd (t3)
 522           tmvbx = tmvbx + (t3 - t2)
 523        end if
 524  c
 525 @@ -406,7 +406,7 @@
 526        end if
 527        ido = 99
 528  c
 529 -      call second (t1)
 530 +      call arscnd (t1)
 531        tgetv0 = tgetv0 + (t1 - t0)
 532  c
 533   9000 continue
 534 diff -urN original/ARPACK/SRC/dnaitr.f ARPACK/SRC/dnaitr.f
 535 --- original/ARPACK/SRC/dnaitr.f        1996-08-27 18:09:00.000000000 +0200
 536 +++ ARPACK/SRC/dnaitr.f 2005-06-30 23:20:38.891791783 +0200
 537 @@ -132,7 +132,7 @@
 538  c\Routines called:
 539  c     dgetv0  ARPACK routine to generate the initial vector.
 540  c     ivout   ARPACK utility routine that prints integers.
 541 -c     second  ARPACK utility routine for timing.
 542 +c     arscnd  ARPACK utility routine for timing.
 543  c     dmout   ARPACK utility routine that prints matrices
 544  c     dvout   ARPACK utility routine that prints vectors.
 545  c     dlabad  LAPACK routine that computes machine constants.
 546 @@ -268,7 +268,7 @@
 547  c     %----------------------%
 548  c
 549        external   daxpy, dcopy, dscal, dgemv, dgetv0, dlabad,
 550 -     &           dvout, dmout, ivout, second
 551 +     &           dvout, dmout, ivout, arscnd
 552  c
 553  c     %--------------------%
 554  c     | External Functions |
 555 @@ -319,7 +319,7 @@
 556  c        | & message level for debugging |
 557  c        %-------------------------------%
 558  c
 559 -         call second (t0)
 560 +         call arscnd (t0)
 561           msglvl = mnaitr
 562  c
 563  c        %------------------------------%
 564 @@ -430,7 +430,7 @@
 565  c              %------------------------------------------------%
 566  c
 567                 info = j - 1
 568 -               call second (t1)
 569 +               call arscnd (t1)
 570                 tnaitr = tnaitr + (t1 - t0)
 571                 ido = 99
 572                 go to 9000
 573 @@ -470,7 +470,7 @@
 574  c
 575           step3 = .true.
 576           nopx  = nopx + 1
 577 -         call second (t2)
 578 +         call arscnd (t2)
 579           call dcopy (n, v(1,j), 1, workd(ivj), 1)
 580           ipntr(1) = ivj
 581           ipntr(2) = irj
 582 @@ -490,7 +490,7 @@
 583  c        | if step3 = .true.                |
 584  c        %----------------------------------%
 585  c
 586 -         call second (t3)
 587 +         call arscnd (t3)
 588           tmvopx = tmvopx + (t3 - t2)
 589
 590           step3 = .false.
 591 @@ -506,7 +506,7 @@
 592  c        |          factorization to length j.   |
 593  c        %---------------------------------------%
 594  c
 595 -         call second (t2)
 596 +         call arscnd (t2)
 597           if (bmat .eq. 'G') then
 598              nbx = nbx + 1
 599              step4 = .true.
 600 @@ -531,7 +531,7 @@
 601  c        %----------------------------------%
 602  c
 603           if (bmat .eq. 'G') then
 604 -            call second (t3)
 605 +            call arscnd (t3)
 606              tmvbx = tmvbx + (t3 - t2)
 607           end if
 608  c
 609 @@ -576,11 +576,11 @@
 610  c
 611           if (j .gt. 1) h(j,j-1) = betaj
 612  c
 613 -         call second (t4)
 614 +         call arscnd (t4)
 615  c
 616           orth1 = .true.
 617  c
 618 -         call second (t2)
 619 +         call arscnd (t2)
 620           if (bmat .eq. 'G') then
 621              nbx = nbx + 1
 622              call dcopy (n, resid, 1, workd(irj), 1)
 623 @@ -604,7 +604,7 @@
 624  c        %---------------------------------------------------%
 625  c
 626           if (bmat .eq. 'G') then
 627 -            call second (t3)
 628 +            call arscnd (t3)
 629              tmvbx = tmvbx + (t3 - t2)
 630           end if
 631  c
 632 @@ -681,7 +681,7 @@
 633           call daxpy (j, one, workd(irj), 1, h(1,j), 1)
 634  c
 635           orth2 = .true.
 636 -         call second (t2)
 637 +         call arscnd (t2)
 638           if (bmat .eq. 'G') then
 639              nbx = nbx + 1
 640              call dcopy (n, resid, 1, workd(irj), 1)
 641 @@ -705,7 +705,7 @@
 642  c        %---------------------------------------------------%
 643  c
 644           if (bmat .eq. 'G') then
 645 -            call second (t3)
 646 +            call arscnd (t3)
 647              tmvbx = tmvbx + (t3 - t2)
 648           end if
 649  c
 650 @@ -783,7 +783,7 @@
 651           rstart = .false.
 652           orth2  = .false.
 653  c
 654 -         call second (t5)
 655 +         call arscnd (t5)
 656           titref = titref + (t5 - t4)
 657  c
 658  c        %------------------------------------%
 659 @@ -792,7 +792,7 @@
 660  c
 661           j = j + 1
 662           if (j .gt. k+np) then
 663 -            call second (t1)
 664 +            call arscnd (t1)
 665              tnaitr = tnaitr + (t1 - t0)
 666              ido = 99
 667              do 110 i = max(1,k), k+np-1
 668 diff -urN original/ARPACK/SRC/dnapps.f ARPACK/SRC/dnapps.f
 669 --- original/ARPACK/SRC/dnapps.f        1998-05-20 16:58:56.000000000 +0200
 670 +++ ARPACK/SRC/dnapps.f 2005-06-30 23:20:38.896791199 +0200
 671 @@ -97,7 +97,7 @@
 672  c
 673  c\Routines called:
 674  c     ivout   ARPACK utility routine that prints integers.
 675 -c     second  ARPACK utility routine for timing.
 676 +c     arscnd  ARPACK utility routine for timing.
 677  c     dmout   ARPACK utility routine that prints matrices.
 678  c     dvout   ARPACK utility routine that prints vectors.
 679  c     dlabad  LAPACK routine that computes machine constants.
 680 @@ -189,7 +189,7 @@
 681  c     %----------------------%
 682  c
 683        external   daxpy, dcopy, dscal, dlacpy, dlarfg, dlarf,
 684 -     &           dlaset, dlabad, second, dlartg
 685 +     &           dlaset, dlabad, arscnd, dlartg
 686  c
 687  c     %--------------------%
 688  c     | External Functions |
 689 @@ -237,7 +237,7 @@
 690  c     | & message level for debugging |
 691  c     %-------------------------------%
 692  c
 693 -      call second (t0)
 694 +      call arscnd (t0)
 695        msglvl = mnapps
 696        kplusp = kev + np
 697  c
 698 @@ -635,7 +635,7 @@
 699        end if
 700  c
 701   9000 continue
 702 -      call second (t1)
 703 +      call arscnd (t1)
 704        tnapps = tnapps + (t1 - t0)
 705  c
 706        return
 707 --- ARPACK/SRC/dnaup2.f.orig    1996-08-16 22:28:09.000000000 +0200
 708 +++ ARPACK/SRC/dnaup2.f 2022-12-15 21:12:42.177193805 +0100
 709 @@ -143,7 +143,7 @@ c     dneigh  ARPACK compute Ritz values
 710  c     dngets  ARPACK reorder Ritz values and error bounds routine.
 711  c     dsortc  ARPACK sorting routine.
 712  c     ivout   ARPACK utility routine that prints integers.
 713 -c     second  ARPACK utility routine for timing.
 714 +c     arscnd  ARPACK utility routine for timing.
 715  c     dmout   ARPACK utility routine that prints matrices
 716  c     dvout   ARPACK utility routine that prints vectors.
 717  c     dlamch  LAPACK routine that determines machine constants.
 718 @@ -234,7 +234,7 @@ c     | External Subroutines |
 719  c     %----------------------%
 720  c
 721        external   dcopy, dgetv0, dnaitr, dnconv, dneigh, dngets, dnapps,
 722 -     &           dvout, ivout, second
 723 +     &           dvout, ivout, arscnd
 724  c
 725  c     %--------------------%
 726  c     | External Functions |
 727 @@ -256,7 +256,7 @@ c     %-----------------------%
 728  c
 729        if (ido .eq. 0) then
 730  c
 731 -         call second (t0)
 732 +         call arscnd (t0)
 733  c
 734           msglvl = mnaup2
 735  c
 736 @@ -755,7 +755,7 @@ c        | the first step of the next ca
 737  c        %---------------------------------------------%
 738  c
 739           cnorm = .true.
 740 -         call second (t2)
 741 +         call arscnd (t2)
 742           if (bmat .eq. 'G') then
 743              nbx = nbx + 1
 744              call dcopy (n, resid, 1, workd(n+1), 1)
 745 @@ -780,7 +780,7 @@ c        | WORKD(1:N) := B*RESID
 746  c        %----------------------------------%
 747  c
 748           if (bmat .eq. 'G') then
 749 -            call second (t3)
 750 +            call arscnd (t3)
 751              tmvbx = tmvbx + (t3 - t2)
 752           end if
 753  c
 754 @@ -819,7 +819,7 @@ c     %------------%
 755  c     | Error Exit |
 756  c     %------------%
 757  c
 758 -      call second (t1)
 759 +      call arscnd (t1)
 760        tnaup2 = t1 - t0
 761  c
 762   9000 continue
 763 diff -urN original/ARPACK/SRC/dnaupd.f ARPACK/SRC/dnaupd.f
 764 --- original/ARPACK/SRC/dnaupd.f        2002-08-23 07:29:34.000000000 +0200
 765 +++ ARPACK/SRC/dnaupd.f 2005-06-30 23:20:38.906790031 +0200
 766 @@ -379,7 +379,7 @@
 767  c     dnaup2  ARPACK routine that implements the Implicitly Restarted
 768  c             Arnoldi Iteration.
 769  c     ivout   ARPACK utility routine that prints integers.
 770 -c     second  ARPACK utility routine for timing.
 771 +c     arscnd  ARPACK utility routine for timing.
 772  c     dvout   ARPACK utility routine that prints vectors.
 773  c     dlamch  LAPACK routine that determines machine constants.
 774  c
 775 @@ -454,7 +454,7 @@
 776  c     | External Subroutines |
 777  c     %----------------------%
 778  c
 779 -      external   dnaup2, dvout, ivout, second, dstatn
 780 +      external   dnaup2, dvout, ivout, arscnd, dstatn
 781  c
 782  c     %--------------------%
 783  c     | External Functions |
 784 @@ -476,7 +476,7 @@
 785  c        %-------------------------------%
 786  c
 787           call dstatn
 788 -         call second (t0)
 789 +         call arscnd (t0)
 790           msglvl = mnaupd
 791  c
 792  c        %----------------%
 793 @@ -640,7 +640,7 @@
 794       &               '_naupd: Associated Ritz estimates')
 795        end if
 796  c
 797 -      call second (t1)
 798 +      call arscnd (t1)
 799        tnaupd = t1 - t0
 800  c
 801        if (msglvl .gt. 0) then
 802 diff -urN original/ARPACK/SRC/dnconv.f ARPACK/SRC/dnconv.f
 803 --- original/ARPACK/SRC/dnconv.f        1996-04-20 18:27:05.000000000 +0200
 804 +++ ARPACK/SRC/dnconv.f 2005-06-30 23:20:38.907789915 +0200
 805 @@ -38,7 +38,7 @@
 806  c     xxxxxx  real
 807  c
 808  c\Routines called:
 809 -c     second  ARPACK utility routine for timing.
 810 +c     arscnd  ARPACK utility routine for timing.
 811  c     dlamch  LAPACK routine that determines machine constants.
 812  c     dlapy2  LAPACK routine to compute sqrt(x**2+y**2) carefully.
 813  c
 814 @@ -119,7 +119,7 @@
 815  c     | for some appropriate choice of norm.                        |
 816  c     %-------------------------------------------------------------%
 817  c
 818 -      call second (t0)
 819 +      call arscnd (t0)
 820  c
 821  c     %---------------------------------%
 822  c     | Get machine dependent constant. |
 823 @@ -134,7 +134,7 @@
 824           if (bounds(i) .le. tol*temp)   nconv = nconv + 1
 825     20 continue
 826  c
 827 -      call second (t1)
 828 +      call arscnd (t1)
 829        tnconv = tnconv + (t1 - t0)
 830  c
 831        return
 832 diff -urN original/ARPACK/SRC/dneigh.f ARPACK/SRC/dneigh.f
 833 --- original/ARPACK/SRC/dneigh.f        1996-04-20 18:27:06.000000000 +0200
 834 +++ ARPACK/SRC/dneigh.f 2005-06-30 23:20:38.909789681 +0200
 835 @@ -63,7 +63,7 @@
 836  c\Routines called:
 837  c     dlaqrb  ARPACK routine to compute the real Schur form of an
 838  c             upper Hessenberg matrix and last row of the Schur vectors.
 839 -c     second  ARPACK utility routine for timing.
 840 +c     arscnd  ARPACK utility routine for timing.
 841  c     dmout   ARPACK utility routine that prints matrices
 842  c     dvout   ARPACK utility routine that prints vectors.
 843  c     dlacpy  LAPACK matrix copy routine.
 844 @@ -144,7 +144,7 @@
 845  c     | External Subroutines |
 846  c     %----------------------%
 847  c
 848 -      external   dcopy, dlacpy, dlaqrb, dtrevc, dvout, second
 849 +      external   dcopy, dlacpy, dlaqrb, dtrevc, dvout, arscnd
 850  c
 851  c     %--------------------%
 852  c     | External Functions |
 853 @@ -170,7 +170,7 @@
 854  c     | & message level for debugging |
 855  c     %-------------------------------%
 856  c
 857 -      call second (t0)
 858 +      call arscnd (t0)
 859        msglvl = mneigh
 860  c
 861        if (msglvl .gt. 2) then
 862 @@ -301,7 +301,7 @@
 863       &              '_neigh: Ritz estimates for the eigenvalues of H')
 864        end if
 865  c
 866 -      call second (t1)
 867 +      call arscnd (t1)
 868        tneigh = tneigh + (t1 - t0)
 869  c
 870   9000 continue
 871 diff -urN original/ARPACK/SRC/dngets.f ARPACK/SRC/dngets.f
 872 --- original/ARPACK/SRC/dngets.f        1996-04-20 18:27:07.000000000 +0200
 873 +++ ARPACK/SRC/dngets.f 2005-06-30 23:20:38.918788630 +0200
 874 @@ -135,7 +135,7 @@
 875  c     | External Subroutines |
 876  c     %----------------------%
 877  c
 878 -      external   dcopy, dsortc, second
 879 +      external   dcopy, dsortc, arscnd
 880  c
 881  c     %----------------------%
 882  c     | Intrinsics Functions |
 883 @@ -152,7 +152,7 @@
 884  c     | & message level for debugging |
 885  c     %-------------------------------%
 886  c
 887 -      call second (t0)
 888 +      call arscnd (t0)
 889        msglvl = mngets
 890  c
 891  c     %----------------------------------------------------%
 892 @@ -208,7 +208,7 @@
 893           call dsortc ( 'SR', .true., np, bounds, ritzr, ritzi )
 894        end if
 895  c
 896 -      call second (t1)
 897 +      call arscnd (t1)
 898        tngets = tngets + (t1 - t0)
 899  c
 900        if (msglvl .gt. 0) then
 901 diff -urN original/ARPACK/SRC/dsaitr.f ARPACK/SRC/dsaitr.f
 902 --- original/ARPACK/SRC/dsaitr.f        1996-08-28 16:21:43.000000000 +0200
 903 +++ ARPACK/SRC/dsaitr.f 2005-06-30 23:20:38.923788047 +0200
 904 @@ -262,7 +262,7 @@
 905  c     %----------------------%
 906  c
 907        external   daxpy, dcopy, dscal, dgemv, dgetv0, dvout, dmout,
 908 -     &           dlascl, ivout, second
 909 +     &           dlascl, ivout, arscnd
 910  c
 911  c     %--------------------%
 912  c     | External Functions |
 913 @@ -300,7 +300,7 @@
 914  c        | & message level for debugging |
 915  c        %-------------------------------%
 916  c
 917 -         call second (t0)
 918 +         call arscnd (t0)
 919           msglvl = msaitr
 920  c
 921  c        %------------------------------%
 922 @@ -420,7 +420,7 @@
 923  c              %------------------------------------------------%
 924  c
 925                 info = j - 1
 926 -               call second (t1)
 927 +               call arscnd (t1)
 928                 tsaitr = tsaitr + (t1 - t0)
 929                 ido = 99
 930                 go to 9000
 931 @@ -460,7 +460,7 @@
 932  c
 933           step3 = .true.
 934           nopx  = nopx + 1
 935 -         call second (t2)
 936 +         call arscnd (t2)
 937           call dcopy (n, v(1,j), 1, workd(ivj), 1)
 938           ipntr(1) = ivj
 939           ipntr(2) = irj
 940 @@ -479,7 +479,7 @@
 941  c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
 942  c        %-----------------------------------%
 943  c
 944 -         call second (t3)
 945 +         call arscnd (t3)
 946           tmvopx = tmvopx + (t3 - t2)
 947  c
 948           step3 = .false.
 949 @@ -500,7 +500,7 @@
 950  c        %-------------------------------------------%
 951  c
 952           if (mode .eq. 2) go to 65
 953 -         call second (t2)
 954 +         call arscnd (t2)
 955           if (bmat .eq. 'G') then
 956              nbx = nbx + 1
 957              step4 = .true.
 958 @@ -524,7 +524,7 @@
 959  c        %-----------------------------------%
 960  c
 961           if (bmat .eq. 'G') then
 962 -            call second (t3)
 963 +            call arscnd (t3)
 964              tmvbx = tmvbx + (t3 - t2)
 965           end if
 966  c
 967 @@ -592,12 +592,12 @@
 968           else
 969              h(j,1) = rnorm
 970           end if
 971 -         call second (t4)
 972 +         call arscnd (t4)
 973  c
 974           orth1 = .true.
 975           iter  = 0
 976  c
 977 -         call second (t2)
 978 +         call arscnd (t2)
 979           if (bmat .eq. 'G') then
 980              nbx = nbx + 1
 981              call dcopy (n, resid, 1, workd(irj), 1)
 982 @@ -621,7 +621,7 @@
 983  c        %---------------------------------------------------%
 984  c
 985           if (bmat .eq. 'G') then
 986 -            call second (t3)
 987 +            call arscnd (t3)
 988              tmvbx = tmvbx + (t3 - t2)
 989           end if
 990  c
 991 @@ -695,7 +695,7 @@
 992           h(j,2) = h(j,2) + workd(irj + j - 1)
 993  c
 994           orth2 = .true.
 995 -         call second (t2)
 996 +         call arscnd (t2)
 997           if (bmat .eq. 'G') then
 998              nbx = nbx + 1
 999              call dcopy (n, resid, 1, workd(irj), 1)
1000 @@ -719,7 +719,7 @@
1001  c        %---------------------------------------------------%
1002  c
1003           if (bmat .eq. 'G') then
1004 -            call second (t3)
1005 +            call arscnd (t3)
1006              tmvbx = tmvbx + (t3 - t2)
1007           end if
1008  c
1009 @@ -791,7 +791,7 @@
1010           rstart = .false.
1011           orth2  = .false.
1012  c
1013 -         call second (t5)
1014 +         call arscnd (t5)
1015           titref = titref + (t5 - t4)
1016  c
1017  c        %----------------------------------------------------------%
1018 @@ -815,7 +815,7 @@
1019  c
1020           j = j + 1
1021           if (j .gt. k+np) then
1022 -            call second (t1)
1023 +            call arscnd (t1)
1024              tsaitr = tsaitr + (t1 - t0)
1025              ido = 99
1026  c
1027 diff -urN original/ARPACK/SRC/dsapps.f ARPACK/SRC/dsapps.f
1028 --- original/ARPACK/SRC/dsapps.f        1998-05-20 16:58:59.000000000 +0200
1029 +++ ARPACK/SRC/dsapps.f 2005-06-30 23:20:38.926787696 +0200
1030 @@ -91,7 +91,7 @@
1031  c
1032  c\Routines called:
1033  c     ivout   ARPACK utility routine that prints integers.
1034 -c     second  ARPACK utility routine for timing.
1035 +c     arscnd  ARPACK utility routine for timing.
1036  c     dvout   ARPACK utility routine that prints vectors.
1037  c     dlamch  LAPACK routine that determines machine constants.
1038  c     dlartg  LAPACK Givens rotation construction routine.
1039 @@ -176,7 +176,7 @@
1040  c     %----------------------%
1041  c
1042        external   daxpy, dcopy, dscal, dlacpy, dlartg, dlaset, dvout,
1043 -     &           ivout, second, dgemv
1044 +     &           ivout, arscnd, dgemv
1045  c
1046  c     %--------------------%
1047  c     | External Functions |
1048 @@ -213,7 +213,7 @@
1049  c     | & message level for debugging |
1050  c     %-------------------------------%
1051  c
1052 -      call second (t0)
1053 +      call arscnd (t0)
1054        msglvl = msapps
1055  c
1056        kplusp = kev + np
1057 @@ -503,7 +503,7 @@
1058           end if
1059        end if
1060  c
1061 -      call second (t1)
1062 +      call arscnd (t1)
1063        tsapps = tsapps + (t1 - t0)
1064  c
1065   9000 continue
1066 diff -urN original/ARPACK/SRC/dsaup2.f ARPACK/SRC/dsaup2.f
1067 --- original/ARPACK/SRC/dsaup2.f        1998-05-20 16:59:00.000000000 +0200
1068 +++ ARPACK/SRC/dsaup2.f 2005-06-30 23:20:38.933786879 +0200
1069 @@ -148,7 +148,7 @@
1070  c     dsgets  ARPACK reorder Ritz values and error bounds routine.
1071  c     dsortr  ARPACK sorting routine.
1072  c     ivout   ARPACK utility routine that prints integers.
1073 -c     second  ARPACK utility routine for timing.
1074 +c     arscnd  ARPACK utility routine for timing.
1075  c     dvout   ARPACK utility routine that prints vectors.
1076  c     dlamch  LAPACK routine that determines machine constants.
1077  c     dcopy   Level 1 BLAS that copies one vector to another.
1078 @@ -235,7 +235,7 @@
1079  c     %----------------------%
1080  c
1081        external   dcopy, dgetv0, dsaitr, dscal, dsconv, dseigt, dsgets,
1082 -     &           dsapps, dsortr, dvout, ivout, second, dswap
1083 +     &           dsapps, dsortr, dvout, ivout, arscnd, dswap
1084  c
1085  c     %--------------------%
1086  c     | External Functions |
1087 @@ -262,7 +262,7 @@
1088  c        | & message level for debugging |
1089  c        %-------------------------------%
1090  c
1091 -         call second (t0)
1092 +         call arscnd (t0)
1093           msglvl = msaup2
1094  c
1095  c        %---------------------------------%
1096 @@ -770,7 +770,7 @@
1097  c        %---------------------------------------------%
1098  c
1099           cnorm = .true.
1100 -         call second (t2)
1101 +         call arscnd (t2)
1102           if (bmat .eq. 'G') then
1103              nbx = nbx + 1
1104              call dcopy (n, resid, 1, workd(n+1), 1)
1105 @@ -795,7 +795,7 @@
1106  c        %----------------------------------%
1107  c
1108           if (bmat .eq. 'G') then
1109 -            call second (t3)
1110 +            call arscnd (t3)
1111              tmvbx = tmvbx + (t3 - t2)
1112           end if
1113  c
1114 @@ -837,7 +837,7 @@
1115  c     | Error exit |
1116  c     %------------%
1117  c
1118 -      call second (t1)
1119 +      call arscnd (t1)
1120        tsaup2 = t1 - t0
1121  c
1122   9000 continue
1123 --- ARPACK/SRC/dsaupd.f.orig    1996-08-27 07:28:56.000000000 +0200
1124 +++ ARPACK/SRC/dsaupd.f 2022-12-15 21:14:09.256722054 +0100
1125 @@ -380,7 +380,7 @@ c             Arnoldi Iteration.
1126  c     dstats  ARPACK routine that initialize timing and other statistics
1127  c             variables.
1128  c     ivout   ARPACK utility routine that prints integers.
1129 -c     second  ARPACK utility routine for timing.
1130 +c     arscnd  ARPACK utility routine for timing.
1131  c     dvout   ARPACK utility routine that prints vectors.
1132  c     dlamch  LAPACK routine that determines machine constants.
1133  c
1134 @@ -456,7 +456,7 @@ c     %----------------------%
1135  c     | External Subroutines |
1136  c     %----------------------%
1137  c
1138 -      external   dsaup2,  dvout, ivout, second, dstats
1139 +      external   dsaup2,  dvout, ivout, arscnd, dstats
1140  c
1141  c     %--------------------%
1142  c     | External Functions |
1143 @@ -478,7 +478,7 @@ c        | & message level for debugging
1144  c        %-------------------------------%
1145  c
1146           call dstats
1147 -         call second (t0)
1148 +         call arscnd (t0)
1149           msglvl = msaupd
1150  c
1151           ierr   = 0
1152 @@ -637,7 +637,7 @@ c
1153       &               '_saupd: corresponding error bounds')
1154        end if
1155  c
1156 -      call second (t1)
1157 +      call arscnd (t1)
1158        tsaupd = t1 - t0
1159  c
1160        if (msglvl .gt. 0) then
1161 diff -urN original/ARPACK/SRC/dsconv.f ARPACK/SRC/dsconv.f
1162 --- original/ARPACK/SRC/dsconv.f        1996-04-20 18:27:11.000000000 +0200
1163 +++ ARPACK/SRC/dsconv.f 2005-06-30 23:20:38.939786179 +0200
1164 @@ -34,7 +34,7 @@
1165  c\BeginLib
1166  c
1167  c\Routines called:
1168 -c     second  ARPACK utility routine for timing.
1169 +c     arscnd  ARPACK utility routine for timing.
1170  c     dlamch  LAPACK routine that determines machine constants.
1171  c
1172  c\Author
1173 @@ -106,7 +106,7 @@
1174  c     | Executable Statements |
1175  c     %-----------------------%
1176  c
1177 -      call second (t0)
1178 +      call arscnd (t0)
1179  c
1180        eps23 = dlamch('Epsilon-Machine')
1181        eps23 = eps23**(2.0D+0 / 3.0D+0)
1182 @@ -126,7 +126,7 @@
1183  c
1184     10 continue
1185  c
1186 -      call second (t1)
1187 +      call arscnd (t1)
1188        tsconv = tsconv + (t1 - t0)
1189  c
1190        return
1191 diff -urN original/ARPACK/SRC/dseigt.f ARPACK/SRC/dseigt.f
1192 --- original/ARPACK/SRC/dseigt.f        1996-08-27 07:29:04.000000000 +0200
1193 +++ ARPACK/SRC/dseigt.f 2005-06-30 23:20:38.940786062 +0200
1194 @@ -59,7 +59,7 @@
1195  c     dstqrb  ARPACK routine that computes the eigenvalues and the
1196  c             last components of the eigenvectors of a symmetric
1197  c             and tridiagonal matrix.
1198 -c     second  ARPACK utility routine for timing.
1199 +c     arscnd  ARPACK utility routine for timing.
1200  c     dvout   ARPACK utility routine that prints vectors.
1201  c     dcopy   Level 1 BLAS that copies one vector to another.
1202  c
1203 @@ -127,7 +127,7 @@
1204  c     | External Subroutines |
1205  c     %----------------------%
1206  c
1207 -      external   dcopy, dstqrb, dvout, second
1208 +      external   dcopy, dstqrb, dvout, arscnd
1209  c
1210  c     %-----------------------%
1211  c     | Executable Statements |
1212 @@ -138,7 +138,7 @@
1213  c     | & message level for debugging |
1214  c     %-------------------------------%
1215  c
1216 -      call second (t0)
1217 +      call arscnd (t0)
1218        msglvl = mseigt
1219  c
1220        if (msglvl .gt. 0) then
1221 @@ -168,7 +168,7 @@
1222           bounds(k) = rnorm*abs(bounds(k))
1223     30 continue
1224  c
1225 -      call second (t1)
1226 +      call arscnd (t1)
1227        tseigt = tseigt + (t1 - t0)
1228  c
1229   9000 continue
1230 diff -urN original/ARPACK/SRC/dsgets.f ARPACK/SRC/dsgets.f
1231 --- original/ARPACK/SRC/dsgets.f        1996-04-20 18:27:14.000000000 +0200
1232 +++ ARPACK/SRC/dsgets.f 2005-06-30 23:20:38.949785011 +0200
1233 @@ -65,7 +65,7 @@
1234  c\Routines called:
1235  c     dsortr  ARPACK utility sorting routine.
1236  c     ivout   ARPACK utility routine that prints integers.
1237 -c     second  ARPACK utility routine for timing.
1238 +c     arscnd  ARPACK utility routine for timing.
1239  c     dvout   ARPACK utility routine that prints vectors.
1240  c     dcopy   Level 1 BLAS that copies one vector to another.
1241  c     dswap   Level 1 BLAS that swaps the contents of two vectors.
1242 @@ -131,7 +131,7 @@
1243  c     | External Subroutines |
1244  c     %----------------------%
1245  c
1246 -      external   dswap, dcopy, dsortr, second
1247 +      external   dswap, dcopy, dsortr, arscnd
1248  c
1249  c     %---------------------%
1250  c     | Intrinsic Functions |
1251 @@ -148,7 +148,7 @@
1252  c     | & message level for debugging |
1253  c     %-------------------------------%
1254  c
1255 -      call second (t0)
1256 +      call arscnd (t0)
1257        msglvl = msgets
1258  c
1259        if (which .eq. 'BE') then
1260 @@ -198,7 +198,7 @@
1261           call dcopy (np, ritz, 1, shifts, 1)
1262        end if
1263  c
1264 -      call second (t1)
1265 +      call arscnd (t1)
1266        tsgets = tsgets + (t1 - t0)
1267  c
1268        if (msglvl .gt. 0) then
1269 diff -urN original/ARPACK/SRC/sgetv0.f ARPACK/SRC/sgetv0.f
1270 --- original/ARPACK/SRC/sgetv0.f        1999-04-08 00:42:46.000000000 +0200
1271 +++ ARPACK/SRC/sgetv0.f 2005-06-30 23:20:38.960783727 +0200
1272 @@ -93,7 +93,7 @@
1273  c     TR95-13, Department of Computational and Applied Mathematics.
1274  c
1275  c\Routines called:
1276 -c     second  ARPACK utility routine for timing.
1277 +c     arscnd  ARPACK utility routine for timing.
1278  c     svout   ARPACK utility routine for vector output.
1279  c     slarnv  LAPACK routine for generating a random vector.
1280  c     sgemv   Level 2 BLAS routine for matrix vector multiplication.
1281 @@ -167,7 +167,7 @@
1282  c     | External Subroutines |
1283  c     %----------------------%
1284  c
1285 -      external   slarnv, svout, scopy, sgemv, second
1286 +      external   slarnv, svout, scopy, sgemv, arscnd
1287  c
1288  c     %--------------------%
1289  c     | External Functions |
1290 @@ -214,7 +214,7 @@
1291  c        | & message level for debugging |
1292  c        %-------------------------------%
1293  c
1294 -         call second (t0)
1295 +         call arscnd (t0)
1296           msglvl = mgetv0
1297  c
1298           ierr   = 0
1299 @@ -241,7 +241,7 @@
1300  c        | the generalized problem when B is possibly (singular).   |
1301  c        %----------------------------------------------------------%
1302  c
1303 -         call second (t2)
1304 +         call arscnd (t2)
1305           if (bmat .eq. 'G') then
1306              nopx = nopx + 1
1307              ipntr(1) = 1
1308 @@ -265,7 +265,7 @@
1309        if (orth)  go to 40
1310  c
1311        if (bmat .eq. 'G') then
1312 -         call second (t3)
1313 +         call arscnd (t3)
1314           tmvopx = tmvopx + (t3 - t2)
1315        end if
1316  c
1317 @@ -274,7 +274,7 @@
1318  c     | Compute B-norm of starting vector.                   |
1319  c     %------------------------------------------------------%
1320  c
1321 -      call second (t2)
1322 +      call arscnd (t2)
1323        first = .TRUE.
1324        if (bmat .eq. 'G') then
1325           nbx = nbx + 1
1326 @@ -290,7 +290,7 @@
1327     20 continue
1328  c
1329        if (bmat .eq. 'G') then
1330 -         call second (t3)
1331 +         call arscnd (t3)
1332           tmvbx = tmvbx + (t3 - t2)
1333        end if
1334  c
1335 @@ -333,7 +333,7 @@
1336  c     | Compute the B-norm of the orthogonalized starting vector |
1337  c     %----------------------------------------------------------%
1338  c
1339 -      call second (t2)
1340 +      call arscnd (t2)
1341        if (bmat .eq. 'G') then
1342           nbx = nbx + 1
1343           call scopy (n, resid, 1, workd(n+1), 1)
1344 @@ -348,7 +348,7 @@
1345     40 continue
1346  c
1347        if (bmat .eq. 'G') then
1348 -         call second (t3)
1349 +         call arscnd (t3)
1350           tmvbx = tmvbx + (t3 - t2)
1351        end if
1352  c
1353 @@ -406,7 +406,7 @@
1354        end if
1355        ido = 99
1356  c
1357 -      call second (t1)
1358 +      call arscnd (t1)
1359        tgetv0 = tgetv0 + (t1 - t0)
1360  c
1361   9000 continue
1362 diff -urN original/ARPACK/SRC/snaitr.f ARPACK/SRC/snaitr.f
1363 --- original/ARPACK/SRC/snaitr.f        1996-08-27 18:09:01.000000000 +0200
1364 +++ ARPACK/SRC/snaitr.f 2005-06-30 23:20:38.969782676 +0200
1365 @@ -132,7 +132,7 @@
1366  c\Routines called:
1367  c     sgetv0  ARPACK routine to generate the initial vector.
1368  c     ivout   ARPACK utility routine that prints integers.
1369 -c     second  ARPACK utility routine for timing.
1370 +c     arscnd  ARPACK utility routine for timing.
1371  c     smout   ARPACK utility routine that prints matrices
1372  c     svout   ARPACK utility routine that prints vectors.
1373  c     slabad  LAPACK routine that computes machine constants.
1374 @@ -268,7 +268,7 @@
1375  c     %----------------------%
1376  c
1377        external   saxpy, scopy, sscal, sgemv, sgetv0, slabad,
1378 -     &           svout, smout, ivout, second
1379 +     &           svout, smout, ivout, arscnd
1380  c
1381  c     %--------------------%
1382  c     | External Functions |
1383 @@ -319,7 +319,7 @@
1384  c        | & message level for debugging |
1385  c        %-------------------------------%
1386  c
1387 -         call second (t0)
1388 +         call arscnd (t0)
1389           msglvl = mnaitr
1390  c
1391  c        %------------------------------%
1392 @@ -430,7 +430,7 @@
1393  c              %------------------------------------------------%
1394  c
1395                 info = j - 1
1396 -               call second (t1)
1397 +               call arscnd (t1)
1398                 tnaitr = tnaitr + (t1 - t0)
1399                 ido = 99
1400                 go to 9000
1401 @@ -470,7 +470,7 @@
1402  c
1403           step3 = .true.
1404           nopx  = nopx + 1
1405 -         call second (t2)
1406 +         call arscnd (t2)
1407           call scopy (n, v(1,j), 1, workd(ivj), 1)
1408           ipntr(1) = ivj
1409           ipntr(2) = irj
1410 @@ -490,7 +490,7 @@
1411  c        | if step3 = .true.                |
1412  c        %----------------------------------%
1413  c
1414 -         call second (t3)
1415 +         call arscnd (t3)
1416           tmvopx = tmvopx + (t3 - t2)
1417
1418           step3 = .false.
1419 @@ -506,7 +506,7 @@
1420  c        |          factorization to length j.   |
1421  c        %---------------------------------------%
1422  c
1423 -         call second (t2)
1424 +         call arscnd (t2)
1425           if (bmat .eq. 'G') then
1426              nbx = nbx + 1
1427              step4 = .true.
1428 @@ -531,7 +531,7 @@
1429  c        %----------------------------------%
1430  c
1431           if (bmat .eq. 'G') then
1432 -            call second (t3)
1433 +            call arscnd (t3)
1434              tmvbx = tmvbx + (t3 - t2)
1435           end if
1436  c
1437 @@ -576,11 +576,11 @@
1438  c
1439           if (j .gt. 1) h(j,j-1) = betaj
1440  c
1441 -         call second (t4)
1442 +         call arscnd (t4)
1443  c
1444           orth1 = .true.
1445  c
1446 -         call second (t2)
1447 +         call arscnd (t2)
1448           if (bmat .eq. 'G') then
1449              nbx = nbx + 1
1450              call scopy (n, resid, 1, workd(irj), 1)
1451 @@ -604,7 +604,7 @@
1452  c        %---------------------------------------------------%
1453  c
1454           if (bmat .eq. 'G') then
1455 -            call second (t3)
1456 +            call arscnd (t3)
1457              tmvbx = tmvbx + (t3 - t2)
1458           end if
1459  c
1460 @@ -681,7 +681,7 @@
1461           call saxpy (j, one, workd(irj), 1, h(1,j), 1)
1462  c
1463           orth2 = .true.
1464 -         call second (t2)
1465 +         call arscnd (t2)
1466           if (bmat .eq. 'G') then
1467              nbx = nbx + 1
1468              call scopy (n, resid, 1, workd(irj), 1)
1469 @@ -705,7 +705,7 @@
1470  c        %---------------------------------------------------%
1471  c
1472           if (bmat .eq. 'G') then
1473 -            call second (t3)
1474 +            call arscnd (t3)
1475              tmvbx = tmvbx + (t3 - t2)
1476           end if
1477  c
1478 @@ -783,7 +783,7 @@
1479           rstart = .false.
1480           orth2  = .false.
1481  c
1482 -         call second (t5)
1483 +         call arscnd (t5)
1484           titref = titref + (t5 - t4)
1485  c
1486  c        %------------------------------------%
1487 @@ -792,7 +792,7 @@
1488  c
1489           j = j + 1
1490           if (j .gt. k+np) then
1491 -            call second (t1)
1492 +            call arscnd (t1)
1493              tnaitr = tnaitr + (t1 - t0)
1494              ido = 99
1495              do 110 i = max(1,k), k+np-1
1496 diff -urN original/ARPACK/SRC/snapps.f ARPACK/SRC/snapps.f
1497 --- original/ARPACK/SRC/snapps.f        1998-05-20 16:58:55.000000000 +0200
1498 +++ ARPACK/SRC/snapps.f 2005-06-30 23:20:38.973782209 +0200
1499 @@ -97,7 +97,7 @@
1500  c
1501  c\Routines called:
1502  c     ivout   ARPACK utility routine that prints integers.
1503 -c     second  ARPACK utility routine for timing.
1504 +c     arscnd  ARPACK utility routine for timing.
1505  c     smout   ARPACK utility routine that prints matrices.
1506  c     svout   ARPACK utility routine that prints vectors.
1507  c     slabad  LAPACK routine that computes machine constants.
1508 @@ -189,7 +189,7 @@
1509  c     %----------------------%
1510  c
1511        external   saxpy, scopy, sscal, slacpy, slarfg, slarf,
1512 -     &           slaset, slabad, second, slartg
1513 +     &           slaset, slabad, arscnd, slartg
1514  c
1515  c     %--------------------%
1516  c     | External Functions |
1517 @@ -237,7 +237,7 @@
1518  c     | & message level for debugging |
1519  c     %-------------------------------%
1520  c
1521 -      call second (t0)
1522 +      call arscnd (t0)
1523        msglvl = mnapps
1524        kplusp = kev + np
1525  c
1526 @@ -635,7 +635,7 @@
1527        end if
1528  c
1529   9000 continue
1530 -      call second (t1)
1531 +      call arscnd (t1)
1532        tnapps = tnapps + (t1 - t0)
1533  c
1534        return
1535 --- ARPACK/SRC/snaup2.f.orig    1996-08-16 22:28:10.000000000 +0200
1536 +++ ARPACK/SRC/snaup2.f 2022-12-15 21:16:41.849228723 +0100
1537 @@ -143,7 +143,7 @@ c     sneigh  ARPACK compute Ritz values
1538  c     sngets  ARPACK reorder Ritz values and error bounds routine.
1539  c     ssortc  ARPACK sorting routine.
1540  c     ivout   ARPACK utility routine that prints integers.
1541 -c     second  ARPACK utility routine for timing.
1542 +c     arscnd  ARPACK utility routine for timing.
1543  c     smout   ARPACK utility routine that prints matrices
1544  c     svout   ARPACK utility routine that prints vectors.
1545  c     slamch  LAPACK routine that determines machine constants.
1546 @@ -234,7 +234,7 @@ c     | External Subroutines |
1547  c     %----------------------%
1548  c
1549        external   scopy, sgetv0, snaitr, snconv, sneigh, sngets, snapps,
1550 -     &           svout, ivout, second
1551 +     &           svout, ivout, arscnd
1552  c
1553  c     %--------------------%
1554  c     | External Functions |
1555 @@ -256,7 +256,7 @@ c     %-----------------------%
1556  c
1557        if (ido .eq. 0) then
1558  c
1559 -         call second (t0)
1560 +         call arscnd (t0)
1561  c
1562           msglvl = mnaup2
1563  c
1564 @@ -755,7 +755,7 @@ c        | the first step of the next ca
1565  c        %---------------------------------------------%
1566  c
1567           cnorm = .true.
1568 -         call second (t2)
1569 +         call arscnd (t2)
1570           if (bmat .eq. 'G') then
1571              nbx = nbx + 1
1572              call scopy (n, resid, 1, workd(n+1), 1)
1573 @@ -780,7 +780,7 @@ c        | WORKD(1:N) := B*RESID
1574  c        %----------------------------------%
1575  c
1576           if (bmat .eq. 'G') then
1577 -            call second (t3)
1578 +            call arscnd (t3)
1579              tmvbx = tmvbx + (t3 - t2)
1580           end if
1581  c
1582 @@ -819,7 +819,7 @@ c     %------------%
1583  c     | Error Exit |
1584  c     %------------%
1585  c
1586 -      call second (t1)
1587 +      call arscnd (t1)
1588        tnaup2 = t1 - t0
1589  c
1590   9000 continue
1591 diff -urN original/ARPACK/SRC/snaupd.f ARPACK/SRC/snaupd.f
1592 --- original/ARPACK/SRC/snaupd.f        2002-08-23 07:29:34.000000000 +0200
1593 +++ ARPACK/SRC/snaupd.f 2005-06-30 23:20:38.984780925 +0200
1594 @@ -379,7 +379,7 @@
1595  c     snaup2  ARPACK routine that implements the Implicitly Restarted
1596  c             Arnoldi Iteration.
1597  c     ivout   ARPACK utility routine that prints integers.
1598 -c     second  ARPACK utility routine for timing.
1599 +c     arscnd  ARPACK utility routine for timing.
1600  c     svout   ARPACK utility routine that prints vectors.
1601  c     slamch  LAPACK routine that determines machine constants.
1602  c
1603 @@ -454,7 +454,7 @@
1604  c     | External Subroutines |
1605  c     %----------------------%
1606  c
1607 -      external   snaup2, svout, ivout, second, sstatn
1608 +      external   snaup2, svout, ivout, arscnd, sstatn
1609  c
1610  c     %--------------------%
1611  c     | External Functions |
1612 @@ -476,7 +476,7 @@
1613  c        %-------------------------------%
1614  c
1615           call sstatn
1616 -         call second (t0)
1617 +         call arscnd (t0)
1618           msglvl = mnaupd
1619  c
1620  c        %----------------%
1621 @@ -640,7 +640,7 @@
1622       &               '_naupd: Associated Ritz estimates')
1623        end if
1624  c
1625 -      call second (t1)
1626 +      call arscnd (t1)
1627        tnaupd = t1 - t0
1628  c
1629        if (msglvl .gt. 0) then
1630 diff -urN original/ARPACK/SRC/snconv.f ARPACK/SRC/snconv.f
1631 --- original/ARPACK/SRC/snconv.f        1996-04-20 18:27:21.000000000 +0200
1632 +++ ARPACK/SRC/snconv.f 2005-06-30 23:20:38.985780808 +0200
1633 @@ -38,7 +38,7 @@
1634  c     xxxxxx  real
1635  c
1636  c\Routines called:
1637 -c     second  ARPACK utility routine for timing.
1638 +c     arscnd  ARPACK utility routine for timing.
1639  c     slamch  LAPACK routine that determines machine constants.
1640  c     slapy2  LAPACK routine to compute sqrt(x**2+y**2) carefully.
1641  c
1642 @@ -119,7 +119,7 @@
1643  c     | for some appropriate choice of norm.                        |
1644  c     %-------------------------------------------------------------%
1645  c
1646 -      call second (t0)
1647 +      call arscnd (t0)
1648  c
1649  c     %---------------------------------%
1650  c     | Get machine dependent constant. |
1651 @@ -134,7 +134,7 @@
1652           if (bounds(i) .le. tol*temp)   nconv = nconv + 1
1653     20 continue
1654  c
1655 -      call second (t1)
1656 +      call arscnd (t1)
1657        tnconv = tnconv + (t1 - t0)
1658  c
1659        return
1660 diff -urN original/ARPACK/SRC/sneigh.f ARPACK/SRC/sneigh.f
1661 --- original/ARPACK/SRC/sneigh.f        1996-04-20 18:27:22.000000000 +0200
1662 +++ ARPACK/SRC/sneigh.f 2005-06-30 23:20:38.987780575 +0200
1663 @@ -63,7 +63,7 @@
1664  c\Routines called:
1665  c     slaqrb  ARPACK routine to compute the real Schur form of an
1666  c             upper Hessenberg matrix and last row of the Schur vectors.
1667 -c     second  ARPACK utility routine for timing.
1668 +c     arscnd  ARPACK utility routine for timing.
1669  c     smout   ARPACK utility routine that prints matrices
1670  c     svout   ARPACK utility routine that prints vectors.
1671  c     slacpy  LAPACK matrix copy routine.
1672 @@ -144,7 +144,7 @@
1673  c     | External Subroutines |
1674  c     %----------------------%
1675  c
1676 -      external   scopy, slacpy, slaqrb, strevc, svout, second
1677 +      external   scopy, slacpy, slaqrb, strevc, svout, arscnd
1678  c
1679  c     %--------------------%
1680  c     | External Functions |
1681 @@ -170,7 +170,7 @@
1682  c     | & message level for debugging |
1683  c     %-------------------------------%
1684  c
1685 -      call second (t0)
1686 +      call arscnd (t0)
1687        msglvl = mneigh
1688  c
1689        if (msglvl .gt. 2) then
1690 @@ -301,7 +301,7 @@
1691       &              '_neigh: Ritz estimates for the eigenvalues of H')
1692        end if
1693  c
1694 -      call second (t1)
1695 +      call arscnd (t1)
1696        tneigh = tneigh + (t1 - t0)
1697  c
1698   9000 continue
1699 diff -urN original/ARPACK/SRC/sngets.f ARPACK/SRC/sngets.f
1700 --- original/ARPACK/SRC/sngets.f        1996-04-20 18:27:24.000000000 +0200
1701 +++ ARPACK/SRC/sngets.f 2005-06-30 23:20:38.995779641 +0200
1702 @@ -135,7 +135,7 @@
1703  c     | External Subroutines |
1704  c     %----------------------%
1705  c
1706 -      external   scopy, ssortc, second
1707 +      external   scopy, ssortc, arscnd
1708  c
1709  c     %----------------------%
1710  c     | Intrinsics Functions |
1711 @@ -152,7 +152,7 @@
1712  c     | & message level for debugging |
1713  c     %-------------------------------%
1714  c
1715 -      call second (t0)
1716 +      call arscnd (t0)
1717        msglvl = mngets
1718  c
1719  c     %----------------------------------------------------%
1720 @@ -208,7 +208,7 @@
1721           call ssortc ( 'SR', .true., np, bounds, ritzr, ritzi )
1722        end if
1723  c
1724 -      call second (t1)
1725 +      call arscnd (t1)
1726        tngets = tngets + (t1 - t0)
1727  c
1728        if (msglvl .gt. 0) then
1729 diff -urN original/ARPACK/SRC/ssaitr.f ARPACK/SRC/ssaitr.f
1730 --- original/ARPACK/SRC/ssaitr.f        1996-08-28 16:21:43.000000000 +0200
1731 +++ ARPACK/SRC/ssaitr.f 2005-06-30 23:20:39.001778940 +0200
1732 @@ -262,7 +262,7 @@
1733  c     %----------------------%
1734  c
1735        external   saxpy, scopy, sscal, sgemv, sgetv0, svout, smout,
1736 -     &           slascl, ivout, second
1737 +     &           slascl, ivout, arscnd
1738  c
1739  c     %--------------------%
1740  c     | External Functions |
1741 @@ -300,7 +300,7 @@
1742  c        | & message level for debugging |
1743  c        %-------------------------------%
1744  c
1745 -         call second (t0)
1746 +         call arscnd (t0)
1747           msglvl = msaitr
1748  c
1749  c        %------------------------------%
1750 @@ -420,7 +420,7 @@
1751  c              %------------------------------------------------%
1752  c
1753                 info = j - 1
1754 -               call second (t1)
1755 +               call arscnd (t1)
1756                 tsaitr = tsaitr + (t1 - t0)
1757                 ido = 99
1758                 go to 9000
1759 @@ -460,7 +460,7 @@
1760  c
1761           step3 = .true.
1762           nopx  = nopx + 1
1763 -         call second (t2)
1764 +         call arscnd (t2)
1765           call scopy (n, v(1,j), 1, workd(ivj), 1)
1766           ipntr(1) = ivj
1767           ipntr(2) = irj
1768 @@ -479,7 +479,7 @@
1769  c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
1770  c        %-----------------------------------%
1771  c
1772 -         call second (t3)
1773 +         call arscnd (t3)
1774           tmvopx = tmvopx + (t3 - t2)
1775  c
1776           step3 = .false.
1777 @@ -500,7 +500,7 @@
1778  c        %-------------------------------------------%
1779  c
1780           if (mode .eq. 2) go to 65
1781 -         call second (t2)
1782 +         call arscnd (t2)
1783           if (bmat .eq. 'G') then
1784              nbx = nbx + 1
1785              step4 = .true.
1786 @@ -524,7 +524,7 @@
1787  c        %-----------------------------------%
1788  c
1789           if (bmat .eq. 'G') then
1790 -            call second (t3)
1791 +            call arscnd (t3)
1792              tmvbx = tmvbx + (t3 - t2)
1793           end if
1794  c
1795 @@ -592,12 +592,12 @@
1796           else
1797              h(j,1) = rnorm
1798           end if
1799 -         call second (t4)
1800 +         call arscnd (t4)
1801  c
1802           orth1 = .true.
1803           iter  = 0
1804  c
1805 -         call second (t2)
1806 +         call arscnd (t2)
1807           if (bmat .eq. 'G') then
1808              nbx = nbx + 1
1809              call scopy (n, resid, 1, workd(irj), 1)
1810 @@ -621,7 +621,7 @@
1811  c        %---------------------------------------------------%
1812  c
1813           if (bmat .eq. 'G') then
1814 -            call second (t3)
1815 +            call arscnd (t3)
1816              tmvbx = tmvbx + (t3 - t2)
1817           end if
1818  c
1819 @@ -695,7 +695,7 @@
1820           h(j,2) = h(j,2) + workd(irj + j - 1)
1821  c
1822           orth2 = .true.
1823 -         call second (t2)
1824 +         call arscnd (t2)
1825           if (bmat .eq. 'G') then
1826              nbx = nbx + 1
1827              call scopy (n, resid, 1, workd(irj), 1)
1828 @@ -719,7 +719,7 @@
1829  c        %---------------------------------------------------%
1830  c
1831           if (bmat .eq. 'G') then
1832 -            call second (t3)
1833 +            call arscnd (t3)
1834              tmvbx = tmvbx + (t3 - t2)
1835           end if
1836  c
1837 @@ -791,7 +791,7 @@
1838           rstart = .false.
1839           orth2  = .false.
1840  c
1841 -         call second (t5)
1842 +         call arscnd (t5)
1843           titref = titref + (t5 - t4)
1844  c
1845  c        %----------------------------------------------------------%
1846 @@ -815,7 +815,7 @@
1847  c
1848           j = j + 1
1849           if (j .gt. k+np) then
1850 -            call second (t1)
1851 +            call arscnd (t1)
1852              tsaitr = tsaitr + (t1 - t0)
1853              ido = 99
1854  c
1855 diff -urN original/ARPACK/SRC/ssapps.f ARPACK/SRC/ssapps.f
1856 --- original/ARPACK/SRC/ssapps.f        1998-05-20 16:58:58.000000000 +0200
1857 +++ ARPACK/SRC/ssapps.f 2005-06-30 23:20:39.004778590 +0200
1858 @@ -91,7 +91,7 @@
1859  c
1860  c\Routines called:
1861  c     ivout   ARPACK utility routine that prints integers.
1862 -c     second  ARPACK utility routine for timing.
1863 +c     arscnd  ARPACK utility routine for timing.
1864  c     svout   ARPACK utility routine that prints vectors.
1865  c     slamch  LAPACK routine that determines machine constants.
1866  c     slartg  LAPACK Givens rotation construction routine.
1867 @@ -176,7 +176,7 @@
1868  c     %----------------------%
1869  c
1870        external   saxpy, scopy, sscal, slacpy, slartg, slaset, svout,
1871 -     &           ivout, second, sgemv
1872 +     &           ivout, arscnd, sgemv
1873  c
1874  c     %--------------------%
1875  c     | External Functions |
1876 @@ -213,7 +213,7 @@
1877  c     | & message level for debugging |
1878  c     %-------------------------------%
1879  c
1880 -      call second (t0)
1881 +      call arscnd (t0)
1882        msglvl = msapps
1883  c
1884        kplusp = kev + np
1885 @@ -503,7 +503,7 @@
1886           end if
1887        end if
1888  c
1889 -      call second (t1)
1890 +      call arscnd (t1)
1891        tsapps = tsapps + (t1 - t0)
1892  c
1893   9000 continue
1894 diff -urN original/ARPACK/SRC/ssaup2.f ARPACK/SRC/ssaup2.f
1895 --- original/ARPACK/SRC/ssaup2.f        1998-05-20 16:58:59.000000000 +0200
1896 +++ ARPACK/SRC/ssaup2.f 2005-06-30 23:20:39.010777890 +0200
1897 @@ -148,7 +148,7 @@
1898  c     ssgets  ARPACK reorder Ritz values and error bounds routine.
1899  c     ssortr  ARPACK sorting routine.
1900  c     ivout   ARPACK utility routine that prints integers.
1901 -c     second  ARPACK utility routine for timing.
1902 +c     arscnd  ARPACK utility routine for timing.
1903  c     svout   ARPACK utility routine that prints vectors.
1904  c     slamch  LAPACK routine that determines machine constants.
1905  c     scopy   Level 1 BLAS that copies one vector to another.
1906 @@ -235,7 +235,7 @@
1907  c     %----------------------%
1908  c
1909        external   scopy, sgetv0, ssaitr, sscal, ssconv, sseigt, ssgets,
1910 -     &           ssapps, ssortr, svout, ivout, second, sswap
1911 +     &           ssapps, ssortr, svout, ivout, arscnd, sswap
1912  c
1913  c     %--------------------%
1914  c     | External Functions |
1915 @@ -262,7 +262,7 @@
1916  c        | & message level for debugging |
1917  c        %-------------------------------%
1918  c
1919 -         call second (t0)
1920 +         call arscnd (t0)
1921           msglvl = msaup2
1922  c
1923  c        %---------------------------------%
1924 @@ -770,7 +770,7 @@
1925  c        %---------------------------------------------%
1926  c
1927           cnorm = .true.
1928 -         call second (t2)
1929 +         call arscnd (t2)
1930           if (bmat .eq. 'G') then
1931              nbx = nbx + 1
1932              call scopy (n, resid, 1, workd(n+1), 1)
1933 @@ -795,7 +795,7 @@
1934  c        %----------------------------------%
1935  c
1936           if (bmat .eq. 'G') then
1937 -            call second (t3)
1938 +            call arscnd (t3)
1939              tmvbx = tmvbx + (t3 - t2)
1940           end if
1941  c
1942 @@ -837,7 +837,7 @@
1943  c     | Error exit |
1944  c     %------------%
1945  c
1946 -      call second (t1)
1947 +      call arscnd (t1)
1948        tsaup2 = t1 - t0
1949  c
1950   9000 continue
1951 diff -urN original/ARPACK/SRC/ssaupd.f ARPACK/SRC/ssaupd.f
1952 --- original/ARPACK/SRC/ssaupd.f        2001-04-11 00:52:40.000000000 +0200
1953 +++ ARPACK/SRC/ssaupd.f 2005-06-30 23:20:39.015777306 +0200
1954 @@ -380,7 +380,7 @@
1955  c     sstats  ARPACK routine that initialize timing and other statistics
1956  c             variables.
1957  c     ivout   ARPACK utility routine that prints integers.
1958 -c     second  ARPACK utility routine for timing.
1959 +c     arscnd  ARPACK utility routine for timing.
1960  c     svout   ARPACK utility routine that prints vectors.
1961  c     slamch  LAPACK routine that determines machine constants.
1962  c
1963 @@ -456,7 +456,7 @@
1964  c     | External Subroutines |
1965  c     %----------------------%
1966  c
1967 -      external   ssaup2,  svout, ivout, second, sstats
1968 +      external   ssaup2,  svout, ivout, arscnd, sstats
1969  c
1970  c     %--------------------%
1971  c     | External Functions |
1972 @@ -478,7 +478,7 @@
1973  c        %-------------------------------%
1974  c
1975           call sstats
1976 -         call second (t0)
1977 +         call arscnd (t0)
1978           msglvl = msaupd
1979  c
1980           ierr   = 0
1981 @@ -638,7 +638,7 @@
1982       &               '_saupd: corresponding error bounds')
1983        end if
1984  c
1985 -      call second (t1)
1986 +      call arscnd (t1)
1987        tsaupd = t1 - t0
1988  c
1989        if (msglvl .gt. 0) then
1990 diff -urN original/ARPACK/SRC/ssconv.f ARPACK/SRC/ssconv.f
1991 --- original/ARPACK/SRC/ssconv.f        1996-04-20 18:27:27.000000000 +0200
1992 +++ ARPACK/SRC/ssconv.f 2005-06-30 23:20:39.016777190 +0200
1993 @@ -34,7 +34,7 @@
1994  c\BeginLib
1995  c
1996  c\Routines called:
1997 -c     second  ARPACK utility routine for timing.
1998 +c     arscnd  ARPACK utility routine for timing.
1999  c     slamch  LAPACK routine that determines machine constants.
2000  c
2001  c\Author
2002 @@ -106,7 +106,7 @@
2003  c     | Executable Statements |
2004  c     %-----------------------%
2005  c
2006 -      call second (t0)
2007 +      call arscnd (t0)
2008  c
2009        eps23 = slamch('Epsilon-Machine')
2010        eps23 = eps23**(2.0E+0 / 3.0E+0)
2011 @@ -126,7 +126,7 @@
2012  c
2013     10 continue
2014  c
2015 -      call second (t1)
2016 +      call arscnd (t1)
2017        tsconv = tsconv + (t1 - t0)
2018  c
2019        return
2020 diff -urN original/ARPACK/SRC/sseigt.f ARPACK/SRC/sseigt.f
2021 --- original/ARPACK/SRC/sseigt.f        1996-08-27 07:29:04.000000000 +0200
2022 +++ ARPACK/SRC/sseigt.f 2005-06-30 23:20:39.017777073 +0200
2023 @@ -59,7 +59,7 @@
2024  c     sstqrb  ARPACK routine that computes the eigenvalues and the
2025  c             last components of the eigenvectors of a symmetric
2026  c             and tridiagonal matrix.
2027 -c     second  ARPACK utility routine for timing.
2028 +c     arscnd  ARPACK utility routine for timing.
2029  c     svout   ARPACK utility routine that prints vectors.
2030  c     scopy   Level 1 BLAS that copies one vector to another.
2031  c
2032 @@ -127,7 +127,7 @@
2033  c     | External Subroutines |
2034  c     %----------------------%
2035  c
2036 -      external   scopy, sstqrb, svout, second
2037 +      external   scopy, sstqrb, svout, arscnd
2038  c
2039  c     %-----------------------%
2040  c     | Executable Statements |
2041 @@ -138,7 +138,7 @@
2042  c     | & message level for debugging |
2043  c     %-------------------------------%
2044  c
2045 -      call second (t0)
2046 +      call arscnd (t0)
2047        msglvl = mseigt
2048  c
2049        if (msglvl .gt. 0) then
2050 @@ -168,7 +168,7 @@
2051           bounds(k) = rnorm*abs(bounds(k))
2052     30 continue
2053  c
2054 -      call second (t1)
2055 +      call arscnd (t1)
2056        tseigt = tseigt + (t1 - t0)
2057  c
2058   9000 continue
2059 diff -urN original/ARPACK/SRC/ssgets.f ARPACK/SRC/ssgets.f
2060 --- original/ARPACK/SRC/ssgets.f        1996-04-20 18:27:30.000000000 +0200
2061 +++ ARPACK/SRC/ssgets.f 2005-06-30 23:20:39.026776022 +0200
2062 @@ -65,7 +65,7 @@
2063  c\Routines called:
2064  c     ssortr  ARPACK utility sorting routine.
2065  c     ivout   ARPACK utility routine that prints integers.
2066 -c     second  ARPACK utility routine for timing.
2067 +c     arscnd  ARPACK utility routine for timing.
2068  c     svout   ARPACK utility routine that prints vectors.
2069  c     scopy   Level 1 BLAS that copies one vector to another.
2070  c     sswap   Level 1 BLAS that swaps the contents of two vectors.
2071 @@ -131,7 +131,7 @@
2072  c     | External Subroutines |
2073  c     %----------------------%
2074  c
2075 -      external   sswap, scopy, ssortr, second
2076 +      external   sswap, scopy, ssortr, arscnd
2077  c
2078  c     %---------------------%
2079  c     | Intrinsic Functions |
2080 @@ -148,7 +148,7 @@
2081  c     | & message level for debugging |
2082  c     %-------------------------------%
2083  c
2084 -      call second (t0)
2085 +      call arscnd (t0)
2086        msglvl = msgets
2087  c
2088        if (which .eq. 'BE') then
2089 @@ -198,7 +198,7 @@
2090           call scopy (np, ritz, 1, shifts, 1)
2091        end if
2092  c
2093 -      call second (t1)
2094 +      call arscnd (t1)
2095        tsgets = tsgets + (t1 - t0)
2096  c
2097        if (msglvl .gt. 0) then
2098 diff -urN original/ARPACK/SRC/zgetv0.f ARPACK/SRC/zgetv0.f
2099 --- original/ARPACK/SRC/zgetv0.f        1999-04-08 00:46:45.000000000 +0200
2100 +++ ARPACK/SRC/zgetv0.f 2005-06-30 23:20:39.037774738 +0200
2101 @@ -89,7 +89,7 @@
2102  c     pp 357-385.
2103  c
2104  c\Routines called:
2105 -c     second  ARPACK utility routine for timing.
2106 +c     arscnd  ARPACK utility routine for timing.
2107  c     zvout   ARPACK utility routine that prints vectors.
2108  c     zlarnv  LAPACK routine for generating a random vector.
2109  c     zgemv   Level 2 BLAS routine for matrix vector multiplication.
2110 @@ -168,7 +168,7 @@
2111  c     | External Subroutines |
2112  c     %----------------------%
2113  c
2114 -      external   zcopy, zgemv, zlarnv, zvout, second
2115 +      external   zcopy, zgemv, zlarnv, zvout, arscnd
2116  c
2117  c     %--------------------%
2118  c     | External Functions |
2119 @@ -211,7 +211,7 @@
2120  c        | & message level for debugging |
2121  c        %-------------------------------%
2122  c
2123 -         call second (t0)
2124 +         call arscnd (t0)
2125           msglvl = mgetv0
2126  c
2127           ierr   = 0
2128 @@ -238,7 +238,7 @@
2129  c        | the generalized problem when B is possibly (singular).   |
2130  c        %----------------------------------------------------------%
2131  c
2132 -         call second (t2)
2133 +         call arscnd (t2)
2134           if (bmat .eq. 'G') then
2135              nopx = nopx + 1
2136              ipntr(1) = 1
2137 @@ -261,7 +261,7 @@
2138  c
2139        if (orth)  go to 40
2140  c
2141 -      call second (t3)
2142 +      call arscnd (t3)
2143        tmvopx = tmvopx + (t3 - t2)
2144  c
2145  c     %------------------------------------------------------%
2146 @@ -269,7 +269,7 @@
2147  c     | Compute B-norm of starting vector.                   |
2148  c     %------------------------------------------------------%
2149  c
2150 -      call second (t2)
2151 +      call arscnd (t2)
2152        first = .TRUE.
2153        if (bmat .eq. 'G') then
2154           nbx = nbx + 1
2155 @@ -285,7 +285,7 @@
2156     20 continue
2157  c
2158        if (bmat .eq. 'G') then
2159 -         call second (t3)
2160 +         call arscnd (t3)
2161           tmvbx = tmvbx + (t3 - t2)
2162        end if
2163  c
2164 @@ -328,7 +328,7 @@
2165  c     | Compute the B-norm of the orthogonalized starting vector |
2166  c     %----------------------------------------------------------%
2167  c
2168 -      call second (t2)
2169 +      call arscnd (t2)
2170        if (bmat .eq. 'G') then
2171           nbx = nbx + 1
2172           call zcopy (n, resid, 1, workd(n+1), 1)
2173 @@ -343,7 +343,7 @@
2174     40 continue
2175  c
2176        if (bmat .eq. 'G') then
2177 -         call second (t3)
2178 +         call arscnd (t3)
2179           tmvbx = tmvbx + (t3 - t2)
2180        end if
2181  c
2182 @@ -401,7 +401,7 @@
2183        end if
2184        ido = 99
2185  c
2186 -      call second (t1)
2187 +      call arscnd (t1)
2188        tgetv0 = tgetv0 + (t1 - t0)
2189  c
2190   9000 continue
2191 diff -urN original/ARPACK/SRC/znaitr.f ARPACK/SRC/znaitr.f
2192 --- original/ARPACK/SRC/znaitr.f        1996-08-27 18:12:57.000000000 +0200
2193 +++ ARPACK/SRC/znaitr.f 2005-06-30 23:20:39.042774155 +0200
2194 @@ -131,7 +131,7 @@
2195  c\Routines called:
2196  c     zgetv0  ARPACK routine to generate the initial vector.
2197  c     ivout   ARPACK utility routine that prints integers.
2198 -c     second  ARPACK utility routine for timing.
2199 +c     arscnd  ARPACK utility routine for timing.
2200  c     zmout   ARPACK utility routine that prints matrices
2201  c     zvout   ARPACK utility routine that prints vectors.
2202  c     zlanhs  LAPACK routine that computes various norms of a matrix.
2203 @@ -273,7 +273,7 @@
2204  c     %----------------------%
2205  c
2206        external   zaxpy, zcopy, zscal, zdscal, zgemv, zgetv0,
2207 -     &           dlabad, zvout, zmout, ivout, second
2208 +     &           dlabad, zvout, zmout, ivout, arscnd
2209  c
2210  c     %--------------------%
2211  c     | External Functions |
2212 @@ -326,7 +326,7 @@
2213  c        | & message level for debugging |
2214  c        %-------------------------------%
2215  c
2216 -         call second (t0)
2217 +         call arscnd (t0)
2218           msglvl = mcaitr
2219  c
2220  c        %------------------------------%
2221 @@ -437,7 +437,7 @@
2222  c              %------------------------------------------------%
2223  c
2224                 info = j - 1
2225 -               call second (t1)
2226 +               call arscnd (t1)
2227                 tcaitr = tcaitr + (t1 - t0)
2228                 ido = 99
2229                 go to 9000
2230 @@ -477,7 +477,7 @@
2231  c
2232           step3 = .true.
2233           nopx  = nopx + 1
2234 -         call second (t2)
2235 +         call arscnd (t2)
2236           call zcopy (n, v(1,j), 1, workd(ivj), 1)
2237           ipntr(1) = ivj
2238           ipntr(2) = irj
2239 @@ -497,7 +497,7 @@
2240  c        | if step3 = .true.                |
2241  c        %----------------------------------%
2242  c
2243 -         call second (t3)
2244 +         call arscnd (t3)
2245           tmvopx = tmvopx + (t3 - t2)
2246
2247           step3 = .false.
2248 @@ -513,7 +513,7 @@
2249  c        |          factorization to length j.   |
2250  c        %---------------------------------------%
2251  c
2252 -         call second (t2)
2253 +         call arscnd (t2)
2254           if (bmat .eq. 'G') then
2255              nbx = nbx + 1
2256              step4 = .true.
2257 @@ -538,7 +538,7 @@
2258  c        %----------------------------------%
2259  c
2260           if (bmat .eq. 'G') then
2261 -            call second (t3)
2262 +            call arscnd (t3)
2263              tmvbx = tmvbx + (t3 - t2)
2264           end if
2265  c
2266 @@ -583,11 +583,11 @@
2267  c
2268           if (j .gt. 1) h(j,j-1) = dcmplx(betaj, rzero)
2269  c
2270 -         call second (t4)
2271 +         call arscnd (t4)
2272  c
2273           orth1 = .true.
2274  c
2275 -         call second (t2)
2276 +         call arscnd (t2)
2277           if (bmat .eq. 'G') then
2278              nbx = nbx + 1
2279              call zcopy (n, resid, 1, workd(irj), 1)
2280 @@ -611,7 +611,7 @@
2281  c        %---------------------------------------------------%
2282  c
2283           if (bmat .eq. 'G') then
2284 -            call second (t3)
2285 +            call arscnd (t3)
2286              tmvbx = tmvbx + (t3 - t2)
2287           end if
2288  c
2289 @@ -689,7 +689,7 @@
2290           call zaxpy (j, one, workd(irj), 1, h(1,j), 1)
2291  c
2292           orth2 = .true.
2293 -         call second (t2)
2294 +         call arscnd (t2)
2295           if (bmat .eq. 'G') then
2296              nbx = nbx + 1
2297              call zcopy (n, resid, 1, workd(irj), 1)
2298 @@ -713,7 +713,7 @@
2299  c        %---------------------------------------------------%
2300  c
2301           if (bmat .eq. 'G') then
2302 -            call second (t3)
2303 +            call arscnd (t3)
2304              tmvbx = tmvbx + (t3 - t2)
2305           end if
2306  c
2307 @@ -791,7 +791,7 @@
2308           rstart = .false.
2309           orth2  = .false.
2310  c
2311 -         call second (t5)
2312 +         call arscnd (t5)
2313           titref = titref + (t5 - t4)
2314  c
2315  c        %------------------------------------%
2316 @@ -800,7 +800,7 @@
2317  c
2318           j = j + 1
2319           if (j .gt. k+np) then
2320 -            call second (t1)
2321 +            call arscnd (t1)
2322              tcaitr = tcaitr + (t1 - t0)
2323              ido = 99
2324              do 110 i = max(1,k), k+np-1
2325 diff -urN original/ARPACK/SRC/znapps.f ARPACK/SRC/znapps.f
2326 --- original/ARPACK/SRC/znapps.f        1998-05-20 16:45:03.000000000 +0200
2327 +++ ARPACK/SRC/znapps.f 2005-06-30 23:20:39.045773805 +0200
2328 @@ -92,7 +92,7 @@
2329  c
2330  c\Routines called:
2331  c     ivout   ARPACK utility routine that prints integers.
2332 -c     second  ARPACK utility routine for timing.
2333 +c     arscnd  ARPACK utility routine for timing.
2334  c     zmout   ARPACK utility routine that prints matrices
2335  c     zvout   ARPACK utility routine that prints vectors.
2336  c     zlacpy  LAPACK matrix copy routine.
2337 @@ -184,7 +184,7 @@
2338  c     %----------------------%
2339  c
2340        external   zaxpy, zcopy, zgemv, zscal, zlacpy, zlartg,
2341 -     &           zvout, zlaset, dlabad, zmout, second, ivout
2342 +     &           zvout, zlaset, dlabad, zmout, arscnd, ivout
2343  c
2344  c     %--------------------%
2345  c     | External Functions |
2346 @@ -240,7 +240,7 @@
2347  c     | & message level for debugging |
2348  c     %-------------------------------%
2349  c
2350 -      call second (t0)
2351 +      call arscnd (t0)
2352        msglvl = mcapps
2353  c
2354        kplusp = kev + np
2355 @@ -495,7 +495,7 @@
2356        end if
2357  c
2358   9000 continue
2359 -      call second (t1)
2360 +      call arscnd (t1)
2361        tcapps = tcapps + (t1 - t0)
2362  c
2363        return
2364 --- ARPACK/SRC/znaup2.f.orig    1996-09-24 22:40:01.000000000 +0200
2365 +++ ARPACK/SRC/znaup2.f 2022-12-15 21:20:55.564520897 +0100
2366 @@ -135,7 +135,7 @@ c     zneigh  ARPACK compute Ritz values
2367  c     zngets  ARPACK reorder Ritz values and error bounds routine.
2368  c     zsortc  ARPACK sorting routine.
2369  c     ivout   ARPACK utility routine that prints integers.
2370 -c     second  ARPACK utility routine for timing.
2371 +c     arscnd  ARPACK utility routine for timing.
2372  c     zmout   ARPACK utility routine that prints matrices
2373  c     zvout   ARPACK utility routine that prints vectors.
2374  c     dvout   ARPACK utility routine that prints vectors.
2375 @@ -239,7 +239,7 @@ c     | External Subroutines |
2376  c     %----------------------%
2377  c
2378        external   zcopy, zgetv0, znaitr, zneigh, zngets, znapps,
2379 -     &           zsortc, zswap, zmout, zvout, ivout, second
2380 +     &           zsortc, zswap, zmout, zvout, ivout, arscnd
2381  c
2382  c     %--------------------%
2383  c     | External functions |
2384 @@ -263,7 +263,7 @@ c     %-----------------------%
2385  c
2386        if (ido .eq. 0) then
2387  c
2388 -         call second (t0)
2389 +         call arscnd (t0)
2390  c
2391           msglvl = mcaup2
2392  c
2393 @@ -723,7 +723,7 @@ c        | the first step of the next ca
2394  c        %---------------------------------------------%
2395  c
2396           cnorm = .true.
2397 -         call second (t2)
2398 +         call arscnd (t2)
2399           if (bmat .eq. 'G') then
2400              nbx = nbx + 1
2401              call zcopy (n, resid, 1, workd(n+1), 1)
2402 @@ -748,7 +748,7 @@ c        | WORKD(1:N) := B*RESID
2403  c        %----------------------------------%
2404  c
2405           if (bmat .eq. 'G') then
2406 -            call second (t3)
2407 +            call arscnd (t3)
2408              tmvbx = tmvbx + (t3 - t2)
2409           end if
2410  c
2411 @@ -787,7 +787,7 @@ c     %------------%
2412  c     | Error Exit |
2413  c     %------------%
2414  c
2415 -      call second (t1)
2416 +      call arscnd (t1)
2417        tcaup2 = t1 - t0
2418  c
2419   9000 continue
2420 diff -urN original/ARPACK/SRC/znaupd.f ARPACK/SRC/znaupd.f
2421 --- original/ARPACK/SRC/znaupd.f        2002-08-15 07:50:57.000000000 +0200
2422 +++ ARPACK/SRC/znaupd.f 2005-06-30 23:20:39.055772637 +0200
2423 @@ -356,7 +356,7 @@
2424  c     zstatn  ARPACK routine that initializes the timing variables.
2425  c     ivout   ARPACK utility routine that prints integers.
2426  c     zvout   ARPACK utility routine that prints vectors.
2427 -c     second  ARPACK utility routine for timing.
2428 +c     arscnd  ARPACK utility routine for timing.
2429  c     dlamch  LAPACK routine that determines machine constants.
2430  c
2431  c\Author
2432 @@ -429,7 +429,7 @@
2433  c     | External Subroutines |
2434  c     %----------------------%
2435  c
2436 -      external   znaup2, zvout, ivout, second, zstatn
2437 +      external   znaup2, zvout, ivout, arscnd, zstatn
2438  c
2439  c     %--------------------%
2440  c     | External Functions |
2441 @@ -451,7 +451,7 @@
2442  c        %-------------------------------%
2443  c
2444           call zstatn
2445 -         call second (t0)
2446 +         call arscnd (t0)
2447           msglvl = mcaupd
2448  c
2449  c        %----------------%
2450 @@ -611,7 +611,7 @@
2451       &               '_naupd: Associated Ritz estimates')
2452        end if
2453  c
2454 -      call second (t1)
2455 +      call arscnd (t1)
2456        tcaupd = t1 - t0
2457  c
2458        if (msglvl .gt. 0) then
2459 diff -urN original/ARPACK/SRC/zneigh.f ARPACK/SRC/zneigh.f
2460 --- original/ARPACK/SRC/zneigh.f        1996-04-20 19:16:01.000000000 +0200
2461 +++ ARPACK/SRC/zneigh.f 2005-06-30 23:20:39.056772521 +0200
2462 @@ -64,7 +64,7 @@
2463  c
2464  c\Routines called:
2465  c     ivout   ARPACK utility routine that prints integers.
2466 -c     second  ARPACK utility routine for timing.
2467 +c     arscnd  ARPACK utility routine for timing.
2468  c     zmout   ARPACK utility routine that prints matrices
2469  c     zvout   ARPACK utility routine that prints vectors.
2470  c     dvout   ARPACK utility routine that prints vectors.
2471 @@ -152,7 +152,7 @@
2472  c     %----------------------%
2473  c
2474        external   zlacpy, zlahqr, ztrevc, zcopy,
2475 -     &           zdscal, zmout, zvout, second
2476 +     &           zdscal, zmout, zvout, arscnd
2477  c
2478  c     %--------------------%
2479  c     | External Functions |
2480 @@ -171,7 +171,7 @@
2481  c     | & message level for debugging |
2482  c     %-------------------------------%
2483  c
2484 -      call second (t0)
2485 +      call arscnd (t0)
2486        msglvl = mceigh
2487  c
2488        if (msglvl .gt. 2) then
2489 @@ -244,7 +244,7 @@
2490       &              '_neigh: Ritz estimates for the eigenvalues of H')
2491        end if
2492  c
2493 -      call second(t1)
2494 +      call arscnd(t1)
2495        tceigh = tceigh + (t1 - t0)
2496  c
2497   9000 continue
2498 diff -urN original/ARPACK/SRC/zngets.f ARPACK/SRC/zngets.f
2499 --- original/ARPACK/SRC/zngets.f        1996-04-20 19:16:02.000000000 +0200
2500 +++ ARPACK/SRC/zngets.f 2005-06-30 23:20:39.063771704 +0200
2501 @@ -63,7 +63,7 @@
2502  c\Routines called:
2503  c     zsortc  ARPACK sorting routine.
2504  c     ivout   ARPACK utility routine that prints integers.
2505 -c     second  ARPACK utility routine for timing.
2506 +c     arscnd  ARPACK utility routine for timing.
2507  c     zvout   ARPACK utility routine that prints vectors.
2508  c
2509  c\Author
2510 @@ -126,7 +126,7 @@
2511  c     | External Subroutines |
2512  c     %----------------------%
2513  c
2514 -      external   zvout,  zsortc, second
2515 +      external   zvout,  zsortc, arscnd
2516  c
2517  c     %-----------------------%
2518  c     | Executable Statements |
2519 @@ -137,7 +137,7 @@
2520  c     | & message level for debugging |
2521  c     %-------------------------------%
2522  c
2523 -      call second (t0)
2524 +      call arscnd (t0)
2525        msglvl = mcgets
2526  c
2527        call zsortc (which, .true., kev+np, ritz, bounds)
2528 @@ -157,7 +157,7 @@
2529  c
2530        end if
2531  c
2532 -      call second (t1)
2533 +      call arscnd (t1)
2534        tcgets = tcgets + (t1 - t0)
2535  c
2536        if (msglvl .gt. 0) then
2537 diff -urN original/ARPACK/UTIL/Makefile ARPACK/UTIL/Makefile
2538 --- original/ARPACK/UTIL/Makefile       1996-09-09 16:30:48.000000000 +0200
2539 +++ ARPACK/UTIL/Makefile        2005-06-30 23:23:46.746224656 +0200
2540 @@ -31,7 +31,7 @@
2541  #  ../ARmake.inc and is created at the next higher directory level.
2542  #
2543
2544 -OBJS  = icnteq.o icopy.o iset.o iswap.o ivout.o second.o
2545 +OBJS  = icnteq.o icopy.o iset.o iswap.o ivout.o arscnd.o
2546
2547  SOBJ  = svout.o  smout.o
2548
2549 diff -urN original/ARPACK/UTIL/arscnd.f ARPACK/UTIL/arscnd.f
2550 --- original/ARPACK/UTIL/arscnd.f       1970-01-01 01:00:00.000000000 +0100
2551 +++ ARPACK/UTIL/arscnd.f        2005-06-30 23:22:55.982983811 +0200
2552 @@ -0,0 +1,36 @@
2553 +      SUBROUTINE ARSCND( T )
2554 +*
2555 +      REAL       T
2556 +*
2557 +*  -- LAPACK auxiliary routine (preliminary version) --
2558 +*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
2559 +*     Courant Institute, Argonne National Lab, and Rice University
2560 +*     July 26, 1991
2561 +*
2562 +*  Purpose
2563 +*  =======
2564 +*
2565 +*  ARSCND returns the user time for a process in seconds.
2566 +*  This version gets the time from the system function ETIME.
2567 +*
2568 +*     .. Local Scalars ..
2569 +      REAL               T1
2570 +*     ..
2571 +*     .. Local Arrays ..
2572 +      REAL               TARRAY( 2 )
2573 +*     ..
2574 +*     .. External Functions ..
2575 +      REAL               ETIME
2576 +      EXTERNAL           ETIME
2577 +*     ..
2578 +*     .. Executable Statements ..
2579 +*
2580 +
2581 +      T1 = ETIME( TARRAY )
2582 +      T  = TARRAY( 1 )
2583 +
2584 +      RETURN
2585 +*
2586 +*     End of ARSCND
2587 +*
2588 +      END
2589 diff -urN original/ARPACK/UTIL/second.f ARPACK/UTIL/second.f
2590 --- original/ARPACK/UTIL/second.f       1995-10-02 19:56:44.000000000 +0100
2591 +++ ARPACK/UTIL/second.f        1970-01-01 01:00:00.000000000 +0100
2592 @@ -1,36 +0,0 @@
2593 -      SUBROUTINE SECOND( T )
2594 -*
2595 -      REAL       T
2596 -*
2597 -*  -- LAPACK auxiliary routine (preliminary version) --
2598 -*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
2599 -*     Courant Institute, Argonne National Lab, and Rice University
2600 -*     July 26, 1991
2601 -*
2602 -*  Purpose
2603 -*  =======
2604 -*
2605 -*  SECOND returns the user time for a process in seconds.
2606 -*  This version gets the time from the system function ETIME.
2607 -*
2608 -*     .. Local Scalars ..
2609 -      REAL               T1
2610 -*     ..
2611 -*     .. Local Arrays ..
2612 -      REAL               TARRAY( 2 )
2613 -*     ..
2614 -*     .. External Functions ..
2615 -      REAL               ETIME
2616 -      EXTERNAL           ETIME
2617 -*     ..
2618 -*     .. Executable Statements ..
2619 -*
2620 -
2621 -      T1 = ETIME( TARRAY )
2622 -      T  = TARRAY( 1 )
2623 -
2624 -      RETURN
2625 -*
2626 -*     End of SECOND
2627 -*
2628 -      END