| [2] | 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 __g77_integer integer;
|
|---|
| 22 | typedef __g77_uinteger 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 __g77_integer logical;
|
|---|
| 30 | typedef short int shortlogical;
|
|---|
| 31 | typedef char logical1;
|
|---|
| 32 | typedef char integer1;
|
|---|
| 33 | typedef __g77_longint longint; /* system-dependent */
|
|---|
| 34 | typedef __g77_ulongint 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 __g77_integer flag;
|
|---|
| 56 | typedef __g77_integer ftnlen;
|
|---|
| 57 | typedef __g77_integer 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;
|
|---|
| |
|---|
