Mercurial > octave-nkf
view libcruft/arpack/util/second.f @ 13725:6d2127468d96
Revert changeset c943be5f929d as it breaks Linux compilation.
* arpack/util/second.f (ETIME): Revert declaration back to INTRINSIC.
author | Michael Goffioul <michael.goffioul@gmail.com> |
---|---|
date | Wed, 19 Oct 2011 15:46:29 +0100 |
parents | c943be5f929d |
children |
line wrap: on
line source
SUBROUTINE ARSCND( T ) * REAL T * * -- LAPACK auxiliary routine (preliminary version) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University * July 26, 1991 * * Purpose * ======= * * SECOND returns the user time for a process in arscnds. * This version gets the time from the system function ETIME. * * .. Local Scalars .. REAL T1 * .. * .. Local Arrays .. REAL TARRAY( 2 ) * .. * .. External Functions .. REAL ETIME INTRINSIC ETIME * .. * .. Executable Statements .. * T1 = ETIME( TARRAY ) T = TARRAY( 1 ) RETURN * * End of ARSCND * END