|
DOUBLE PRECISION FUNCTION DSECND( )
* * -- LAPACK auxiliary routine (version 3.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * February 2007 * * Purpose * ======= * * DSECND returns the user time for a process in seconds. * This version gets the time from the INTERNAL function CPU_TIME. * * ===================================================================== * * .. Local Scalars .. * REAL T * * .. Intrinsic Functions .. * INTRINSIC CPU_TIME * * .. Executable Statements .. * * CALL CPU_TIME( T ) DSECND = T RETURN * * End of DSECND * END |