LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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*> \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 REAL t1
44* ..
45* .. Local Arrays ..
46 REAL tarray( 2 )
47* ..
48* .. External Functions ..
49 REAL etime
50 EXTERNAL etime
51* ..
52* .. Executable Statements ..
53*
54 t1 = etime( tarray )
55 second = tarray( 1 )
56 RETURN
57*
58* End of SECOND
59*
60 END
second
real function second()
SECOND Using ETIME
Definition second_EXT_ETIME.f:35