Attachment 302758 Details for Bug 442526 – new proposed patch for second-bug

[patch] new proposed patch for second-bug

arpack-second-bug.patch (text/plain), 53.85 KB, created by Christophe Trophime on 2008-04-17 14:56:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Christophe Trophime

Created: 2008-04-17 14:56:27 UTC

Size: 53.85 KB

patch

obsolete

>diff -up ARPACK/SRC/cgetv0.f.snd ARPACK/SRC/cgetv0.f
>--- ARPACK/SRC/cgetv0.f.snd	1999-04-08 00:46:44.000000000 +0200
>+++ ARPACK/SRC/cgetv0.f	2008-04-17 16:19:20.000000000 +0200
>@@ -211,7 +211,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mgetv0
> c 
>          ierr   = 0
>@@ -238,7 +238,7 @@ c        | Force the starting vector int
> c        | the generalized problem when B is possibly (singular).   |
> c        %----------------------------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nopx = nopx + 1
>             ipntr(1) = 1
>@@ -261,7 +261,7 @@ c     %---------------------------------
> c
>       if (orth)  go to 40
> c 
>-      call second (t3)
>+      call secnd2 (t3)
>       tmvopx = tmvopx + (t3 - t2)
> c 
> c     %------------------------------------------------------%
>@@ -269,7 +269,7 @@ c     | Starting vector is now in the ra
> c     | Compute B-norm of starting vector.                   |
> c     %------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       first = .TRUE.
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>@@ -285,7 +285,7 @@ c 
>    20 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -328,7 +328,7 @@ c     %---------------------------------
> c     | Compute the B-norm of the orthogonalized starting vector |
> c     %----------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>          call ccopy (n, resid, 1, workd(n+1), 1)
>@@ -343,7 +343,7 @@ c 
>    40 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -401,7 +401,7 @@ c
>       end if
>       ido = 99
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tgetv0 = tgetv0 + (t1 - t0)
> c 
>  9000 continue
>diff -up ARPACK/SRC/cnaitr.f.snd ARPACK/SRC/cnaitr.f
>--- ARPACK/SRC/cnaitr.f.snd	1996-08-27 18:12:56.000000000 +0200
>+++ ARPACK/SRC/cnaitr.f	2008-04-17 16:19:20.000000000 +0200
>@@ -326,7 +326,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mcaitr
> c 
> c        %------------------------------%
>@@ -437,7 +437,7 @@ c              | which spans OP and exit
> c              %------------------------------------------------%
> c
>                info = j - 1
>-               call second (t1)
>+               call secnd2 (t1)
>                tcaitr = tcaitr + (t1 - t0)
>                ido = 99
>                go to 9000
>@@ -477,7 +477,7 @@ c        %------------------------------
> c
>          step3 = .true.
>          nopx  = nopx + 1
>-         call second (t2)
>+         call secnd2 (t2)
>          call ccopy (n, v(1,j), 1, workd(ivj), 1)
>          ipntr(1) = ivj
>          ipntr(2) = irj
>@@ -497,7 +497,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j
> c        | if step3 = .true.                |
> c        %----------------------------------%
> c
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
>  
>          step3 = .false.
>@@ -513,7 +513,7 @@ c        | STEP 4:  Finish extending the
> c        |          factorization to length j.   |
> c        %---------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             step4 = .true.
>@@ -538,7 +538,7 @@ c        | if step4 = .true.            
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -583,11 +583,11 @@ c
> c
>          if (j .gt. 1) h(j,j-1) = cmplx(betaj, rzero)
> c
>-         call second (t4)
>+         call secnd2 (t4)
> c 
>          orth1 = .true.
> c 
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call ccopy (n, resid, 1, workd(irj), 1)
>@@ -611,7 +611,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -689,7 +689,7 @@ c
>          call caxpy (j, one, workd(irj), 1, h(1,j), 1)
> c 
>          orth2 = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call ccopy (n, resid, 1, workd(irj), 1)
>@@ -713,7 +713,7 @@ c        | Back from reverse communicati
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if 
> c
>@@ -791,7 +791,7 @@ c 
>          rstart = .false.
>          orth2  = .false.
> c 
>-         call second (t5)
>+         call secnd2 (t5)
>          titref = titref + (t5 - t4)
> c 
> c        %------------------------------------%
>@@ -800,7 +800,7 @@ c        %------------------------------
> c
>          j = j + 1
>          if (j .gt. k+np) then
>-            call second (t1)
>+            call secnd2 (t1)
>             tcaitr = tcaitr + (t1 - t0)
>             ido = 99
>             do 110 i = max(1,k), k+np-1
>diff -up ARPACK/SRC/cnapps.f.snd ARPACK/SRC/cnapps.f
>--- ARPACK/SRC/cnapps.f.snd	1998-05-20 16:45:03.000000000 +0200
>+++ ARPACK/SRC/cnapps.f	2008-04-17 16:19:20.000000000 +0200
>@@ -240,7 +240,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mcapps
> c 
>       kplusp = kev + np 
>@@ -495,7 +495,7 @@ c
>       end if
> c
>  9000 continue
>-      call second (t1)
>+      call secnd2 (t1)
>       tcapps = tcapps + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/cnaup2.f.snd ARPACK/SRC/cnaup2.f
>--- ARPACK/SRC/cnaup2.f.snd	2000-06-01 22:28:53.000000000 +0200
>+++ ARPACK/SRC/cnaup2.f	2008-04-17 16:19:20.000000000 +0200
>@@ -264,7 +264,7 @@ c     %-----------------------%
> c
>       if (ido .eq. 0) then
> c 
>-         call second (t0)
>+         call secnd2 (t0)
> c 
>          msglvl = mcaup2
> c 
>@@ -724,7 +724,7 @@ c        | the first step of the next ca
> c        %---------------------------------------------%
> c
>          cnorm = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call ccopy (n, resid, 1, workd(n+1), 1)
>@@ -749,7 +749,7 @@ c        | WORKD(1:N) := B*RESID        
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -788,7 +788,7 @@ c     %------------%
> c     | Error Exit |
> c     %------------%
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tcaup2 = t1 - t0
> c     
>  9000 continue
>diff -up ARPACK/SRC/cnaupd.f.snd ARPACK/SRC/cnaupd.f
>--- ARPACK/SRC/cnaupd.f.snd	2002-08-15 07:50:57.000000000 +0200
>+++ ARPACK/SRC/cnaupd.f	2008-04-17 16:19:20.000000000 +0200
>@@ -451,7 +451,7 @@ c        | & message level for debugging
> c        %-------------------------------%
> c
>          call cstatn
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mcaupd
> c
> c        %----------------%
>@@ -611,7 +611,7 @@ c
>      &               '_naupd: Associated Ritz estimates')
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tcaupd = t1 - t0
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/cneigh.f.snd ARPACK/SRC/cneigh.f
>--- ARPACK/SRC/cneigh.f.snd	1996-04-20 19:15:53.000000000 +0200
>+++ ARPACK/SRC/cneigh.f	2008-04-17 16:19:20.000000000 +0200
>@@ -171,7 +171,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mceigh
> c 
>       if (msglvl .gt. 2) then
>@@ -244,7 +244,7 @@ c
>      &              '_neigh: Ritz estimates for the eigenvalues of H')
>       end if
> c
>-      call second(t1)
>+      call secnd2(t1)
>       tceigh = tceigh + (t1 - t0)
> c
>  9000 continue
>diff -up ARPACK/SRC/cngets.f.snd ARPACK/SRC/cngets.f
>--- ARPACK/SRC/cngets.f.snd	1996-04-20 19:15:56.000000000 +0200
>+++ ARPACK/SRC/cngets.f	2008-04-17 16:19:21.000000000 +0200
>@@ -137,7 +137,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c 
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mcgets
> c 
>       call csortc (which, .true., kev+np, ritz, bounds)
>@@ -157,7 +157,7 @@ c     
> c
>       end if
> c     
>-      call second (t1)
>+      call secnd2 (t1)
>       tcgets = tcgets + (t1 - t0)
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/dgetv0.f.snd ARPACK/SRC/dgetv0.f
>--- ARPACK/SRC/dgetv0.f.snd	1999-04-08 00:42:47.000000000 +0200
>+++ ARPACK/SRC/dgetv0.f	2008-04-17 16:19:20.000000000 +0200
>@@ -214,7 +214,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mgetv0
> c 
>          ierr   = 0
>@@ -241,7 +241,7 @@ c        | Force the starting vector int
> c        | the generalized problem when B is possibly (singular).   |
> c        %----------------------------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nopx = nopx + 1
>             ipntr(1) = 1
>@@ -265,7 +265,7 @@ c
>       if (orth)  go to 40
> c 
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
>       end if
> c 
>@@ -274,7 +274,7 @@ c     | Starting vector is now in the ra
> c     | Compute B-norm of starting vector.                   |
> c     %------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       first = .TRUE.
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>@@ -290,7 +290,7 @@ c 
>    20 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -333,7 +333,7 @@ c     %---------------------------------
> c     | Compute the B-norm of the orthogonalized starting vector |
> c     %----------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>          call dcopy (n, resid, 1, workd(n+1), 1)
>@@ -348,7 +348,7 @@ c 
>    40 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -406,7 +406,7 @@ c
>       end if
>       ido = 99
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tgetv0 = tgetv0 + (t1 - t0)
> c 
>  9000 continue
>diff -up ARPACK/SRC/dnaitr.f.snd ARPACK/SRC/dnaitr.f
>--- ARPACK/SRC/dnaitr.f.snd	1996-08-27 18:09:00.000000000 +0200
>+++ ARPACK/SRC/dnaitr.f	2008-04-17 16:19:20.000000000 +0200
>@@ -319,7 +319,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mnaitr
> c 
> c        %------------------------------%
>@@ -430,7 +430,7 @@ c              | which spans OP and exit
> c              %------------------------------------------------%
> c
>                info = j - 1
>-               call second (t1)
>+               call secnd2 (t1)
>                tnaitr = tnaitr + (t1 - t0)
>                ido = 99
>                go to 9000
>@@ -470,7 +470,7 @@ c        %------------------------------
> c
>          step3 = .true.
>          nopx  = nopx + 1
>-         call second (t2)
>+         call secnd2 (t2)
>          call dcopy (n, v(1,j), 1, workd(ivj), 1)
>          ipntr(1) = ivj
>          ipntr(2) = irj
>@@ -490,7 +490,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j
> c        | if step3 = .true.                |
> c        %----------------------------------%
> c
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
>  
>          step3 = .false.
>@@ -506,7 +506,7 @@ c        | STEP 4:  Finish extending the
> c        |          factorization to length j.   |
> c        %---------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             step4 = .true.
>@@ -531,7 +531,7 @@ c        | if step4 = .true.            
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -576,11 +576,11 @@ c
> c
>          if (j .gt. 1) h(j,j-1) = betaj
> c
>-         call second (t4)
>+         call secnd2 (t4)
> c 
>          orth1 = .true.
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call dcopy (n, resid, 1, workd(irj), 1)
>@@ -604,7 +604,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -681,7 +681,7 @@ c
>          call daxpy (j, one, workd(irj), 1, h(1,j), 1)
> c 
>          orth2 = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call dcopy (n, resid, 1, workd(irj), 1)
>@@ -705,7 +705,7 @@ c        | Back from reverse communicati
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c
>@@ -783,7 +783,7 @@ c 
>          rstart = .false.
>          orth2  = .false.
> c 
>-         call second (t5)
>+         call secnd2 (t5)
>          titref = titref + (t5 - t4)
> c 
> c        %------------------------------------%
>@@ -792,7 +792,7 @@ c        %------------------------------
> c
>          j = j + 1
>          if (j .gt. k+np) then
>-            call second (t1)
>+            call secnd2 (t1)
>             tnaitr = tnaitr + (t1 - t0)
>             ido = 99
>             do 110 i = max(1,k), k+np-1
>diff -up ARPACK/SRC/dnapps.f.snd ARPACK/SRC/dnapps.f
>--- ARPACK/SRC/dnapps.f.snd	1998-05-20 16:58:56.000000000 +0200
>+++ ARPACK/SRC/dnapps.f	2008-04-17 16:19:20.000000000 +0200
>@@ -237,7 +237,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mnapps
>       kplusp = kev + np 
> c 
>@@ -635,7 +635,7 @@ c
>       end if
> c 
>  9000 continue
>-      call second (t1)
>+      call secnd2 (t1)
>       tnapps = tnapps + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/dnaup2.f.snd ARPACK/SRC/dnaup2.f
>--- ARPACK/SRC/dnaup2.f.snd	2002-08-23 07:31:50.000000000 +0200
>+++ ARPACK/SRC/dnaup2.f	2008-04-17 16:19:20.000000000 +0200
>@@ -258,7 +258,7 @@ c     %-----------------------%
> c
>       if (ido .eq. 0) then
> c 
>-         call second (t0)
>+         call secnd2 (t0)
> c 
>          msglvl = mnaup2
> c 
>@@ -758,7 +758,7 @@ c        | the first step of the next ca
> c        %---------------------------------------------%
> c
>          cnorm = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call dcopy (n, resid, 1, workd(n+1), 1)
>@@ -783,7 +783,7 @@ c        | WORKD(1:N) := B*RESID        
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -822,7 +822,7 @@ c     %------------%
> c     | Error Exit |
> c     %------------%
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tnaup2 = t1 - t0
> c     
>  9000 continue
>diff -up ARPACK/SRC/dnaupd.f.snd ARPACK/SRC/dnaupd.f
>--- ARPACK/SRC/dnaupd.f.snd	2002-08-23 07:29:34.000000000 +0200
>+++ ARPACK/SRC/dnaupd.f	2008-04-17 16:19:20.000000000 +0200
>@@ -476,7 +476,7 @@ c        | & message level for debugging
> c        %-------------------------------%
> c
>          call dstatn
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mnaupd
> c
> c        %----------------%
>@@ -640,7 +640,7 @@ c
>      &               '_naupd: Associated Ritz estimates')
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tnaupd = t1 - t0
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/dnconv.f.snd ARPACK/SRC/dnconv.f
>--- ARPACK/SRC/dnconv.f.snd	1996-04-20 18:27:05.000000000 +0200
>+++ ARPACK/SRC/dnconv.f	2008-04-17 16:19:20.000000000 +0200
>@@ -119,7 +119,7 @@ c     |                                 
> c     | for some appropriate choice of norm.                        |
> c     %-------------------------------------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
> c
> c     %---------------------------------%
> c     | Get machine dependent constant. |
>@@ -134,7 +134,7 @@ c
>          if (bounds(i) .le. tol*temp)   nconv = nconv + 1
>    20 continue
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tnconv = tnconv + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/dneigh.f.snd ARPACK/SRC/dneigh.f
>--- ARPACK/SRC/dneigh.f.snd	1996-04-20 18:27:06.000000000 +0200
>+++ ARPACK/SRC/dneigh.f	2008-04-17 16:19:20.000000000 +0200
>@@ -170,7 +170,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mneigh
> c 
>       if (msglvl .gt. 2) then
>@@ -301,7 +301,7 @@ c
>      &              '_neigh: Ritz estimates for the eigenvalues of H')
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tneigh = tneigh + (t1 - t0)
> c
>  9000 continue
>diff -up ARPACK/SRC/dngets.f.snd ARPACK/SRC/dngets.f
>--- ARPACK/SRC/dngets.f.snd	1996-04-20 18:27:07.000000000 +0200
>+++ ARPACK/SRC/dngets.f	2008-04-17 16:19:20.000000000 +0200
>@@ -152,7 +152,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c 
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mngets
> c 
> c     %----------------------------------------------------%
>@@ -208,7 +208,7 @@ c     
>          call dsortc ( 'SR', .true., np, bounds, ritzr, ritzi )
>       end if
> c     
>-      call second (t1)
>+      call secnd2 (t1)
>       tngets = tngets + (t1 - t0)
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/dsaitr.f.snd ARPACK/SRC/dsaitr.f
>--- ARPACK/SRC/dsaitr.f.snd	1996-08-28 16:21:43.000000000 +0200
>+++ ARPACK/SRC/dsaitr.f	2008-04-17 16:19:20.000000000 +0200
>@@ -300,7 +300,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = msaitr
> c 
> c        %------------------------------%
>@@ -420,7 +420,7 @@ c              | which spans OP and exit
> c              %------------------------------------------------%
> c
>                info = j - 1
>-               call second (t1)
>+               call secnd2 (t1)
>                tsaitr = tsaitr + (t1 - t0)
>                ido = 99
>                go to 9000
>@@ -460,7 +460,7 @@ c        %------------------------------
> c
>          step3 = .true.
>          nopx  = nopx + 1
>-         call second (t2)
>+         call secnd2 (t2)
>          call dcopy (n, v(1,j), 1, workd(ivj), 1)
>          ipntr(1) = ivj
>          ipntr(2) = irj
>@@ -479,7 +479,7 @@ c        | Back from reverse communicati
> c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
> c        %-----------------------------------%
> c
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
> c 
>          step3 = .false.
>@@ -500,7 +500,7 @@ c        | assumed to have A*v_{j}.     
> c        %-------------------------------------------%
> c
>          if (mode .eq. 2) go to 65
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             step4 = .true.
>@@ -524,7 +524,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*OP*v_
> c        %-----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if 
> c
>@@ -592,12 +592,12 @@ c
>          else
>             h(j,1) = rnorm
>          end if
>-         call second (t4)
>+         call secnd2 (t4)
> c 
>          orth1 = .true.
>          iter  = 0
> c 
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call dcopy (n, resid, 1, workd(irj), 1)
>@@ -621,7 +621,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -695,7 +695,7 @@ c
>          h(j,2) = h(j,2) + workd(irj + j - 1)
> c 
>          orth2 = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call dcopy (n, resid, 1, workd(irj), 1)
>@@ -719,7 +719,7 @@ c        | Back from reverse communicati
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c
>@@ -791,7 +791,7 @@ c 
>          rstart = .false.
>          orth2  = .false.
> c 
>-         call second (t5)
>+         call secnd2 (t5)
>          titref = titref + (t5 - t4)
> c 
> c        %----------------------------------------------------------%
>@@ -815,7 +815,7 @@ c        %------------------------------
> c
>          j = j + 1
>          if (j .gt. k+np) then
>-            call second (t1)
>+            call secnd2 (t1)
>             tsaitr = tsaitr + (t1 - t0)
>             ido = 99
> c
>diff -up ARPACK/SRC/dsapps.f.snd ARPACK/SRC/dsapps.f
>--- ARPACK/SRC/dsapps.f.snd	1998-05-20 16:58:59.000000000 +0200
>+++ ARPACK/SRC/dsapps.f	2008-04-17 16:19:20.000000000 +0200
>@@ -213,7 +213,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = msapps
> c 
>       kplusp = kev + np 
>@@ -503,7 +503,7 @@ c
>          end if
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tsapps = tsapps + (t1 - t0)
> c 
>  9000 continue 
>diff -up ARPACK/SRC/dsaup2.f.snd ARPACK/SRC/dsaup2.f
>--- ARPACK/SRC/dsaup2.f.snd	1998-05-20 16:59:00.000000000 +0200
>+++ ARPACK/SRC/dsaup2.f	2008-04-17 16:19:20.000000000 +0200
>@@ -262,7 +262,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = msaup2
> c
> c        %---------------------------------%
>@@ -770,7 +770,7 @@ c        | the first step of the next ca
> c        %---------------------------------------------%
> c
>          cnorm = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call dcopy (n, resid, 1, workd(n+1), 1)
>@@ -795,7 +795,7 @@ c        | WORKD(1:N) := B*RESID        
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -837,7 +837,7 @@ c     %------------%
> c     | Error exit |
> c     %------------%
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tsaup2 = t1 - t0
> c 
>  9000 continue
>diff -up ARPACK/SRC/dsaupd.f.snd ARPACK/SRC/dsaupd.f
>--- ARPACK/SRC/dsaupd.f.snd	2001-04-11 00:52:40.000000000 +0200
>+++ ARPACK/SRC/dsaupd.f	2008-04-17 16:19:20.000000000 +0200
>@@ -478,7 +478,7 @@ c        | & message level for debugging
> c        %-------------------------------%
> c
>          call dstats 
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = msaupd
> c
>          ierr   = 0
>@@ -638,7 +638,7 @@ c
>      &               '_saupd: corresponding error bounds')
>       end if 
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tsaupd = t1 - t0
> c 
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/dsconv.f.snd ARPACK/SRC/dsconv.f
>--- ARPACK/SRC/dsconv.f.snd	1996-04-20 18:27:11.000000000 +0200
>+++ ARPACK/SRC/dsconv.f	2008-04-17 16:19:20.000000000 +0200
>@@ -106,7 +106,7 @@ c     %-----------------------%
> c     | Executable Statements |
> c     %-----------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
> c
>       eps23 = dlamch('Epsilon-Machine') 
>       eps23 = eps23**(2.0D+0 / 3.0D+0)
>@@ -126,7 +126,7 @@ c
> c
>    10 continue
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tsconv = tsconv + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/dseigt.f.snd ARPACK/SRC/dseigt.f
>--- ARPACK/SRC/dseigt.f.snd	1996-08-27 07:29:04.000000000 +0200
>+++ ARPACK/SRC/dseigt.f	2008-04-17 16:19:20.000000000 +0200
>@@ -138,7 +138,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------% 
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mseigt
> c
>       if (msglvl .gt. 0) then
>@@ -168,7 +168,7 @@ c
>          bounds(k) = rnorm*abs(bounds(k))
>    30 continue
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tseigt = tseigt + (t1 - t0)
> c
>  9000 continue
>diff -up ARPACK/SRC/dsgets.f.snd ARPACK/SRC/dsgets.f
>--- ARPACK/SRC/dsgets.f.snd	1996-04-20 18:27:14.000000000 +0200
>+++ ARPACK/SRC/dsgets.f	2008-04-17 16:19:20.000000000 +0200
>@@ -148,7 +148,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = msgets
> c 
>       if (which .eq. 'BE') then
>@@ -198,7 +198,7 @@ c     
>          call dcopy (np, ritz, 1, shifts, 1)
>       end if
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tsgets = tsgets + (t1 - t0)
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/sgetv0.f.snd ARPACK/SRC/sgetv0.f
>--- ARPACK/SRC/sgetv0.f.snd	1999-04-08 00:42:46.000000000 +0200
>+++ ARPACK/SRC/sgetv0.f	2008-04-17 16:19:20.000000000 +0200
>@@ -214,7 +214,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mgetv0
> c 
>          ierr   = 0
>@@ -241,7 +241,7 @@ c        | Force the starting vector int
> c        | the generalized problem when B is possibly (singular).   |
> c        %----------------------------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nopx = nopx + 1
>             ipntr(1) = 1
>@@ -265,7 +265,7 @@ c
>       if (orth)  go to 40
> c 
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
>       end if
> c 
>@@ -274,7 +274,7 @@ c     | Starting vector is now in the ra
> c     | Compute B-norm of starting vector.                   |
> c     %------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       first = .TRUE.
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>@@ -290,7 +290,7 @@ c 
>    20 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -333,7 +333,7 @@ c     %---------------------------------
> c     | Compute the B-norm of the orthogonalized starting vector |
> c     %----------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>          call scopy (n, resid, 1, workd(n+1), 1)
>@@ -348,7 +348,7 @@ c 
>    40 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -406,7 +406,7 @@ c
>       end if
>       ido = 99
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tgetv0 = tgetv0 + (t1 - t0)
> c 
>  9000 continue
>diff -up ARPACK/SRC/snaitr.f.snd ARPACK/SRC/snaitr.f
>--- ARPACK/SRC/snaitr.f.snd	1996-08-27 18:09:01.000000000 +0200
>+++ ARPACK/SRC/snaitr.f	2008-04-17 16:19:20.000000000 +0200
>@@ -319,7 +319,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mnaitr
> c 
> c        %------------------------------%
>@@ -430,7 +430,7 @@ c              | which spans OP and exit
> c              %------------------------------------------------%
> c
>                info = j - 1
>-               call second (t1)
>+               call secnd2 (t1)
>                tnaitr = tnaitr + (t1 - t0)
>                ido = 99
>                go to 9000
>@@ -470,7 +470,7 @@ c        %------------------------------
> c
>          step3 = .true.
>          nopx  = nopx + 1
>-         call second (t2)
>+         call secnd2 (t2)
>          call scopy (n, v(1,j), 1, workd(ivj), 1)
>          ipntr(1) = ivj
>          ipntr(2) = irj
>@@ -490,7 +490,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j
> c        | if step3 = .true.                |
> c        %----------------------------------%
> c
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
>  
>          step3 = .false.
>@@ -506,7 +506,7 @@ c        | STEP 4:  Finish extending the
> c        |          factorization to length j.   |
> c        %---------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             step4 = .true.
>@@ -531,7 +531,7 @@ c        | if step4 = .true.            
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -576,11 +576,11 @@ c
> c
>          if (j .gt. 1) h(j,j-1) = betaj
> c
>-         call second (t4)
>+         call secnd2 (t4)
> c 
>          orth1 = .true.
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call scopy (n, resid, 1, workd(irj), 1)
>@@ -604,7 +604,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -681,7 +681,7 @@ c
>          call saxpy (j, one, workd(irj), 1, h(1,j), 1)
> c 
>          orth2 = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call scopy (n, resid, 1, workd(irj), 1)
>@@ -705,7 +705,7 @@ c        | Back from reverse communicati
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c
>@@ -783,7 +783,7 @@ c 
>          rstart = .false.
>          orth2  = .false.
> c 
>-         call second (t5)
>+         call secnd2 (t5)
>          titref = titref + (t5 - t4)
> c 
> c        %------------------------------------%
>@@ -792,7 +792,7 @@ c        %------------------------------
> c
>          j = j + 1
>          if (j .gt. k+np) then
>-            call second (t1)
>+            call secnd2 (t1)
>             tnaitr = tnaitr + (t1 - t0)
>             ido = 99
>             do 110 i = max(1,k), k+np-1
>diff -up ARPACK/SRC/snapps.f.snd ARPACK/SRC/snapps.f
>--- ARPACK/SRC/snapps.f.snd	1998-05-20 16:58:55.000000000 +0200
>+++ ARPACK/SRC/snapps.f	2008-04-17 16:19:20.000000000 +0200
>@@ -237,7 +237,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mnapps
>       kplusp = kev + np 
> c 
>@@ -635,7 +635,7 @@ c
>       end if
> c 
>  9000 continue
>-      call second (t1)
>+      call secnd2 (t1)
>       tnapps = tnapps + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/snaup2.f.snd ARPACK/SRC/snaup2.f
>--- ARPACK/SRC/snaup2.f.snd	2002-08-23 07:31:49.000000000 +0200
>+++ ARPACK/SRC/snaup2.f	2008-04-17 16:19:20.000000000 +0200
>@@ -258,7 +258,7 @@ c     %-----------------------%
> c
>       if (ido .eq. 0) then
> c 
>-         call second (t0)
>+         call secnd2 (t0)
> c 
>          msglvl = mnaup2
> c 
>@@ -758,7 +758,7 @@ c        | the first step of the next ca
> c        %---------------------------------------------%
> c
>          cnorm = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call scopy (n, resid, 1, workd(n+1), 1)
>@@ -783,7 +783,7 @@ c        | WORKD(1:N) := B*RESID        
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -822,7 +822,7 @@ c     %------------%
> c     | Error Exit |
> c     %------------%
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tnaup2 = t1 - t0
> c     
>  9000 continue
>diff -up ARPACK/SRC/snaupd.f.snd ARPACK/SRC/snaupd.f
>--- ARPACK/SRC/snaupd.f.snd	2002-08-23 07:29:34.000000000 +0200
>+++ ARPACK/SRC/snaupd.f	2008-04-17 16:19:20.000000000 +0200
>@@ -476,7 +476,7 @@ c        | & message level for debugging
> c        %-------------------------------%
> c
>          call sstatn
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mnaupd
> c
> c        %----------------%
>@@ -640,7 +640,7 @@ c
>      &               '_naupd: Associated Ritz estimates')
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tnaupd = t1 - t0
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/snconv.f.snd ARPACK/SRC/snconv.f
>--- ARPACK/SRC/snconv.f.snd	1996-04-20 18:27:21.000000000 +0200
>+++ ARPACK/SRC/snconv.f	2008-04-17 16:19:20.000000000 +0200
>@@ -119,7 +119,7 @@ c     |                                 
> c     | for some appropriate choice of norm.                        |
> c     %-------------------------------------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
> c
> c     %---------------------------------%
> c     | Get machine dependent constant. |
>@@ -134,7 +134,7 @@ c
>          if (bounds(i) .le. tol*temp)   nconv = nconv + 1
>    20 continue
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tnconv = tnconv + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/sneigh.f.snd ARPACK/SRC/sneigh.f
>--- ARPACK/SRC/sneigh.f.snd	1996-04-20 18:27:22.000000000 +0200
>+++ ARPACK/SRC/sneigh.f	2008-04-17 16:19:20.000000000 +0200
>@@ -170,7 +170,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mneigh
> c 
>       if (msglvl .gt. 2) then
>@@ -301,7 +301,7 @@ c
>      &              '_neigh: Ritz estimates for the eigenvalues of H')
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tneigh = tneigh + (t1 - t0)
> c
>  9000 continue
>diff -up ARPACK/SRC/sngets.f.snd ARPACK/SRC/sngets.f
>--- ARPACK/SRC/sngets.f.snd	1996-04-20 18:27:24.000000000 +0200
>+++ ARPACK/SRC/sngets.f	2008-04-17 16:19:21.000000000 +0200
>@@ -152,7 +152,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c 
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mngets
> c 
> c     %----------------------------------------------------%
>@@ -208,7 +208,7 @@ c     
>          call ssortc ( 'SR', .true., np, bounds, ritzr, ritzi )
>       end if
> c     
>-      call second (t1)
>+      call secnd2 (t1)
>       tngets = tngets + (t1 - t0)
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/ssaitr.f.snd ARPACK/SRC/ssaitr.f
>--- ARPACK/SRC/ssaitr.f.snd	1996-08-28 16:21:43.000000000 +0200
>+++ ARPACK/SRC/ssaitr.f	2008-04-17 16:19:20.000000000 +0200
>@@ -300,7 +300,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = msaitr
> c 
> c        %------------------------------%
>@@ -420,7 +420,7 @@ c              | which spans OP and exit
> c              %------------------------------------------------%
> c
>                info = j - 1
>-               call second (t1)
>+               call secnd2 (t1)
>                tsaitr = tsaitr + (t1 - t0)
>                ido = 99
>                go to 9000
>@@ -460,7 +460,7 @@ c        %------------------------------
> c
>          step3 = .true.
>          nopx  = nopx + 1
>-         call second (t2)
>+         call secnd2 (t2)
>          call scopy (n, v(1,j), 1, workd(ivj), 1)
>          ipntr(1) = ivj
>          ipntr(2) = irj
>@@ -479,7 +479,7 @@ c        | Back from reverse communicati
> c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
> c        %-----------------------------------%
> c
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
> c 
>          step3 = .false.
>@@ -500,7 +500,7 @@ c        | assumed to have A*v_{j}.     
> c        %-------------------------------------------%
> c
>          if (mode .eq. 2) go to 65
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             step4 = .true.
>@@ -524,7 +524,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*OP*v_
> c        %-----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if 
> c
>@@ -592,12 +592,12 @@ c
>          else
>             h(j,1) = rnorm
>          end if
>-         call second (t4)
>+         call secnd2 (t4)
> c 
>          orth1 = .true.
>          iter  = 0
> c 
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call scopy (n, resid, 1, workd(irj), 1)
>@@ -621,7 +621,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -695,7 +695,7 @@ c
>          h(j,2) = h(j,2) + workd(irj + j - 1)
> c 
>          orth2 = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call scopy (n, resid, 1, workd(irj), 1)
>@@ -719,7 +719,7 @@ c        | Back from reverse communicati
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c
>@@ -791,7 +791,7 @@ c 
>          rstart = .false.
>          orth2  = .false.
> c 
>-         call second (t5)
>+         call secnd2 (t5)
>          titref = titref + (t5 - t4)
> c 
> c        %----------------------------------------------------------%
>@@ -815,7 +815,7 @@ c        %------------------------------
> c
>          j = j + 1
>          if (j .gt. k+np) then
>-            call second (t1)
>+            call secnd2 (t1)
>             tsaitr = tsaitr + (t1 - t0)
>             ido = 99
> c
>diff -up ARPACK/SRC/ssapps.f.snd ARPACK/SRC/ssapps.f
>--- ARPACK/SRC/ssapps.f.snd	1998-05-20 16:58:58.000000000 +0200
>+++ ARPACK/SRC/ssapps.f	2008-04-17 16:19:20.000000000 +0200
>@@ -213,7 +213,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = msapps
> c 
>       kplusp = kev + np 
>@@ -503,7 +503,7 @@ c
>          end if
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tsapps = tsapps + (t1 - t0)
> c 
>  9000 continue 
>diff -up ARPACK/SRC/ssaup2.f.snd ARPACK/SRC/ssaup2.f
>--- ARPACK/SRC/ssaup2.f.snd	1998-05-20 16:58:59.000000000 +0200
>+++ ARPACK/SRC/ssaup2.f	2008-04-17 16:19:20.000000000 +0200
>@@ -262,7 +262,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = msaup2
> c
> c        %---------------------------------%
>@@ -770,7 +770,7 @@ c        | the first step of the next ca
> c        %---------------------------------------------%
> c
>          cnorm = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call scopy (n, resid, 1, workd(n+1), 1)
>@@ -795,7 +795,7 @@ c        | WORKD(1:N) := B*RESID        
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -837,7 +837,7 @@ c     %------------%
> c     | Error exit |
> c     %------------%
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tsaup2 = t1 - t0
> c 
>  9000 continue
>diff -up ARPACK/SRC/ssaupd.f.snd ARPACK/SRC/ssaupd.f
>--- ARPACK/SRC/ssaupd.f.snd	2001-04-11 00:52:40.000000000 +0200
>+++ ARPACK/SRC/ssaupd.f	2008-04-17 16:19:20.000000000 +0200
>@@ -478,7 +478,7 @@ c        | & message level for debugging
> c        %-------------------------------%
> c
>          call sstats
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = msaupd
> c
>          ierr   = 0
>@@ -638,7 +638,7 @@ c
>      &               '_saupd: corresponding error bounds')
>       end if 
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tsaupd = t1 - t0
> c 
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/ssconv.f.snd ARPACK/SRC/ssconv.f
>--- ARPACK/SRC/ssconv.f.snd	1996-04-20 18:27:27.000000000 +0200
>+++ ARPACK/SRC/ssconv.f	2008-04-17 16:19:20.000000000 +0200
>@@ -106,7 +106,7 @@ c     %-----------------------%
> c     | Executable Statements |
> c     %-----------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
> c
>       eps23 = slamch('Epsilon-Machine') 
>       eps23 = eps23**(2.0E+0 / 3.0E+0)
>@@ -126,7 +126,7 @@ c
> c
>    10 continue
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tsconv = tsconv + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/sseigt.f.snd ARPACK/SRC/sseigt.f
>--- ARPACK/SRC/sseigt.f.snd	1996-08-27 07:29:04.000000000 +0200
>+++ ARPACK/SRC/sseigt.f	2008-04-17 16:19:20.000000000 +0200
>@@ -138,7 +138,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------% 
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mseigt
> c
>       if (msglvl .gt. 0) then
>@@ -168,7 +168,7 @@ c
>          bounds(k) = rnorm*abs(bounds(k))
>    30 continue
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tseigt = tseigt + (t1 - t0)
> c
>  9000 continue
>diff -up ARPACK/SRC/ssgets.f.snd ARPACK/SRC/ssgets.f
>--- ARPACK/SRC/ssgets.f.snd	1996-04-20 18:27:30.000000000 +0200
>+++ ARPACK/SRC/ssgets.f	2008-04-17 16:19:20.000000000 +0200
>@@ -148,7 +148,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = msgets
> c 
>       if (which .eq. 'BE') then
>@@ -198,7 +198,7 @@ c     
>          call scopy (np, ritz, 1, shifts, 1)
>       end if
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tsgets = tsgets + (t1 - t0)
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/zgetv0.f.snd ARPACK/SRC/zgetv0.f
>--- ARPACK/SRC/zgetv0.f.snd	1999-04-08 00:46:45.000000000 +0200
>+++ ARPACK/SRC/zgetv0.f	2008-04-17 16:19:20.000000000 +0200
>@@ -211,7 +211,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mgetv0
> c 
>          ierr   = 0
>@@ -238,7 +238,7 @@ c        | Force the starting vector int
> c        | the generalized problem when B is possibly (singular).   |
> c        %----------------------------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nopx = nopx + 1
>             ipntr(1) = 1
>@@ -261,7 +261,7 @@ c     %---------------------------------
> c
>       if (orth)  go to 40
> c 
>-      call second (t3)
>+      call secnd2 (t3)
>       tmvopx = tmvopx + (t3 - t2)
> c 
> c     %------------------------------------------------------%
>@@ -269,7 +269,7 @@ c     | Starting vector is now in the ra
> c     | Compute B-norm of starting vector.                   |
> c     %------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       first = .TRUE.
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>@@ -285,7 +285,7 @@ c 
>    20 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -328,7 +328,7 @@ c     %---------------------------------
> c     | Compute the B-norm of the orthogonalized starting vector |
> c     %----------------------------------------------------------%
> c
>-      call second (t2)
>+      call secnd2 (t2)
>       if (bmat .eq. 'G') then
>          nbx = nbx + 1
>          call zcopy (n, resid, 1, workd(n+1), 1)
>@@ -343,7 +343,7 @@ c 
>    40 continue
> c
>       if (bmat .eq. 'G') then
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvbx = tmvbx + (t3 - t2)
>       end if
> c 
>@@ -401,7 +401,7 @@ c
>       end if
>       ido = 99
> c 
>-      call second (t1)
>+      call secnd2 (t1)
>       tgetv0 = tgetv0 + (t1 - t0)
> c 
>  9000 continue
>diff -up ARPACK/SRC/znaitr.f.snd ARPACK/SRC/znaitr.f
>--- ARPACK/SRC/znaitr.f.snd	1996-08-27 18:12:57.000000000 +0200
>+++ ARPACK/SRC/znaitr.f	2008-04-17 16:19:20.000000000 +0200
>@@ -326,7 +326,7 @@ c        | Initialize timing statistics 
> c        | & message level for debugging |
> c        %-------------------------------%
> c
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mcaitr
> c 
> c        %------------------------------%
>@@ -437,7 +437,7 @@ c              | which spans OP and exit
> c              %------------------------------------------------%
> c
>                info = j - 1
>-               call second (t1)
>+               call secnd2 (t1)
>                tcaitr = tcaitr + (t1 - t0)
>                ido = 99
>                go to 9000
>@@ -477,7 +477,7 @@ c        %------------------------------
> c
>          step3 = .true.
>          nopx  = nopx + 1
>-         call second (t2)
>+         call secnd2 (t2)
>          call zcopy (n, v(1,j), 1, workd(ivj), 1)
>          ipntr(1) = ivj
>          ipntr(2) = irj
>@@ -497,7 +497,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j
> c        | if step3 = .true.                |
> c        %----------------------------------%
> c
>-         call second (t3)
>+         call secnd2 (t3)
>          tmvopx = tmvopx + (t3 - t2)
>  
>          step3 = .false.
>@@ -513,7 +513,7 @@ c        | STEP 4:  Finish extending the
> c        |          factorization to length j.   |
> c        %---------------------------------------%
> c
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             step4 = .true.
>@@ -538,7 +538,7 @@ c        | if step4 = .true.            
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -583,11 +583,11 @@ c
> c
>          if (j .gt. 1) h(j,j-1) = dcmplx(betaj, rzero)
> c
>-         call second (t4)
>+         call secnd2 (t4)
> c 
>          orth1 = .true.
> c 
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call zcopy (n, resid, 1, workd(irj), 1)
>@@ -611,7 +611,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -689,7 +689,7 @@ c
>          call zaxpy (j, one, workd(irj), 1, h(1,j), 1)
> c 
>          orth2 = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call zcopy (n, resid, 1, workd(irj), 1)
>@@ -713,7 +713,7 @@ c        | Back from reverse communicati
> c        %---------------------------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if 
> c
>@@ -791,7 +791,7 @@ c 
>          rstart = .false.
>          orth2  = .false.
> c 
>-         call second (t5)
>+         call secnd2 (t5)
>          titref = titref + (t5 - t4)
> c 
> c        %------------------------------------%
>@@ -800,7 +800,7 @@ c        %------------------------------
> c
>          j = j + 1
>          if (j .gt. k+np) then
>-            call second (t1)
>+            call secnd2 (t1)
>             tcaitr = tcaitr + (t1 - t0)
>             ido = 99
>             do 110 i = max(1,k), k+np-1
>diff -up ARPACK/SRC/znapps.f.snd ARPACK/SRC/znapps.f
>--- ARPACK/SRC/znapps.f.snd	1998-05-20 16:45:03.000000000 +0200
>+++ ARPACK/SRC/znapps.f	2008-04-17 16:19:20.000000000 +0200
>@@ -240,7 +240,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mcapps
> c 
>       kplusp = kev + np 
>@@ -495,7 +495,7 @@ c
>       end if
> c
>  9000 continue
>-      call second (t1)
>+      call secnd2 (t1)
>       tcapps = tcapps + (t1 - t0)
> c 
>       return
>diff -up ARPACK/SRC/znaup2.f.snd ARPACK/SRC/znaup2.f
>--- ARPACK/SRC/znaup2.f.snd	2000-06-01 22:28:53.000000000 +0200
>+++ ARPACK/SRC/znaup2.f	2008-04-17 16:19:20.000000000 +0200
>@@ -264,7 +264,7 @@ c     %-----------------------%
> c
>       if (ido .eq. 0) then
> c 
>-         call second (t0)
>+         call secnd2 (t0)
> c 
>          msglvl = mcaup2
> c 
>@@ -724,7 +724,7 @@ c        | the first step of the next ca
> c        %---------------------------------------------%
> c
>          cnorm = .true.
>-         call second (t2)
>+         call secnd2 (t2)
>          if (bmat .eq. 'G') then
>             nbx = nbx + 1
>             call zcopy  (n, resid, 1, workd(n+1), 1)
>@@ -749,7 +749,7 @@ c        | WORKD(1:N) := B*RESID        
> c        %----------------------------------%
> c
>          if (bmat .eq. 'G') then
>-            call second (t3)
>+            call secnd2 (t3)
>             tmvbx = tmvbx + (t3 - t2)
>          end if
> c 
>@@ -788,7 +788,7 @@ c     %------------%
> c     | Error Exit |
> c     %------------%
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tcaup2 = t1 - t0
> c     
>  9000 continue
>diff -up ARPACK/SRC/znaupd.f.snd ARPACK/SRC/znaupd.f
>--- ARPACK/SRC/znaupd.f.snd	2002-08-15 07:50:57.000000000 +0200
>+++ ARPACK/SRC/znaupd.f	2008-04-17 16:19:20.000000000 +0200
>@@ -451,7 +451,7 @@ c        | & message level for debugging
> c        %-------------------------------%
> c
>          call zstatn
>-         call second (t0)
>+         call secnd2 (t0)
>          msglvl = mcaupd
> c
> c        %----------------%
>@@ -611,7 +611,7 @@ c
>      &               '_naupd: Associated Ritz estimates')
>       end if
> c
>-      call second (t1)
>+      call secnd2 (t1)
>       tcaupd = t1 - t0
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/SRC/zneigh.f.snd ARPACK/SRC/zneigh.f
>--- ARPACK/SRC/zneigh.f.snd	1996-04-20 19:16:01.000000000 +0200
>+++ ARPACK/SRC/zneigh.f	2008-04-17 16:19:20.000000000 +0200
>@@ -171,7 +171,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mceigh
> c 
>       if (msglvl .gt. 2) then
>@@ -244,7 +244,7 @@ c
>      &              '_neigh: Ritz estimates for the eigenvalues of H')
>       end if
> c
>-      call second(t1)
>+      call secnd2(t1)
>       tceigh = tceigh + (t1 - t0)
> c
>  9000 continue
>diff -up ARPACK/SRC/zngets.f.snd ARPACK/SRC/zngets.f
>--- ARPACK/SRC/zngets.f.snd	1996-04-20 19:16:02.000000000 +0200
>+++ ARPACK/SRC/zngets.f	2008-04-17 16:19:20.000000000 +0200
>@@ -137,7 +137,7 @@ c     | Initialize timing statistics  |
> c     | & message level for debugging |
> c     %-------------------------------%
> c 
>-      call second (t0)
>+      call secnd2 (t0)
>       msglvl = mcgets
> c 
>       call zsortc (which, .true., kev+np, ritz, bounds)
>@@ -157,7 +157,7 @@ c     
> c
>       end if
> c     
>-      call second (t1)
>+      call secnd2 (t1)
>       tcgets = tcgets + (t1 - t0)
> c
>       if (msglvl .gt. 0) then
>diff -up ARPACK/UTIL/second.f.snd ARPACK/UTIL/second.f
>--- ARPACK/UTIL/second.f.snd	1995-10-02 19:56:44.000000000 +0100
>+++ ARPACK/UTIL/second.f	2008-04-17 16:38:20.000000000 +0200
>@@ -1,4 +1,4 @@
>-      SUBROUTINE SECOND( T )
>+      SUBROUTINE secnd2( T )
> *
>       REAL       T
> *
>@@ -21,7 +21,7 @@
> *     ..
> *     .. External Functions ..
>       REAL               ETIME
>-      EXTERNAL           ETIME
>+      INTRINSIC           ETIME
> *     ..
> *     .. Executable Statements ..
> *

Actions: View | Diff

Attachments on bug 442526: 302758 | 317638 | 317639