blob: f5d120a022a8d6662935df3035136fa3f2c37816 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
$NetBSD: patch-ai,v 1.5 2007/02/15 13:29:19 dmcmahill Exp $
required to make
sizeof(integer) == sizeof(real)
and
sizeof(logical) == sizeof(real)
(per f2c/readme)
--- f2c.h.orig Tue Sep 7 13:46:24 1999
+++ f2c.h Tue Dec 7 18:08:26 1999
@@ -8,5 +8,9 @@
#define F2C_INCLUDE
+#if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__sparcv9)
+typedef int integer;
+#else
typedef long int integer;
+#endif
typedef unsigned long int uinteger;
typedef char *address;
@@ -16,5 +20,9 @@
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
+#if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__sparcv9)
+typedef int logical;
+#else
typedef long int logical;
+#endif
typedef short int shortlogical;
typedef char logical1;
|
