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 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 --
*     Univ. of Tennessee, Univ. of California Berkeley 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
*