1 DOUBLE PRECISION FUNCTION DSECND( )
2 *
3 * -- LAPACK auxiliary routine (version 3.2) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * February 2007
6 *
7 * Purpose
8 * =======
9 *
10 * DSECND 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 DSECND = T
27 RETURN
28 *
29 * End of DSECND
30 *
31 END
2 *
3 * -- LAPACK auxiliary routine (version 3.2) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * February 2007
6 *
7 * Purpose
8 * =======
9 *
10 * DSECND 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 DSECND = T
27 RETURN
28 *
29 * End of DSECND
30 *
31 END