LAPACK
3.4.2
LAPACK: Linear Algebra PACKage
Main Page
Modules
Files
File List
File Members
All
Files
Functions
Groups
second_EXT_ETIME.f
Go to the documentation of this file.
1
*> \brief \b SECOND 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
* REAL FUNCTION SECOND( )
12
*
13
*
14
*> \par Purpose:
15
* =============
16
*>
17
*> \verbatim
18
*>
19
*> SECOND 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
REAL
FUNCTION
second
( )
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
* .. Local Scalars ..
46
REAL
t1
47
* ..
48
* .. Local Arrays ..
49
REAL
tarray( 2 )
50
* ..
51
* .. External Functions ..
52
REAL
etime
53
EXTERNAL
etime
54
* ..
55
* .. Executable Statements ..
56
*
57
t1 = etime( tarray )
58
second
= tarray( 1 )
59
return
60
*
61
* End of SECOND
62
*
63
END
INSTALL
second_EXT_ETIME.f
Generated on Tue Sep 25 2012 16:27:06 for LAPACK by
1.8.1.1