![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b DSECND Using INTERNAL function CPU_TIME. 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 * Definition: 00009 * =========== 00010 * 00011 * DOUBLE PRECISION FUNCTION DSECND( ) 00012 * 00013 * 00014 *> \par Purpose: 00015 * ============= 00016 *> 00017 *> \verbatim 00018 *> 00019 *> DSECND returns the user time for a process in seconds. 00020 *> This version gets the time from the INTERNAL function CPU_TIME. 00021 *> \endverbatim 00022 * 00023 * Authors: 00024 * ======== 00025 * 00026 *> \author Univ. of Tennessee 00027 *> \author Univ. of California Berkeley 00028 *> \author Univ. of Colorado Denver 00029 *> \author NAG Ltd. 00030 * 00031 *> \date November 2011 00032 * 00033 *> \ingroup auxOTHERauxiliary 00034 * 00035 * ===================================================================== 00036 DOUBLE PRECISION FUNCTION DSECND( ) 00037 * 00038 * -- LAPACK auxiliary routine (version 3.4.0) -- 00039 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00040 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00041 * November 2011 00042 * 00043 * ===================================================================== 00044 * 00045 * .. Local Scalars .. 00046 * 00047 REAL T 00048 * 00049 * .. Intrinsic Functions .. 00050 * 00051 INTRINSIC CPU_TIME 00052 * 00053 * .. Executable Statements .. * 00054 * 00055 CALL CPU_TIME( T ) 00056 DSECND = T 00057 RETURN 00058 * 00059 * End of DSECND 00060 * 00061 END