LAPACK  3.8.0
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 EXTERNAL system function ETIME.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

Definition at line 37 of file second_EXT_ETIME.f.

37 *
38 * -- LAPACK auxiliary routine (version 3.7.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 * December 2016
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 *
real function second()
SECOND Using ETIME
Here is the caller graph for this function: