LAPACK
3.4.2
LAPACK: Linear Algebra PACKage
Main Page
Modules
Files
File List
File Members
All
Files
Functions
Groups
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
*> \date November 2011
32
*
33
*> \ingroup auxOTHERauxiliary
34
*
35
* =====================================================================
36
DOUBLE PRECISION
FUNCTION
dsecnd
( )
37
*
38
* -- LAPACK auxiliary routine (version 3.4.0) --
39
* -- LAPACK is a software package provided by Univ. of Tennessee, --
40
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
41
* November 2011
42
*
43
*
44
* =====================================================================
45
*
46
* .. Local Scalars ..
47
REAL
t1
48
* ..
49
* .. Local Arrays ..
50
REAL
tarray( 2 )
51
* ..
52
* .. External Functions ..
53
REAL
etime
54
EXTERNAL
etime
55
* ..
56
* .. Executable Statements ..
57
*
58
t1 = etime( tarray )
59
dsecnd
= tarray( 1 )
60
return
61
*
62
* End of DSECND
63
*
64
END
INSTALL
dsecnd_EXT_ETIME.f
Generated on Tue Sep 25 2012 16:27:06 for LAPACK by
1.8.1.1