1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
/* ../SRC/dstatn.f -- translated by f2c (version 20061008).
You must link the resulting object file with libf2c:
on Microsoft Windows system, link with libf2c.lib;
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
or, if you install libf2c.a in a standard place, with -lf2c -lm
-- in that order, at the end of the command line, as in
cc *.o -lf2c -lm
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
http://www.netlib.org/f2c/libf2c.zip
*/
#include "f2c.h"
/* Common Block Declarations */
struct {
integer nopx, nbx, nrorth, nitref, nrstrt;
real tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv, tnaupd,
tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv, tcaupd, tcaup2,
tcaitr, tceigh, tcgets, tcapps, tcconv, tmvopx, tmvbx, tgetv0,
titref, trvec;
} timing_;
#define timing_1 timing_
/* %---------------------------------------------% */
/* | Initialize statistic and timing information | */
/* | for nonsymmetric Arnoldi code. | */
/* %---------------------------------------------% */
/* \Author */
/* Danny Sorensen Phuong Vu */
/* Richard Lehoucq CRPC / Rice University */
/* Dept. of Computational & Houston, Texas */
/* Applied Mathematics */
/* Rice University */
/* Houston, Texas */
/* \SCCS Information: @(#) */
/* FILE: statn.F SID: 2.4 DATE OF SID: 4/20/96 RELEASE: 2 */
/* Subroutine */ int dstatn_(void)
{
/* %--------------------------------% */
/* | See stat.doc for documentation | */
/* %--------------------------------% */
/* %-----------------------% */
/* | Executable Statements | */
/* %-----------------------% */
/* %--------------------------------% */
/* | See stat.doc for documentation | */
/* %--------------------------------% */
/* \SCCS Information: @(#) */
/* FILE: stat.h SID: 2.2 DATE OF SID: 11/16/95 RELEASE: 2 */
timing_1.nopx = 0;
timing_1.nbx = 0;
timing_1.nrorth = 0;
timing_1.nitref = 0;
timing_1.nrstrt = 0;
timing_1.tnaupd = 0.f;
timing_1.tnaup2 = 0.f;
timing_1.tnaitr = 0.f;
timing_1.tneigh = 0.f;
timing_1.tngets = 0.f;
timing_1.tnapps = 0.f;
timing_1.tnconv = 0.f;
timing_1.titref = 0.f;
timing_1.tgetv0 = 0.f;
timing_1.trvec = 0.f;
/* %----------------------------------------------------% */
/* | User time including reverse communication overhead | */
/* %----------------------------------------------------% */
timing_1.tmvopx = 0.f;
timing_1.tmvbx = 0.f;
return 0;
/* %---------------% */
/* | End of dstatn | */
/* %---------------% */
} /* dstatn_ */
|
