Mercurial > octave-nkf

comparison libcruft/arpack/util/second.f @ 12276:e4ed10d59f18 release-3-4-x

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 9f5d2ef078e8
children c943be5f929d
comparison
equal deleted inserted replaced
12275:35c55d1241c7 12276:e4ed10d59f18
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 )