![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b DSECND Using ETIME 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 EXTERNAL system function ETIME. 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 * 00046 * .. Local Scalars .. 00047 REAL T1 00048 * .. 00049 * .. Local Arrays .. 00050 REAL TARRAY( 2 ) 00051 * .. 00052 * .. External Functions .. 00053 REAL ETIME 00054 EXTERNAL ETIME 00055 * .. 00056 * .. Executable Statements .. 00057 * 00058 T1 = ETIME( TARRAY ) 00059 DSECND = TARRAY( 1 ) 00060 RETURN 00061 * 00062 * End of DSECND 00063 * 00064 END