From 4c845139a60c6fe3e4499fe3390387d07f9fc7e6 Mon Sep 17 00:00:00 2001
From: cvs <cvs>
Date: Thu, 16 Aug 2001 09:21:36 +0000
Subject: [PATCH] avoid irritating warnings when math functions are used,
 M.Z.08.2001

---
 f2c.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/f2c.h b/f2c.h
index b94ee7c8..2390d41b 100644
--- a/f2c.h
+++ b/f2c.h
@@ -12,7 +12,9 @@ typedef unsigned long int uinteger;
 typedef char *address;
 typedef short int shortint;
 typedef float real;
-typedef double doublereal;
+/* avoid irritating warnings when math functions are used, M.Z.08.2001 */
+#define doublereal double
+/* typedef double doublereal; */
 typedef struct { real r, i; } complex;
 typedef struct { doublereal r, i; } doublecomplex;
 typedef long int logical;