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