Basic Image AlgorithmS Library 2.8.0

win32_f2c.h

00001 /* f2c.h  --  Standard Fortran to C header file */
00002 
00003 /**  barf  [ba:rf]  2.  "He suggested using FORTRAN, and everybody barfed."
00004 
00005     - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
00006 
00007 #ifndef F2C_INCLUDE
00008 #define F2C_INCLUDE
00009 
00010 #include <Base/Common/BIASpragmaStart.hh>
00011 
00012 typedef long int integer;
00013 typedef char *address;
00014 typedef short int shortint;
00015 typedef float real;
00016 typedef double doublereal;
00017 typedef struct { real r, i;} complex;
00018 typedef struct { doublereal r, i;} doublecomplex;
00019 typedef long int logical;
00020 typedef short int shortlogical;
00021 typedef char logical1;
00022 typedef char integer1;
00023 typedef long longint; /* system-dependent */
00024 
00025 #define TRUE_ (1)
00026 #define FALSE_ (0)
00027 
00028 /* Extern is for use with -E */
00029 #ifndef Extern
00030 #define Extern extern
00031 #endif
00032 
00033 /* I/O stuff */
00034 
00035 #ifdef f2c_i2
00036 /* for -i2 */
00037 typedef short flag;
00038 typedef short ftnlen;
00039 typedef short ftnint;
00040 #else
00041 typedef long flag;
00042 typedef long ftnlen;
00043 typedef long ftnint;
00044 #endif
00045 
00046 /*external read, write*/
00047 typedef struct
00048 {   flag cierr;
00049     ftnint ciunit;
00050     flag ciend;
00051     char *cifmt;
00052     ftnint cirec;
00053 } cilist;
00054 
00055 /*internal read, write*/
00056 typedef struct
00057 {   flag icierr;
00058     char *iciunit;
00059     flag iciend;
00060     char *icifmt;
00061     ftnint icirlen;
00062     ftnint icirnum;
00063 } icilist;
00064 
00065 /*open*/
00066 typedef struct
00067 {   flag oerr;
00068     ftnint ounit;
00069     char *ofnm;
00070     ftnlen ofnmlen;
00071     char *osta;
00072     char *oacc;
00073     char *ofm;
00074     ftnint orl;
00075     char *oblnk;
00076 } olist;
00077 
00078 /*close*/
00079 typedef struct
00080 {   flag cerr;
00081     ftnint cunit;
00082     char *csta;
00083 } cllist;
00084 
00085 /*rewind, backspace, endfile*/
00086 typedef struct
00087 {   flag aerr;
00088     ftnint aunit;
00089 } alist;
00090 
00091 /* inquire */
00092 typedef struct
00093 {   flag inerr;
00094     ftnint inunit;
00095     char *infile;
00096     ftnlen infilen;
00097     ftnint  *inex;  /*parameters in standard's order*/
00098     ftnint  *inopen;
00099     ftnint  *innum;
00100     ftnint  *innamed;
00101     char    *inname;
00102     ftnlen  innamlen;
00103     char    *inacc;
00104     ftnlen  inacclen;
00105     char    *inseq;
00106     ftnlen  inseqlen;
00107     char    *indir;
00108     ftnlen  indirlen;
00109     char    *infmt;
00110     ftnlen  infmtlen;
00111     char    *inform;
00112     ftnint  informlen;
00113     char    *inunf;
00114     ftnlen  inunflen;
00115     ftnint  *inrecl;
00116     ftnint  *innrec;
00117     char    *inblank;
00118     ftnlen  inblanklen;
00119 } inlist;
00120 
00121 #define VOID void
00122 
00123 union Multitype {   /* for multiple entry points */
00124     integer1 g;
00125     shortint h;
00126     integer i;
00127     longint j;
00128     real r;
00129     doublereal d;
00130     complex c;
00131     doublecomplex z;
00132     };
00133 
00134 typedef union Multitype Multitype;
00135 
00136 typedef long Long;  /* No longer used; formerly in Namelist */
00137 
00138 struct Vardesc {    /* for Namelist */
00139     char *name;
00140     char *addr;
00141     ftnlen *dims;
00142     int  type;
00143     };
00144 typedef struct Vardesc Vardesc;
00145 
00146 struct Namelist {
00147     char *name;
00148     Vardesc **vars;
00149     int nvars;
00150     };
00151 typedef struct Namelist Namelist;
00152 
00153 #define abs(x) ((x) >= 0 ? (x) : -(x))
00154 #define dabs(x) (doublereal)abs(x)
00155 #define min(a,b) ((a) <= (b) ? (a) : (b))
00156 #define max(a,b) ((a) >= (b) ? (a) : (b))
00157 #define dmin(a,b) (doublereal)min(a,b)
00158 #define dmax(a,b) (doublereal)max(a,b)
00159 
00160 /* procedure parameter types for -A and -C++ */
00161 
00162 #define F2C_proc_par_types 1
00163 #ifdef __cplusplus
00164 typedef int /* Unknown procedure type */ (*U_fp)(...);
00165 typedef shortint (*J_fp)(...);
00166 typedef integer (*I_fp)(...);
00167 typedef real (*R_fp)(...);
00168 typedef doublereal (*D_fp)(...), (*E_fp)(...);
00169 typedef /* Complex */ VOID (*C_fp)(...);
00170 typedef /* Double Complex */ VOID (*Z_fp)(...);
00171 typedef logical (*L_fp)(...);
00172 typedef shortlogical (*K_fp)(...);
00173 typedef /* Character */ VOID (*H_fp)(...);
00174 typedef /* Subroutine */ int (*S_fp)(...);
00175 #else
00176 typedef int /* Unknown procedure type */ (*U_fp)();
00177 typedef shortint (*J_fp)();
00178 typedef integer (*I_fp)();
00179 typedef real (*R_fp)();
00180 typedef doublereal (*D_fp)(), (*E_fp)();
00181 typedef /* Complex */ VOID (*C_fp)();
00182 typedef /* Double Complex */ VOID (*Z_fp)();
00183 typedef logical (*L_fp)();
00184 typedef shortlogical (*K_fp)();
00185 typedef /* Character */ VOID (*H_fp)();
00186 typedef /* Subroutine */ int (*S_fp)();
00187 #endif
00188 /* E_fp is for real functions when -R is not specified */
00189 typedef VOID C_f;   /* complex function */
00190 typedef VOID H_f;   /* character function */
00191 typedef VOID Z_f;   /* double complex function */
00192 typedef doublereal E_f; /* real function with -R not specified */
00193 
00194 /* undef any lower-case symbols that your C compiler predefines, e.g.: */
00195 
00196 #ifndef Skip_f2c_Undefs
00197 #undef cray
00198 #undef gcos
00199 #undef mc68010
00200 #undef mc68020
00201 #undef mips
00202 #undef pdp11
00203 #undef sgi
00204 #undef sparc
00205 #undef sun
00206 #undef sun2
00207 #undef sun3
00208 #undef sun4
00209 #undef u370
00210 #undef u3b
00211 #undef u3b2
00212 #undef u3b5
00213 #undef unix
00214 #undef vax
00215 #endif
00216 #endif
00217 
00218 
00219 #ifdef WIN32
00220 
00221 #ifdef BLAS_EXPORTS
00222 #pragma message("Compiling for DLL\n")
00223 #define BLAS_API  __declspec(dllexport)
00224 
00225 #else
00226 #define BLAS_API  __declspec(dllimport)
00227 #endif
00228 
00229 #ifdef LAPACK_EXPORTS
00230 #pragma message("Compiling for DLL\n")
00231 #define LAPACK_API __declspec(dllexport)
00232 #else
00233 #define LAPACK_API __declspec(dllimport)
00234 #endif
00235 
00236 #endif // WIN32
00237 
00238 #include <Base/Common/BIASpragmaEnd.hh>
 All Classes Functions Variables Typedefs Enumerations Enumerator Friends