Basic Image AlgorithmS Library
2.8.0
Main Page
Related Pages
Modules
Classes
Examples
All
Classes
Namespaces
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Groups
Pages
Image
fftpack
f2c.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
/**
90
* \brief rewind, backspace, endfile
91
* \internal */
92
typedef
struct
93
{ flag
aerr
;
94
ftnint
aunit
;
95
}
alist
;
96
97
/* inquire */
98
typedef
struct
99
{ flag
inerr
;
100
ftnint
inunit
;
101
char
*
infile
;
102
ftnlen
infilen
;
103
ftnint *
inex
;
/*parameters in standard's order*/
104
ftnint *
inopen
;
105
ftnint *
innum
;
106
ftnint *
innamed
;
107
char
*
inname
;
108
ftnlen
innamlen
;
109
char
*
inacc
;
110
ftnlen
inacclen
;
111
char
*
inseq
;
112
ftnlen
inseqlen
;
113
char
*
indir
;
114
ftnlen
indirlen
;
115
char
*
infmt
;
116
ftnlen
infmtlen
;
117
char
*
inform
;
118
ftnint
informlen
;
119
char
*
inunf
;
120
ftnlen
inunflen
;
121
ftnint *
inrecl
;
122
ftnint *
innrec
;
123
char
*
inblank
;
124
ftnlen
inblanklen
;
125
}
inlist
;
126
127
#define VOID void
128
129
union
Multitype
{
/* for multiple entry points */
130
integer1
g
;
131
shortint
h
;
132
integer
i
;
133
/* longint j; */
134
real
r
;
135
doublereal
d
;
136
complex
c
;
137
doublecomplex
z
;
138
};
139
140
typedef
union
Multitype
Multitype
;
141
142
/*typedef long int Long;*/
/* No longer used; formerly in Namelist */
143
144
struct
Vardesc
{
/* for Namelist */
145
char
*
name
;
146
char
*
addr
;
147
ftnlen *
dims
;
148
int
type
;
149
};
150
typedef
struct
Vardesc
Vardesc
;
151
152
struct
Namelist
{
153
char
*
name
;
154
Vardesc
**
vars
;
155
int
nvars
;
156
};
157
typedef
struct
Namelist
Namelist
;
158
159
#define abs(x) ((x) >= 0 ? (x) : -(x))
160
#define dabs(x) (doublereal)abs(x)
161
#define min(a,b) ((a) <= (b) ? (a) : (b))
162
#define max(a,b) ((a) >= (b) ? (a) : (b))
163
#define dmin(a,b) (doublereal)min(a,b)
164
#define dmax(a,b) (doublereal)max(a,b)
165
#define bit_test(a,b) ((a) >> (b) & 1)
166
#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
167
#define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
168
169
/* procedure parameter types for -A and -C++ */
170
171
#define F2C_proc_par_types 1
172
#ifdef __cplusplus
173
typedef
int
/* Unknown procedure type */
(*U_fp)(...);
174
typedef
shortint (*J_fp)(...);
175
typedef
integer (*I_fp)(...);
176
typedef
real (*R_fp)(...);
177
typedef
doublereal (*D_fp)(...), (*E_fp)(...);
178
typedef
/* Complex */
VOID (*C_fp)(...);
179
typedef
/* Double Complex */
VOID (*Z_fp)(...);
180
typedef
logical (*L_fp)(...);
181
typedef
shortlogical (*K_fp)(...);
182
typedef
/* Character */
VOID (*H_fp)(...);
183
typedef
/* Subroutine */
int (*S_fp)(...);
184
#else
185
typedef
int
/* Unknown procedure type */
(*U_fp)();
186
typedef
shortint (*J_fp)();
187
typedef
integer (*I_fp)();
188
typedef
real (*R_fp)();
189
typedef
doublereal (*D_fp)(), (*E_fp)();
190
typedef
/* Complex */
VOID (*C_fp)();
191
typedef
/* Double Complex */
VOID (*Z_fp)();
192
typedef
logical (*L_fp)();
193
typedef
shortlogical (*K_fp)();
194
typedef
/* Character */
VOID (*H_fp)();
195
typedef
/* Subroutine */
int (*S_fp)();
196
#endif
197
/* E_fp is for real functions when -R is not specified */
198
typedef
VOID C_f;
/* complex function */
199
typedef
VOID H_f;
/* character function */
200
typedef
VOID Z_f;
/* double complex function */
201
typedef
doublereal E_f;
/* real function with -R not specified */
202
203
/* undef any lower-case symbols that your C compiler predefines, e.g.: */
204
205
#ifndef Skip_f2c_Undefs
206
#undef cray
207
#undef gcos
208
#undef mc68010
209
#undef mc68020
210
#undef mips
211
#undef pdp11
212
#undef sgi
213
#undef sparc
214
#undef sun
215
#undef sun2
216
#undef sun3
217
#undef sun4
218
#undef u370
219
#undef u3b
220
#undef u3b2
221
#undef u3b5
222
#undef unix
223
#undef vax
224
#endif
225
#endif
Multitype::d
doublereal d
Definition:
f2c.h:135
icilist::icirnum
ftnint icirnum
Definition:
f2c.h:66
Multitype::h
shortint h
Definition:
f2c.h:131
Vardesc::type
int type
Definition:
f2c.h:148
inlist::inblank
char * inblank
Definition:
f2c.h:123
Multitype::c
complex c
Definition:
f2c.h:136
inlist::inacclen
ftnlen inacclen
Definition:
f2c.h:110
Namelist::name
char * name
Definition:
f2c.h:153
Namelist
Definition:
f2c.h:152
inlist::inunflen
ftnlen inunflen
Definition:
f2c.h:120
inlist::infilen
ftnlen infilen
Definition:
f2c.h:102
Vardesc::name
char * name
Definition:
f2c.h:145
icilist::icirlen
ftnint icirlen
Definition:
f2c.h:65
Vardesc::addr
char * addr
Definition:
f2c.h:146
olist::ounit
ftnint ounit
Definition:
f2c.h:72
icilist
Definition:
f2c.h:60
icilist::icierr
flag icierr
Definition:
f2c.h:61
icilist::iciunit
char * iciunit
Definition:
f2c.h:62
cilist::cifmt
char * cifmt
Definition:
f2c.h:55
olist::ofnmlen
ftnlen ofnmlen
Definition:
f2c.h:74
cilist::cirec
ftnint cirec
Definition:
f2c.h:56
olist::osta
char * osta
Definition:
f2c.h:75
icilist::icifmt
char * icifmt
Definition:
f2c.h:64
inlist::infile
char * infile
Definition:
f2c.h:101
cilist::ciend
flag ciend
Definition:
f2c.h:54
olist::oerr
flag oerr
Definition:
f2c.h:71
inlist::inex
ftnint * inex
Definition:
f2c.h:103
olist::ofnm
char * ofnm
Definition:
f2c.h:73
Multitype
Definition:
f2c.h:129
inlist::indirlen
ftnlen indirlen
Definition:
f2c.h:114
doublecomplex::r
doublereal r
Definition:
f2c.h:17
inlist
Definition:
f2c.h:98
olist::oacc
char * oacc
Definition:
f2c.h:76
inlist::inacc
char * inacc
Definition:
f2c.h:109
inlist::inunit
ftnint inunit
Definition:
f2c.h:100
olist
Definition:
f2c.h:70
cllist::cerr
flag cerr
Definition:
f2c.h:84
cilist::cierr
flag cierr
Definition:
f2c.h:52
inlist::innamlen
ftnlen innamlen
Definition:
f2c.h:108
Namelist::vars
Vardesc ** vars
Definition:
f2c.h:154
icilist::iciend
flag iciend
Definition:
f2c.h:63
inlist::inform
char * inform
Definition:
f2c.h:117
cilist
Definition:
f2c.h:51
Multitype::r
real r
Definition:
f2c.h:134
alist
rewind, backspace, endfile
Definition:
f2c.h:92
inlist::inseqlen
ftnlen inseqlen
Definition:
f2c.h:112
olist::oblnk
char * oblnk
Definition:
f2c.h:79
inlist::inrecl
ftnint * inrecl
Definition:
f2c.h:121
inlist::innrec
ftnint * innrec
Definition:
f2c.h:122
inlist::innum
ftnint * innum
Definition:
f2c.h:105
inlist::informlen
ftnint informlen
Definition:
f2c.h:118
inlist::infmtlen
ftnlen infmtlen
Definition:
f2c.h:116
cllist
Definition:
f2c.h:83
inlist::inblanklen
ftnlen inblanklen
Definition:
f2c.h:124
cllist::cunit
ftnint cunit
Definition:
f2c.h:85
Multitype::z
doublecomplex z
Definition:
f2c.h:137
Multitype::g
integer1 g
Definition:
f2c.h:130
olist::ofm
char * ofm
Definition:
f2c.h:77
inlist::indir
char * indir
Definition:
f2c.h:113
alist::aunit
ftnint aunit
Definition:
f2c.h:94
inlist::inname
char * inname
Definition:
f2c.h:107
Multitype::i
integer i
Definition:
f2c.h:132
inlist::inseq
char * inseq
Definition:
f2c.h:111
complex
Definition:
f2c.h:16
inlist::infmt
char * infmt
Definition:
f2c.h:115
alist::aerr
flag aerr
Definition:
f2c.h:93
cilist::ciunit
ftnint ciunit
Definition:
f2c.h:53
cllist::csta
char * csta
Definition:
f2c.h:86
Namelist::nvars
int nvars
Definition:
f2c.h:155
inlist::innamed
ftnint * innamed
Definition:
f2c.h:106
inlist::inopen
ftnint * inopen
Definition:
f2c.h:104
inlist::inerr
flag inerr
Definition:
f2c.h:99
inlist::inunf
char * inunf
Definition:
f2c.h:119
Vardesc
Definition:
f2c.h:144
doublecomplex
Definition:
f2c.h:17
olist::orl
ftnint orl
Definition:
f2c.h:78
complex::r
real r
Definition:
f2c.h:16
Vardesc::dims
ftnlen * dims
Definition:
f2c.h:147
Generated on Tue Feb 6 2018 02:01:39 for Basic Image AlgorithmS Library by
1.8.5