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 EXTERNAL 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* -- LAPACK is a software package provided by Univ. of Tennessee, --
38* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
39*
40*
41* =====================================================================
42*
43* .. Local Scalars ..
44 REAL t1
45* ..
46* .. Local Arrays ..
47 REAL tarray( 2 )
48* ..
49* .. External Functions ..
50 REAL etime
51 EXTERNAL etime
52* ..
53* .. Executable Statements ..
54*
55 t1 = etime( tarray )
56 dsecnd = tarray( 1 )
57 RETURN
58*
59* End of DSECND
60*
61 END
double precision function dsecnd()
DSECND Using ETIME