1c
2c\SCCS Information: @(#)
3c FILE: stats.F   SID: 2.1   DATE OF SID: 4/19/96   RELEASE: 2
4c     %---------------------------------------------%
5c     | Initialize statistic and timing information |
6c     | for symmetric Arnoldi code.                 |
7c     %---------------------------------------------%
8
9      subroutine dstats
10
11c     %--------------------------------%
12c     | See stat.doc for documentation |
13c     %--------------------------------%
14      include   'stat.h'
15
16c     %-----------------------%
17c     | Executable Statements |
18c     %-----------------------%
19
20      nopx   = 0
21      nbx    = 0
22      nrorth = 0
23      nitref = 0
24      nrstrt = 0
25
26      tsaupd = 0.0D+0
27      tsaup2 = 0.0D+0
28      tsaitr = 0.0D+0
29      tseigt = 0.0D+0
30      tsgets = 0.0D+0
31      tsapps = 0.0D+0
32      tsconv = 0.0D+0
33      titref = 0.0D+0
34      tgetv0 = 0.0D+0
35      trvec  = 0.0D+0
36
37c     %----------------------------------------------------%
38c     | User time including reverse communication overhead |
39c     %----------------------------------------------------%
40      tmvopx = 0.0D+0
41      tmvbx  = 0.0D+0
42
43      return
44c
45c     End of dstats
46c
47      end
48