INSTALL/second_EXT_ETIME_.f

   1 *> \brief \b SECOND  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 *      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 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       REAL FUNCTION SECOND( )
  37 *
  38 *  -- LAPACK auxiliary routine (version 3.7.0) --
  39 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
  40 *     February 2007
  41 * =====================================================================
  42 *
  43 *     .. Local Scalars ..
  44       REAL               T1
  45 *     ..
  46 *     .. Local Arrays ..
  47       REAL               TARRAY( 2 )
  48 *     ..
  49 *     .. External Functions ..
  50       REAL               ETIME_
  51       EXTERNAL           ETIME_
  52 *     ..
  53 *     .. Executable Statements ..
  54 *
  55       T1 = ETIME_( TARRAY )
  56       SECOND = TARRAY( 1 )
  57       RETURN
  58 *
  59 *     End of SECOND
  60 *
  61       END
  62