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 INTERNAL function CPU_TIME.
12: *
13: * =====================================================================
14: *
15: *     .. Local Scalars ..
16: * 
17:       REAL T
18: * 
19: * .. Intrinsic Functions ..
20: * 
21:       INTRINSIC CPU_TIME
22: * 
23: * .. Executable Statements .. *
24: * 
25:       CALL CPU_TIME( T )
26:       SECOND = T
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
27:       RETURN
28: *
29: *     End of SECOND
30: *
31:       END
32: