LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
dsecnd_EXT_ETIME.f
Go to the documentation of this file.
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
 All Files Functions