MINICERN/packlib/kernlib/kerngen/kerngen/qf_f2c.h

   1 /*
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:20  mclareni
   6 * Kernlib
   7 *
   8 *
   9 *  This is a piece of f2c.h file by AT&T
  10 *
  11 * qf_f2c.h
  12 */
  13 typedef long ftnlen;
  14 typedef long int integer;
  15 typedef char *address;
  16 typedef short int shortint;
  17 typedef float real;
  18 typedef double doublereal;
  19
  20 typedef struct { real r, i; } complex;
  21 #ifdef WIN32               /*   V.E.Fine 03.07.93 */
  22 #define _COMPLEX_DEFINED
  23 #endif
  24
  25 typedef struct { doublereal r, i; } doublecomplex;
  26 typedef long int logical;
  27 typedef short int shortlogical;
  28 typedef char logical1;
  29 typedef char integer1;
  30 /* typedef long long longint; */ /* system-dependent */
  31
  32 #define TRUE_ (1)
  33 #define FALSE_ (0)
  34 #define min(a,b) ((a) <= (b) ? (a) : (b))
  35 #define max(a,b) ((a) >= (b) ? (a) : (b))