![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b SECOND 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 * REAL FUNCTION SECOND( ) 00012 * 00013 * 00014 *> \par Purpose: 00015 * ============= 00016 *> 00017 *> \verbatim 00018 *> 00019 *> SECOND 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 REAL FUNCTION SECOND( ) 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 REAL T1 00047 * .. 00048 * .. Local Arrays .. 00049 REAL TARRAY( 2 ) 00050 * .. 00051 * .. External Functions .. 00052 REAL ETIME 00053 EXTERNAL ETIME 00054 * .. 00055 * .. Executable Statements .. 00056 * 00057 T1 = ETIME( TARRAY ) 00058 SECOND = TARRAY( 1 ) 00059 RETURN 00060 * 00061 * End of SECOND 00062 * 00063 END