Abdelrahman Said
65 lines
1.8 KiB
C
65 lines
1.8 KiB
C
/* -- translated by f2c (version 20240504).
|
|
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"
|
|
|
|
|
|
/* \SCCS Information: @(#)
|
|
FILE: stats.F SID: 2.1 DATE OF SID: 4/19/96 RELEASE: 2
|
|
%---------------------------------------------%
|
|
| Initialize statistic and timing information |
|
|
| for symmetric Arnoldi code. |
|
|
%---------------------------------------------%
|
|
Subroutine */ int igraphdstats_(void)
|
|
{
|
|
integer nbx=0, nopx=0;
|
|
real trvec=0, tmvbx=0, tgetv0=0, tsaup2=0;
|
|
integer nitref=0;
|
|
real titref=0, tseigt=0, tsaupd=0, tsaitr=0, tsgets=0, tsapps=0;
|
|
integer nrorth=0;
|
|
real tsconv=0;
|
|
integer nrstrt=0;
|
|
real tmvopx=0;
|
|
|
|
/* %--------------------------------%
|
|
| See stat.doc for documentation |
|
|
%--------------------------------%
|
|
%-----------------------%
|
|
| Executable Statements |
|
|
%-----------------------% */
|
|
nopx = 0;
|
|
nbx = 0;
|
|
nrorth = 0;
|
|
nitref = 0;
|
|
nrstrt = 0;
|
|
tsaupd = 0.f;
|
|
tsaup2 = 0.f;
|
|
tsaitr = 0.f;
|
|
tseigt = 0.f;
|
|
tsgets = 0.f;
|
|
tsapps = 0.f;
|
|
tsconv = 0.f;
|
|
titref = 0.f;
|
|
tgetv0 = 0.f;
|
|
trvec = 0.f;
|
|
/* %----------------------------------------------------%
|
|
| User time including reverse communication overhead |
|
|
%----------------------------------------------------% */
|
|
tmvopx = 0.f;
|
|
tmvbx = 0.f;
|
|
return 0;
|
|
|
|
/* End of dstats */
|
|
|
|
} /* igraphdstats_ */
|
|
|