second()

real function second

SECOND Using the INTERNAL function ETIME.

Purpose:

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

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 34 of file second_INT_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 )
*     ..
*     .. Intrinsic Functions ..
      REAL               ETIME
      INTRINSIC          etime
*     ..
*     .. Executable Statements ..
*
      t1 = etime( tarray )
      second = tarray( 1 )
      RETURN
*
*     End of SECOND
*

Here is the call graph for this function: