[project @ 2002-05-16 16:15:42 by jwe]
author |
jwe |
date |
Thu, 16 May 2002 16:15:42 +0000 |
parents |
e1a2648d9150 |
children |
3dd8d3dc28d4 |
files |
libcruft/ChangeLog libcruft/misc/f77-fcn.h |
diffstat |
2 files changed, 8 insertions(+), 0 deletions(-)
[+]
|
line diff
--- 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.
--- 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