← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libf2c2/trusty

« back to all changes in this revision

Viewing changes to f2c.install.h

  • Committer: Bazaar Package Importer
  • Author(s): Alan Bain
  • Date: 2008-05-19 22:50:54 UTC
  • mfrom: (2.1.4 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080519225054-jlymia0wdvvfq7dg
Tags: 20061008-4
Remove CVS directory left in source package

Show diffs side-by-side

added added

removed removed

Lines of Context:
f2c.install.h
1
 
/* f2c.h  --  Standard Fortran to C header file */
2
 
 
3
 
/**  barf  [ba:rf]  2.  "He suggested using FORTRAN, and everybody barfed."
4
 
 
5
 
        - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
6
 
 
7
 
#ifndef F2C_INCLUDE
8
 
#define F2C_INCLUDE
9
 
 
10
 
typedef long int integer;
11
 
typedef unsigned long int uinteger;
12
 
typedef char *address;
13
 
typedef short int shortint;
14
 
typedef float real;
15
 
typedef double doublereal;
16
 
typedef struct { real r, i; } complex;
17
 
typedef struct { doublereal r, i; } doublecomplex;
18
 
typedef long int logical;
19
 
typedef short int shortlogical;
20
 
typedef char logical1;
21
 
typedef char integer1;
22
 
#ifdef INTEGER_STAR_8   /* Adjust for integer*8. */
23
 
typedef long long longint;              /* system-dependent */
24
 
typedef unsigned long long ulongint;    /* system-dependent */
25
 
#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
26
 
#define qbit_set(a,b)   ((a) |  ((ulongint)1 << (b)))
27
 
#endif
28
 
 
29
 
#define TRUE_ (1)
30
 
#define FALSE_ (0)
31
 
 
32
 
/* Extern is for use with -E */
33
 
#ifndef Extern
34
 
#define Extern extern
35
 
#endif
36
 
 
37
 
/* I/O stuff */
38
 
 
39
 
#ifdef f2c_i2
40
 
/* for -i2 */
41
 
typedef short flag;
42
 
typedef short ftnlen;
43
 
typedef short ftnint;
44
 
#else
45
 
typedef long int flag;
46
 
typedef long int ftnlen;
47
 
typedef long int ftnint;
48
 
#endif
49
 
 
50
 
/*external read, write*/
51
 
typedef struct
52
 
{       flag cierr;
53
 
        ftnint ciunit;
54
 
        flag ciend;
55
 
        char *cifmt;
56
 
        ftnint cirec;
57
 
} cilist;
58
 
 
59
 
/*internal read, write*/
60
 
typedef struct
61
 
{       flag icierr;
62
 
        char *iciunit;
63
 
        flag iciend;
64
 
        char *icifmt;
65
 
        ftnint icirlen;
66
 
        ftnint icirnum;
67
 
} icilist;
68
 
 
69
 
/*open*/
70
 
typedef struct
71
 
{       flag oerr;
72
 
        ftnint ounit;
73
 
        char *ofnm;
74
 
        ftnlen ofnmlen;
75
 
        char *osta;
76
 
        char *oacc;
77
 
        char *ofm;
78
 
        ftnint orl;
79
 
        char *oblnk;
80
 
} olist;
81
 
 
82
 
/*close*/
83
 
typedef struct
84
 
{       flag cerr;
85
 
        ftnint cunit;
86
 
        char *csta;
87
 
} cllist;
88
 
 
89
 
/*rewind, backspace, endfile*/
90
 
typedef struct
91
 
{       flag aerr;
92
 
        ftnint aunit;
93
 
} alist;
94
 
 
95
 
/* inquire */
96
 
typedef struct
97
 
{       flag inerr;
98
 
        ftnint inunit;
99
 
        char *infile;
100
 
        ftnlen infilen;
101
 
        ftnint  *inex;  /*parameters in standard's order*/
102
 
        ftnint  *inopen;
103
 
        ftnint  *innum;
104
 
        ftnint  *innamed;
105
 
        char    *inname;
106
 
        ftnlen  innamlen;
107
 
        char    *inacc;
108
 
        ftnlen  inacclen;
109
 
        char    *inseq;
110
 
        ftnlen  inseqlen;
111
 
        char    *indir;
112
 
        ftnlen  indirlen;
113
 
        char    *infmt;
114
 
        ftnlen  infmtlen;
115
 
        char    *inform;
116
 
        ftnint  informlen;
117
 
        char    *inunf;
118
 
        ftnlen  inunflen;
119
 
        ftnint  *inrecl;
120
 
        ftnint  *innrec;
121
 
        char    *inblank;
122
 
        ftnlen  inblanklen;
123
 
} inlist;
124
 
 
125
 
#define VOID void
126
 
 
127
 
union Multitype {       /* for multiple entry points */
128
 
        integer1 g;
129
 
        shortint h;
130
 
        integer i;
131
 
        /* longint j; */
132
 
        real r;
133
 
        doublereal d;
134
 
        complex c;
135
 
        doublecomplex z;
136
 
        };
137
 
 
138
 
typedef union Multitype Multitype;
139
 
 
140
 
/*typedef long int Long;*/      /* No longer used; formerly in Namelist */
141
 
 
142
 
struct Vardesc {        /* for Namelist */
143
 
        char *name;
144
 
        char *addr;
145
 
        ftnlen *dims;
146
 
        int  type;
147
 
        };
148
 
typedef struct Vardesc Vardesc;
149
 
 
150
 
struct Namelist {
151
 
        char *name;
152
 
        Vardesc **vars;
153
 
        int nvars;
154
 
        };
155
 
typedef struct Namelist Namelist;
156
 
 
157
 
#define abs(x) ((x) >= 0 ? (x) : -(x))
158
 
#define dabs(x) (doublereal)abs(x)
159
 
#define min(a,b) ((a) <= (b) ? (a) : (b))
160
 
#define max(a,b) ((a) >= (b) ? (a) : (b))
161
 
#define dmin(a,b) (doublereal)min(a,b)
162
 
#define dmax(a,b) (doublereal)max(a,b)
163
 
#define bit_test(a,b)   ((a) >> (b) & 1)
164
 
#define bit_clear(a,b)  ((a) & ~((uinteger)1 << (b)))
165
 
#define bit_set(a,b)    ((a) |  ((uinteger)1 << (b)))
166
 
 
167
 
/* procedure parameter types for -A and -C++ */
168
 
 
169
 
#define F2C_proc_par_types 1
170
 
#ifdef __cplusplus
171
 
typedef int /* Unknown procedure type */ (*U_fp)(...);
172
 
typedef shortint (*J_fp)(...);
173
 
typedef integer (*I_fp)(...);
174
 
typedef real (*R_fp)(...);
175
 
typedef doublereal (*D_fp)(...), (*E_fp)(...);
176
 
typedef /* Complex */ VOID (*C_fp)(...);
177
 
typedef /* Double Complex */ VOID (*Z_fp)(...);
178
 
typedef logical (*L_fp)(...);
179
 
typedef shortlogical (*K_fp)(...);
180
 
typedef /* Character */ VOID (*H_fp)(...);
181
 
typedef /* Subroutine */ int (*S_fp)(...);
182
 
#else
183
 
typedef int /* Unknown procedure type */ (*U_fp)();
184
 
typedef shortint (*J_fp)();
185
 
typedef integer (*I_fp)();
186
 
typedef real (*R_fp)();
187
 
typedef doublereal (*D_fp)(), (*E_fp)();
188
 
typedef /* Complex */ VOID (*C_fp)();
189
 
typedef /* Double Complex */ VOID (*Z_fp)();
190
 
typedef logical (*L_fp)();
191
 
typedef shortlogical (*K_fp)();
192
 
typedef /* Character */ VOID (*H_fp)();
193
 
typedef /* Subroutine */ int (*S_fp)();
194
 
#endif
195
 
/* E_fp is for real functions when -R is not specified */
196
 
typedef VOID C_f;       /* complex function */
197
 
typedef VOID H_f;       /* character function */
198
 
typedef VOID Z_f;       /* double complex function */
199
 
typedef doublereal E_f; /* real function with -R not specified */
200
 
 
201
 
/* undef any lower-case symbols that your C compiler predefines, e.g.: */
202
 
 
203
 
#ifndef Skip_f2c_Undefs
204
 
#undef cray
205
 
#undef gcos
206
 
#undef mc68010
207
 
#undef mc68020
208
 
#undef mips
209
 
#undef pdp11
210
 
#undef sgi
211
 
#undef sparc
212
 
#undef sun
213
 
#undef sun2
214
 
#undef sun3
215
 
#undef sun4
216
 
#undef u370
217
 
#undef u3b
218
 
#undef u3b2
219
 
#undef u3b5
220
 
#undef unix
221
 
#undef vax
222
 
#endif
223
 
#endif