LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
•All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Modules Pages
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 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 REAL FUNCTION SECOND( )
35*
36* -- LAPACK auxiliary routine --
37* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
38*=====================================================================
39*
40* .. Local Scalars ..
41 REAL T1
42* ..
43* .. Local Arrays ..
44 REAL TARRAY( 2 )
45* ..
46* .. External Functions ..
47 REAL ETIME_
48 EXTERNAL etime_
49* ..
50* .. Executable Statements ..
51*
52 t1 = etime_( tarray )
53 second = tarray( 1 )
54 RETURN
55*
56* End of SECOND
57*
58 END
59
second
real function second()
SECOND Using ETIME
Definition second_EXT_ETIME.f:35