dsecnd_EXT_ETIME_.f File Reference

Go to the source code of this file.

Functions/Subroutines
double precision function	dsecnd ()
	DSECND Using ETIME_

Function/Subroutine Documentation

dsecnd()

double precision function dsecnd

DSECND Using ETIME_

Purpose:

!>
!>  DSECND 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 dsecnd_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 )
      dsecnd = tarray( 1 )
      RETURN
*
*     End of DSECND
*