01:       REAL             FUNCTION SECOND( )
02: *
03: *  -- LAPACK auxiliary routine (version 3.2) --
04: *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
05: *     February 2007
06: *
07: *  Purpose
08: *  =======
09: *
10: *  SECOND returns the user time for a process in seconds.
11: *  This version gets the time from the system function ETIME_.
12: *
13: * =====================================================================
14: *
15: *     .. Local Scalars ..
16:       REAL               T1
17: *     ..
18: *     .. Local Arrays ..
19:       REAL               TARRAY( 2 )
20: *     ..
21: *     .. External Functions ..
22:       REAL               ETIME_
23:       EXTERNAL           ETIME_
24: *     ..
25: *     .. Executable Statements ..
26: *
27:       T1 = ETIME_( TARRAY )
28:       SECOND = TARRAY( 1 )
SECOND -> second_EXT_ETIME.f:1
SECOND -> second_EXT_ETIME_.f:1
SECOND -> second_INT_CPU_TIME.f:1
SECOND -> second_INT_ETIME.f:1
SECOND -> second_NONE.f:1
29:       RETURN
30: *
31: *     End of SECOND
32: *
33:       END
34: