hollalinux
/
slackbuilds
mirror of https://github.com/SlackBuildsOrg/slackbuilds.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
slackbuilds/academic/arpack/arpack-second-bug.patch

1830 lines
54 KiB
Diff
Raw Blame History

diff -up ARPACK/UTIL/second.f.sb ARPACK/UTIL/second.f
--- ARPACK/UTIL/second.f.sb 1995-10-02 19:56:44.000000000 +0100
+++ ARPACK/UTIL/second.f 2007-10-24 02:50:57.000000000 +0200
@@ -1,4 +1,4 @@
- SUBROUTINE SECOND( T )
+ SUBROUTINE secnd2( T )
*
REAL T
*
diff -up ARPACK/SRC/znaupd.f.sb ARPACK/SRC/znaupd.f
--- ARPACK/SRC/znaupd.f.sb 2002-08-15 07:50:57.000000000 +0200
+++ ARPACK/SRC/znaupd.f 2007-10-24 02:50:57.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/dgetv0.f.sb ARPACK/SRC/dgetv0.f
--- ARPACK/SRC/dgetv0.f.sb 1999-04-08 00:42:47.000000000 +0200
+++ ARPACK/SRC/dgetv0.f 2007-10-24 02:50:57.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/ssgets.f.sb ARPACK/SRC/ssgets.f
--- ARPACK/SRC/ssgets.f.sb 1996-04-20 18:27:30.000000000 +0200
+++ ARPACK/SRC/ssgets.f 2007-10-24 02:50:57.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/snaup2.f.sb ARPACK/SRC/snaup2.f
--- ARPACK/SRC/snaup2.f.sb 2002-08-23 07:31:49.000000000 +0200
+++ ARPACK/SRC/snaup2.f 2007-10-24 02:50:57.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/dsgets.f.sb ARPACK/SRC/dsgets.f
--- ARPACK/SRC/dsgets.f.sb 1996-04-20 18:27:14.000000000 +0200
+++ ARPACK/SRC/dsgets.f 2007-10-24 02:50:57.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/dsconv.f.sb ARPACK/SRC/dsconv.f
--- ARPACK/SRC/dsconv.f.sb 1996-04-20 18:27:11.000000000 +0200
+++ ARPACK/SRC/dsconv.f 2007-10-24 02:50:57.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/dneigh.f.sb ARPACK/SRC/dneigh.f
--- ARPACK/SRC/dneigh.f.sb 1996-04-20 18:27:06.000000000 +0200
+++ ARPACK/SRC/dneigh.f 2007-10-24 02:50:57.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/dsaitr.f.sb ARPACK/SRC/dsaitr.f
--- ARPACK/SRC/dsaitr.f.sb 1996-08-28 16:21:43.000000000 +0200
+++ ARPACK/SRC/dsaitr.f 2007-10-24 02:50:57.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/dnaup2.f.sb ARPACK/SRC/dnaup2.f
--- ARPACK/SRC/dnaup2.f.sb 2002-08-23 07:31:50.000000000 +0200
+++ ARPACK/SRC/dnaup2.f 2007-10-24 02:50:57.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/cneigh.f.sb ARPACK/SRC/cneigh.f
--- ARPACK/SRC/cneigh.f.sb 1996-04-20 19:15:53.000000000 +0200
+++ ARPACK/SRC/cneigh.f 2007-10-24 02:50:57.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.sb ARPACK/SRC/zngets.f
--- ARPACK/SRC/zngets.f.sb 1996-04-20 19:16:02.000000000 +0200
+++ ARPACK/SRC/zngets.f 2007-10-24 02:50:57.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/SRC/sseigt.f.sb ARPACK/SRC/sseigt.f
--- ARPACK/SRC/sseigt.f.sb 1996-08-27 07:29:04.000000000 +0200
+++ ARPACK/SRC/sseigt.f 2007-10-24 02:50:57.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/dnapps.f.sb ARPACK/SRC/dnapps.f
--- ARPACK/SRC/dnapps.f.sb 1998-05-20 16:58:56.000000000 +0200
+++ ARPACK/SRC/dnapps.f 2007-10-24 02:50:57.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/dsapps.f.sb ARPACK/SRC/dsapps.f
--- ARPACK/SRC/dsapps.f.sb 1998-05-20 16:58:59.000000000 +0200
+++ ARPACK/SRC/dsapps.f 2007-10-24 02:50:57.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.sb ARPACK/SRC/ssaup2.f
--- ARPACK/SRC/ssaup2.f.sb 1998-05-20 16:58:59.000000000 +0200
+++ ARPACK/SRC/ssaup2.f 2007-10-24 02:50:57.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/ssaitr.f.sb ARPACK/SRC/ssaitr.f
--- ARPACK/SRC/ssaitr.f.sb 1996-08-28 16:21:43.000000000 +0200
+++ ARPACK/SRC/ssaitr.f 2007-10-24 02:50:57.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/snapps.f.sb ARPACK/SRC/snapps.f
--- ARPACK/SRC/snapps.f.sb 1998-05-20 16:58:55.000000000 +0200
+++ ARPACK/SRC/snapps.f 2007-10-24 02:50:57.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/dnaitr.f.sb ARPACK/SRC/dnaitr.f
--- ARPACK/SRC/dnaitr.f.sb 1996-08-27 18:09:00.000000000 +0200
+++ ARPACK/SRC/dnaitr.f 2007-10-24 02:50:57.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/sneigh.f.sb ARPACK/SRC/sneigh.f
--- ARPACK/SRC/sneigh.f.sb 1996-04-20 18:27:22.000000000 +0200
+++ ARPACK/SRC/sneigh.f 2007-10-24 02:50:57.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/dsaup2.f.sb ARPACK/SRC/dsaup2.f
--- ARPACK/SRC/dsaup2.f.sb 1998-05-20 16:59:00.000000000 +0200
+++ ARPACK/SRC/dsaup2.f 2007-10-24 02:50:57.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/snaupd.f.sb ARPACK/SRC/snaupd.f
--- ARPACK/SRC/snaupd.f.sb 2002-08-23 07:29:34.000000000 +0200
+++ ARPACK/SRC/snaupd.f 2007-10-24 02:50:57.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/znapps.f.sb ARPACK/SRC/znapps.f
--- ARPACK/SRC/znapps.f.sb 1998-05-20 16:45:03.000000000 +0200
+++ ARPACK/SRC/znapps.f 2007-10-24 02:50:57.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/znaitr.f.sb ARPACK/SRC/znaitr.f
--- ARPACK/SRC/znaitr.f.sb 1996-08-27 18:12:57.000000000 +0200
+++ ARPACK/SRC/znaitr.f 2007-10-24 02:50:57.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/zgetv0.f.sb ARPACK/SRC/zgetv0.f
--- ARPACK/SRC/zgetv0.f.sb 1999-04-08 00:46:45.000000000 +0200
+++ ARPACK/SRC/zgetv0.f 2007-10-24 02:50:57.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/zneigh.f.sb ARPACK/SRC/zneigh.f
--- ARPACK/SRC/zneigh.f.sb 1996-04-20 19:16:01.000000000 +0200
+++ ARPACK/SRC/zneigh.f 2007-10-24 02:50:57.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/cnaupd.f.sb ARPACK/SRC/cnaupd.f
--- ARPACK/SRC/cnaupd.f.sb 2002-08-15 07:50:57.000000000 +0200
+++ ARPACK/SRC/cnaupd.f 2007-10-24 02:50:57.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/cgetv0.f.sb ARPACK/SRC/cgetv0.f
--- ARPACK/SRC/cgetv0.f.sb 1999-04-08 00:46:44.000000000 +0200
+++ ARPACK/SRC/cgetv0.f 2007-10-24 02:50:57.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/sgetv0.f.sb ARPACK/SRC/sgetv0.f
--- ARPACK/SRC/sgetv0.f.sb 1999-04-08 00:42:46.000000000 +0200
+++ ARPACK/SRC/sgetv0.f 2007-10-24 02:50:57.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/dnaupd.f.sb ARPACK/SRC/dnaupd.f
--- ARPACK/SRC/dnaupd.f.sb 2002-08-23 07:29:34.000000000 +0200
+++ ARPACK/SRC/dnaupd.f 2007-10-24 02:50:57.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/cnaitr.f.sb ARPACK/SRC/cnaitr.f
--- ARPACK/SRC/cnaitr.f.sb 1996-08-27 18:12:56.000000000 +0200
+++ ARPACK/SRC/cnaitr.f 2007-10-24 02:50:57.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/dsaupd.f.sb ARPACK/SRC/dsaupd.f
--- ARPACK/SRC/dsaupd.f.sb 2001-04-11 00:52:40.000000000 +0200
+++ ARPACK/SRC/dsaupd.f 2007-10-24 02:50:57.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/znaup2.f.sb ARPACK/SRC/znaup2.f
--- ARPACK/SRC/znaup2.f.sb 2000-06-01 22:28:53.000000000 +0200
+++ ARPACK/SRC/znaup2.f 2007-10-24 02:50:57.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/snaitr.f.sb ARPACK/SRC/snaitr.f
--- ARPACK/SRC/snaitr.f.sb 1996-08-27 18:09:01.000000000 +0200
+++ ARPACK/SRC/snaitr.f 2007-10-24 02:50:57.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/cnapps.f.sb ARPACK/SRC/cnapps.f
--- ARPACK/SRC/cnapps.f.sb 1998-05-20 16:45:03.000000000 +0200
+++ ARPACK/SRC/cnapps.f 2007-10-24 02:50:57.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/dnconv.f.sb ARPACK/SRC/dnconv.f
--- ARPACK/SRC/dnconv.f.sb 1996-04-20 18:27:05.000000000 +0200
+++ ARPACK/SRC/dnconv.f 2007-10-24 02:50:57.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/dngets.f.sb ARPACK/SRC/dngets.f
--- ARPACK/SRC/dngets.f.sb 1996-04-20 18:27:07.000000000 +0200
+++ ARPACK/SRC/dngets.f 2007-10-24 02:50:57.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/ssconv.f.sb ARPACK/SRC/ssconv.f
--- ARPACK/SRC/ssconv.f.sb 1996-04-20 18:27:27.000000000 +0200
+++ ARPACK/SRC/ssconv.f 2007-10-24 02:50:57.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/ssapps.f.sb ARPACK/SRC/ssapps.f
--- ARPACK/SRC/ssapps.f.sb 1998-05-20 16:58:58.000000000 +0200
+++ ARPACK/SRC/ssapps.f 2007-10-24 02:50:57.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/ssaupd.f.sb ARPACK/SRC/ssaupd.f
--- ARPACK/SRC/ssaupd.f.sb 2001-04-11 00:52:40.000000000 +0200
+++ ARPACK/SRC/ssaupd.f 2007-10-24 02:50:57.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/snconv.f.sb ARPACK/SRC/snconv.f
--- ARPACK/SRC/snconv.f.sb 1996-04-20 18:27:21.000000000 +0200
+++ ARPACK/SRC/snconv.f 2007-10-24 02:50:57.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/cnaup2.f.sb ARPACK/SRC/cnaup2.f
--- ARPACK/SRC/cnaup2.f.sb 2000-06-01 22:28:53.000000000 +0200
+++ ARPACK/SRC/cnaup2.f 2007-10-24 02:50:57.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/dseigt.f.sb ARPACK/SRC/dseigt.f
--- ARPACK/SRC/dseigt.f.sb 1996-08-27 07:29:04.000000000 +0200
+++ ARPACK/SRC/dseigt.f 2007-10-24 02:50:57.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/sngets.f.sb ARPACK/SRC/sngets.f
--- ARPACK/SRC/sngets.f.sb 1996-04-20 18:27:24.000000000 +0200
+++ ARPACK/SRC/sngets.f 2007-10-24 02:50:57.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/cngets.f.sb ARPACK/SRC/cngets.f
--- ARPACK/SRC/cngets.f.sb 1996-04-20 19:15:56.000000000 +0200
+++ ARPACK/SRC/cngets.f 2007-10-24 02:50:57.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
Reference in New Issue View Git Blame Copy Permalink