second_EXT_ETIME.f File Reference

Go to the source code of this file.

Functions/Subroutines
real function	second ()
	SECOND Using ETIME

Function/Subroutine Documentation

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
*