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
dsecnd
double precision function dsecnd()
DSECND Using ETIME
Definition
dsecnd_EXT_ETIME.f:35
INSTALL
dsecnd_INT_ETIME.f
Generated on Tue Nov 28 2023 11:55:05 for LAPACK by
1.9.7