LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ second()

real function second

SECOND Using ETIME_

Purpose:
  SECOND returns the user time for a process in seconds.
  This version gets the time from the system function ETIME_.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 34 of file second_EXT_ETIME_.f.

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 *
real function second()
SECOND Using ETIME
Here is the call graph for this function: