Mercurial > octave-nkf

comparison libcruft/arpack/util/second.f @ 13724:c943be5f929d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
13723:30c4bd2592dd 13724:c943be5f929d
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 INTRINSIC ETIME 24 EXTERNAL ETIME
25 * .. 25 * ..
26 * .. Executable Statements .. 26 * .. Executable Statements ..
27 * 27 *
28 28
29 T1 = ETIME( TARRAY ) 29 T1 = ETIME( TARRAY )