include/kerngen/qf_f2c.h

0001 /*
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1  1996/02/15 17:49:19  mclareni
0006 * Initial revision
0007 *
0008 *
0009 *  This is a piece of f2c.h file by AT&T
0010 *
0011 * qf_f2c.h
0012 */
0013 typedef long ftnlen;
0014 typedef long int integer;
0015 typedef char *address;
0016 typedef short int shortint;
0017 typedef float real;
0018 typedef double doublereal;
0019
0020 typedef struct { real r, i; } complex;
0021 #ifdef WIN32               /*   V.E.Fine 03.07.93 */
0022 #define _COMPLEX_DEFINED
0023 #endif
0024
0025 typedef struct { doublereal r, i; } doublecomplex;
0026 typedef long int logical;
0027 typedef short int shortlogical;
0028 typedef char logical1;
0029 typedef char integer1;
0030 /* typedef long long longint; */ /* system-dependent */
0031
0032 #define TRUE_ (1)
0033 #define FALSE_ (0)
0034 #define min(a,b) ((a) <= (b) ? (a) : (b))
0035 #define max(a,b) ((a) >= (b) ? (a) : (b))