LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Classes Files Functions Variables Typedefs Macros
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