# HG changeset patch
# User jwe
# Date 1021565742 0
# Node ID 028eb74026bcf7ecd3b317bd9a8fc2e59c3c3c09
# Parent  e1a2648d9150fecef174e854a28ad97fbc005da9
[project @ 2002-05-16 16:15:42 by jwe]

diff --git a/libcruft/ChangeLog b/libcruft/ChangeLog
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-16  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* misc/f77-fcn.h: Define F77_FCN for backward compatibility.
+
 2002-04-27  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* slatec-err/ixsav.f, slatec-err/xerrwd.f: New files.
diff --git a/libcruft/misc/f77-fcn.h b/libcruft/misc/f77-fcn.h
--- a/libcruft/misc/f77-fcn.h
+++ b/libcruft/misc/f77-fcn.h
@@ -75,6 +75,10 @@
 
 extern void copy_f77_context (void *, void *, unsigned int);
 
+#if !defined (F77_FCN)
+#define F77_FCN(f, F) F77_FUNC (f, F)
+#endif
+
 #ifdef __cplusplus
 }
 #endif