dsecnd_INT_ETIME.f File Reference

Go to the source code of this file.

Functions/Subroutines
double precision function	dsecnd ()
	DSECND Using the INTERNAL function ETIME.

Function/Subroutine Documentation

dsecnd()

double precision function dsecnd

DSECND Using the INTERNAL function ETIME.

Purpose:

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