second()

real function second

SECOND Using ETIME

Purpose:

  SECOND returns the user time for a process in seconds.
  This version gets the time from the EXTERNAL system function ETIME.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 34 of file second_EXT_ETIME.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
* =====================================================================
*
*     .. Local Scalars ..
      REAL               T1
*     ..
*     .. Local Arrays ..
      REAL               TARRAY( 2 )
*     ..
*     .. External Functions ..
      REAL               ETIME
      EXTERNAL           etime
*     ..
*     .. Executable Statements ..
*
      t1 = etime( tarray )
      second = tarray( 1 )
      RETURN
*
*     End of SECOND
*

Here is the caller graph for this function: