10 #include <Base/Common/BIASpragmaStart.hh>
12 typedef long int integer;
13 typedef char *address;
14 typedef short int shortint;
16 typedef double doublereal;
17 typedef struct { real r, i;}
complex;
19 typedef long int logical;
20 typedef short int shortlogical;
21 typedef char logical1;
22 typedef char integer1;
153 #define abs(x) ((x) >= 0 ? (x) : -(x))
154 #define dabs(x) (doublereal)abs(x)
155 #define min(a,b) ((a) <= (b) ? (a) : (b))
156 #define max(a,b) ((a) >= (b) ? (a) : (b))
157 #define dmin(a,b) (doublereal)min(a,b)
158 #define dmax(a,b) (doublereal)max(a,b)
162 #define F2C_proc_par_types 1
164 typedef int (*U_fp)(...);
165 typedef shortint (*J_fp)(...);
166 typedef integer (*I_fp)(...);
167 typedef real (*R_fp)(...);
168 typedef doublereal (*D_fp)(...), (*E_fp)(...);
169 typedef VOID (*C_fp)(...);
170 typedef VOID (*Z_fp)(...);
171 typedef logical (*L_fp)(...);
172 typedef shortlogical (*K_fp)(...);
173 typedef VOID (*H_fp)(...);
174 typedef int (*S_fp)(...);
176 typedef int (*U_fp)();
177 typedef shortint (*J_fp)();
178 typedef integer (*I_fp)();
179 typedef real (*R_fp)();
180 typedef doublereal (*D_fp)(), (*E_fp)();
181 typedef VOID (*C_fp)();
182 typedef VOID (*Z_fp)();
183 typedef logical (*L_fp)();
184 typedef shortlogical (*K_fp)();
185 typedef VOID (*H_fp)();
186 typedef int (*S_fp)();
192 typedef doublereal E_f;
196 #ifndef Skip_f2c_Undefs
222 #pragma message("Compiling for DLL\n")
223 #define BLAS_API __declspec(dllexport)
226 #define BLAS_API __declspec(dllimport)
229 #ifdef LAPACK_EXPORTS
230 #pragma message("Compiling for DLL\n")
231 #define LAPACK_API __declspec(dllexport)
233 #define LAPACK_API __declspec(dllimport)
238 #include <Base/Common/BIASpragmaEnd.hh>
rewind, backspace, endfile