LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
second_INT_CPU_TIME.f
Go to the documentation of this file.
1*> \brief \b SECOND Using INTERNAL function CPU_TIME.
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 INTERNAL function CPU_TIME.
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* -- 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*
44 REAL T
45*
46* .. Intrinsic Functions ..
47*
48 INTRINSIC cpu_time
49*
50* .. Executable Statements .. *
51*
52 CALL cpu_time( t )
53 second = t
54 RETURN
55*
56* End of SECOND
57*
58 END
real function second()
SECOND Using ETIME