Mercurial > octave-nkf

comparison libcruft/arpack/util/second.f @ 12196:0564f4a755a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix declaration of ETIME in arpack/util/second.f
author John W. Eaton <jwe@octave.org>
date Fri, 28 Jan 2011 14:05:30 -0500
parents 470857149e61
children c943be5f929d
comparison
equal deleted inserted replaced
12195:d25dfa9ed18b 12196:0564f4a755a0
19 * .. Local Arrays .. 19 * .. Local Arrays ..
20 REAL TARRAY( 2 ) 20 REAL TARRAY( 2 )
21 * .. 21 * ..
22 * .. External Functions .. 22 * .. External Functions ..
23 REAL ETIME 23 REAL ETIME
24 EXTERNAL ETIME 24 INTRINSIC ETIME
25 * .. 25 * ..
26 * .. Executable Statements .. 26 * .. Executable Statements ..
27 * 27 *
28 28
29 T1 = ETIME( TARRAY ) 29 T1 = ETIME( TARRAY )