INSTALL/second_INT_CPU_TIME.f

   1 *> \brief \b SECOND Using INTERNAL function CPU_TIME.
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *  Definition:
   9 *  ===========
  10 *
  11 *      REAL FUNCTION SECOND( )
  12 *
  13 *
  14 *> \par Purpose:
  15 *  =============
  16 *>
  17 *> \verbatim
  18 *>
  19 *>  SECOND returns the user time for a process in seconds.
  20 *>  This version gets the time from the INTERNAL function CPU_TIME.
  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       REAL FUNCTION SECOND( )
  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 *
  47       REAL T
  48 *
  49 * .. Intrinsic Functions ..
  50 *
  51       INTRINSIC CPU_TIME
  52 *
  53 * .. Executable Statements .. *
  54 *
  55       CALL CPU_TIME( T )
  56       SECOND = T
  57       RETURN
  58 *
  59 *     End of SECOND
  60 *
  61       END