Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
Path: blob/devel/mathlibs/src/arpack/cstatn.f
5191 views
1
c
2
c\SCCS Information: @(#)
3
c FILE: statn.F SID: 2.2 DATE OF SID: 4/20/96 RELEASE: 2
4
c
5
c %---------------------------------------------%
6
c | Initialize statistic and timing information |
7
c | for complex nonsymmetric Arnoldi code. |
8
c %---------------------------------------------%
9
10
subroutine cstatn
11
c
12
c %--------------------------------%
13
c | See stat.doc for documentation |
14
c %--------------------------------%
15
c
16
include 'stat.h'
17
18
c %-----------------------%
19
c | Executable Statements |
20
c %-----------------------%
21
22
nopx = 0
23
nbx = 0
24
nrorth = 0
25
nitref = 0
26
nrstrt = 0
27
28
tcaupd = 0.0E+0
29
tcaup2 = 0.0E+0
30
tcaitr = 0.0E+0
31
tceigh = 0.0E+0
32
tcgets = 0.0E+0
33
tcapps = 0.0E+0
34
tcconv = 0.0E+0
35
titref = 0.0E+0
36
tgetv0 = 0.0E+0
37
trvec = 0.0E+0
38
39
c %----------------------------------------------------%
40
c | User time including reverse communication overhead |
41
c %----------------------------------------------------%
42
tmvopx = 0.0E+0
43
tmvbx = 0.0E+0
44
45
return
46
c
47
c %---------------%
48
c | End of cstatn |
49
c %---------------%
50
c
51
end
52
53