01:       DOUBLE PRECISION FUNCTION DSECND( )
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: *  DSECND returns the user time for a process in seconds.
11: *  This version gets the time from the EXTERNAL 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:       DSECND = TARRAY( 1 )
DSECND -> dsecnd_EXT_ETIME.f:1
DSECND -> dsecnd_EXT_ETIME_.f:1
DSECND -> dsecnd_INT_CPU_TIME.f:1
DSECND -> dsecnd_INT_ETIME.f:1
DSECND -> dsecnd_NONE.f:1
29:       RETURN
30: *
31: *     End of DSECND
32: *
33:       END
34: