LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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 second
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
dsecnd
double precision function dsecnd()
DSECND Using ETIME
Definition dsecnd_EXT_ETIME.f:35