blob: cc42465bb7ce6ea82b7d98777a82e54e0adb7564 (
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
--- a/f2c.h0
+++ b/f2c.h0
@@ -7,21 +7,35 @@
#ifndef F2C_INCLUDE
#define F2C_INCLUDE
+#if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__ia64__)
+typedef int integer;
+typedef unsigned int uinteger;
+#else
typedef long int integer;
typedef unsigned long int uinteger;
+#endif
typedef char *address;
typedef short int shortint;
typedef float real;
typedef double doublereal;
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
+#if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__ia64__)
+typedef int logical;
+#else
typedef long int logical;
+#endif
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;
#ifdef INTEGER_STAR_8 /* Adjust for integer*8. */
-typedef long long longint; /* system-dependent */
-typedef unsigned long long ulongint; /* system-dependent */
+#if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__ia64__)
+typedef long longint; /* system-dependent */
+typedef unsigned long ulongint; /* system-dependent */
+#else
+typedef long long longint; /* system-dependent - oh yeah*/
+typedef unsigned long long ulongint; /* system-dependent - oh yeah*/
+#endif
#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
#define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
#endif
@@ -42,10 +56,16 @@
typedef short ftnlen;
typedef short ftnint;
#else
+#if defined(__alpha__) || defined(__sparc64__) || defined(__x86_64__) || defined(__ia64__)
+typedef int flag;
+typedef int ftnlen;
+typedef int ftnint;
+#else
typedef long int flag;
typedef long int ftnlen;
typedef long int ftnint;
#endif
+#endif
/*external read, write*/
typedef struct
|