1
/* -- translated by f2c (version 20050501).
2
You must link the resulting object file with libf2c:
3
on Microsoft Windows system, link with libf2c.lib;
4
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5
or, if you install libf2c.a in a standard place, with -lf2c -lm
6
-- in that order, at the end of the command line, as in
8
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
10
http://www.netlib.org/f2c/libf2c.zip
14
#include "arpack_internal.h"
17
/* Common Block Declarations */
20
integer nopx, nbx, nrorth, nitref, nrstrt;
21
real tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv, tnaupd,
22
tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv, tcaupd, tcaup2,
23
tcaitr, tceigh, tcgets, tcapps, tcconv, tmvopx, tmvbx, tgetv0,
27
#define timing_1 timing_
30
/* \SCCS Information: @(#) */
31
/* FILE: stats.F SID: 2.1 DATE OF SID: 4/19/96 RELEASE: 2 */
32
/* %---------------------------------------------% */
33
/* | Initialize statistic and timing information | */
34
/* | for symmetric Arnoldi code. | */
35
/* %---------------------------------------------% */
36
/* Subroutine */ int igraphdstats_(void)
38
/* %--------------------------------% */
39
/* | See stat.doc for documentation | */
40
/* %--------------------------------% */
41
/* %-----------------------% */
42
/* | Executable Statements | */
43
/* %-----------------------% */
44
/* %--------------------------------% */
45
/* | See stat.doc for documentation | */
46
/* %--------------------------------% */
48
/* \SCCS Information: @(#) */
49
/* FILE: stat.h SID: 2.2 DATE OF SID: 11/16/95 RELEASE: 2 */
57
timing_1.tsaupd = 0.f;
58
timing_1.tsaup2 = 0.f;
59
timing_1.tsaitr = 0.f;
60
timing_1.tseigt = 0.f;
61
timing_1.tsgets = 0.f;
62
timing_1.tsapps = 0.f;
63
timing_1.tsconv = 0.f;
64
timing_1.titref = 0.f;
65
timing_1.tgetv0 = 0.f;
67
/* %----------------------------------------------------% */
68
/* | User time including reverse communication overhead | */
69
/* %----------------------------------------------------% */
70
timing_1.tmvopx = 0.f;