LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
dsecnd_EXT_ETIME_.f
Go to the documentation of this file.
1 *> \brief \b DSECND Using ETIME_
2 *
3 * =========== DOCUMENTATION ===========
4 *
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
7 *
8 * Definition:
9 * ===========
10 *
11 * DOUBLE PRECISION FUNCTION DSECND( )
12 *
13 *
14 *> \par Purpose:
15 * =============
16 *>
17 *> \verbatim
18 *>
19 *> DSECND returns the user time for a process in seconds.
20 *> This version gets the time from the system function ETIME_.
21 *> \endverbatim
22 *
23 * Authors:
24 * ========
25 *
26 *> \author Univ. of Tennessee
27 *> \author Univ. of California Berkeley
28 *> \author Univ. of Colorado Denver
29 *> \author NAG Ltd.
30 *
31 *> \ingroup auxOTHERauxiliary
32 *
33 * =====================================================================
34  DOUBLE PRECISION FUNCTION dsecnd( )
35 *
36 * -- LAPACK auxiliary routine --
37 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
38 * =====================================================================
39 *
40 * .. Local Scalars ..
41  REAL t1
42 * ..
43 * .. Local Arrays ..
44  REAL tarray( 2 )
45 * ..
46 * .. External Functions ..
47  REAL etime_
48  EXTERNAL etime_
49 * ..
50 * .. Executable Statements ..
51 *
52  t1 = etime_( tarray )
53  dsecnd = tarray( 1 )
54  RETURN
55 *
56 * End of DSECND
57 *
58  END
double precision function dsecnd()
DSECND Using ETIME