INSTALL/dsecnd_INT_ETIME.f

   1 *> \brief \b DSECND Using the INTERNAL function 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 INTERNAL 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 *     .. Local Scalars ..
  46       REAL               T1
  47 *     ..
  48 *     .. Local Arrays ..
  49       REAL               TARRAY( 2 )
  50 *     ..
  51 *     .. Intrinsic Functions ..
  52       REAL               ETIME
  53       INTRINSIC          ETIME
  54 *     ..
  55 *     .. Executable Statements ..
  56 *
  57       T1 = ETIME( TARRAY )
  58       DSECND = TARRAY( 1 )
  59       RETURN
  60 *
  61 *     End of DSECND
  62 *
  63       END