LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
dsecnd_INT_ETIME.f
Go to the documentation of this file.
1*> \brief \b DSECND Using the INTERNAL function 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 INTERNAL 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* .. Local Scalars ..
43 REAL T1
44* ..
45* .. Local Arrays ..
46 REAL TARRAY( 2 )
47* ..
48* .. Intrinsic Functions ..
49 REAL ETIME
50 INTRINSIC etime
51* ..
52* .. Executable Statements ..
53*
54 t1 = etime( tarray )
55 dsecnd = tarray( 1 )
56 RETURN
57*
58* End of DSECND
59*
60 END
double precision function dsecnd()
DSECND Using ETIME