1 /* ./src_f77/dsecnd.f -- translated by f2c (version 20030320).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
5
6 #include <punc/vf2c.h>
7
dsecnd_(void)8 doublereal dsecnd_(void)
9 {
10 /* System generated locals */
11 doublereal ret_val;
12
13 /* Local variables */
14 static real t1;
15 extern doublereal etime_(real *);
16 static real tarray[2];
17
18
19 /* -- LAPACK auxiliary routine (version 3.0) -- */
20 /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */
21 /* Courant Institute, Argonne National Lab, and Rice University */
22 /* September 30, 1994 */
23
24 /* Purpose */
25 /* ======= */
26
27 /* DSECND returns the user time for a process in seconds. */
28 /* This version gets the time from the system function ETIME. */
29
30 /* ===================================================================== */
31
32 /* .. Local Scalars .. */
33 /* .. */
34 /* .. Local Arrays .. */
35 /* .. */
36 /* .. External Functions .. */
37 /* .. */
38 /* .. Executable Statements .. */
39
40 t1 = etime_(tarray);
41 ret_val = tarray[0];
42 return ret_val;
43
44 /* End of DSECND */
45
46 } /* dsecnd_ */
47
48