INSTALL/dsecnd_EXT_ETIME.f

   1 *> \brief \b DSECND  Using ETIME
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *  Definition:
   9 *  ===========
  10 *
  11 *      DOUBLE PRECISION FUNCTION DSECND( )
  12 *
  13 *
  14 *> \par Purpose:
  15 *  =============
  16 *>
  17 *> \verbatim
  18 *>
  19 *>  DSECND returns the user time for a process in seconds.
  20 *>  This version gets the time from the EXTERNAL system function ETIME.
  21 *> \endverbatim
  22 *
  23 *  Authors:
  24 *  ========
  25 *
  26 *> \author Univ. of Tennessee
  27 *> \author Univ. of California Berkeley
  28 *> \author Univ. of Colorado Denver
  29 *> \author NAG Ltd.
  30 *
  31 *> \date December 2016
  32 *
  33 *> \ingroup auxOTHERauxiliary
  34 *
  35 *  =====================================================================
  36       DOUBLE PRECISION FUNCTION DSECND( )
  37 *
  38 *  -- LAPACK auxiliary routine (version 3.7.0) --
  39 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  40 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  41 *     December 2016
  42 *
  43 *
  44 * =====================================================================
  45 *
  46 *     .. Local Scalars ..
  47       REAL               T1
  48 *     ..
  49 *     .. Local Arrays ..
  50       REAL               TARRAY( 2 )
  51 *     ..
  52 *     .. External Functions ..
  53       REAL               ETIME
  54       EXTERNAL           ETIME
  55 *     ..
  56 *     .. Executable Statements ..
  57 *
  58       T1 = ETIME( TARRAY )
  59       DSECND = TARRAY( 1 )
  60       RETURN
  61 *
  62 *     End of DSECND
  63 *
  64       END