# 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 -r 30c4bd2592dd -r c943be5f929d libcruft/arpack/util/second.f --- 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 .. *