# HG changeset patch # User Michael Goffioul # Date 1319024041 -3600 # Node ID c943be5f929da853b3705283d0aa08bdde227734 # Parent 30c4bd2592dd8bb8a7c1037dd773c0a77a8d3813 Make unused ARPACK code F77 compliant. * arpack/util/second.f (ETIME): Change declaration to EXTERNAL. diff --git a/libcruft/arpack/util/second.f b/libcruft/arpack/util/second.f --- a/libcruft/arpack/util/second.f +++ b/libcruft/arpack/util/second.f @@ -21,7 +21,7 @@ * .. * .. External Functions .. REAL ETIME - INTRINSIC ETIME + EXTERNAL ETIME * .. * .. Executable Statements .. *