2 c *****************************************************************************
3 c Anasazi: Block Eigensolvers Package
5 c Copyright 2004 NTESS and the Anasazi contributors.
6 c SPDX-License-Identifier: BSD-3-Clause
7 c *****************************************************************************
9 c %--------------------------------%
10 c | See stat.doc
for documentation |
11 c %--------------------------------%
13 c\SCCS Information: @(#)
14 c FILE: stat.h SID: 2.2 DATE OF SID: 11/16/95 RELEASE: 2
16 real t0, t1, t2, t3, t4, t5
17 save t0, t1, t2, t3, t4, t5
19 integer nopx, nbx, nrorth, nitref, nrstrt
20 real tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv,
21 & tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv,
22 & tcaupd, tcaup2, tcaitr, tceigh, tcgets, tcapps, tcconv,
23 & tmvopx, tmvbx, tgetv0, titref, trvec
25 & nopx, nbx, nrorth, nitref, nrstrt,
26 & tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv,
27 & tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv,
28 & tcaupd, tcaup2, tcaitr, tceigh, tcgets, tcapps, tcconv,
29 & tmvopx, tmvbx, tgetv0, titref, trvec