Mercurial > octave-nkf
view libcruft/arpack/util/second.f @ 13724:c943be5f929d
Make unused ARPACK code F77 compliant.
* arpack/util/second.f (ETIME): Change declaration to EXTERNAL.
author | Michael Goffioul <michael.goffioul@gmail.com> |
---|---|
date | Wed, 19 Oct 2011 12:34:01 +0100 |
parents | 0564f4a755a0 |
children | 6d2127468d96 |
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 EXTERNAL ETIME * .. * .. Executable Statements .. * T1 = ETIME( TARRAY ) T = TARRAY( 1 ) RETURN * * End of ARSCND * END