diff 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 diff
--- a/libcruft/arpack/util/second.f	Wed Oct 19 12:21:44 2011 +0100
+++ b/libcruft/arpack/util/second.f	Wed Oct 19 12:34:01 2011 +0100
@@ -21,7 +21,7 @@
 *     ..
 *     .. External Functions ..
       REAL               ETIME
-      INTRINSIC          ETIME
+      EXTERNAL           ETIME
 *     ..
 *     .. Executable Statements ..
 *