MICROCERN/kerngen/qf_f2c.h

   1 /*
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2.4.1  2002/11/26 16:50:55  hristov
   6 * Merging NewIO with v3-09-04
   7 *
   8 * Revision 1.2  2002/10/14 14:57:11  hristov
   9 * Merging the VirtualMC branch to the main development branch (HEAD)
  10 *
  11 * Revision 1.1.2.1  2002/07/11 17:14:49  alibrary
  12 * Adding MICROCERN
  13 *
  14 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
  15 * AliRoot sources
  16 *
  17 * Revision 1.1.1.1  1996/02/15 17:49:20  mclareni
  18 * Kernlib
  19 *
  20 *
  21 *  This is a piece of f2c.h file by AT&T
  22 *
  23 * qf_f2c.h
  24 */
  25 typedef long ftnlen;
  26 typedef long int integer;
  27 typedef char *address;
  28 typedef short int shortint;
  29 typedef float real;
  30 typedef double doublereal;
  31
  32 typedef struct { real r, i; } complex;
  33 #ifdef WIN32               /*   V.E.Fine 03.07.93 */
  34 #define _COMPLEX_DEFINED
  35 #endif
  36
  37 typedef struct { doublereal r, i; } doublecomplex;
  38 typedef long int logical;
  39 typedef short int shortlogical;
  40 typedef char logical1;
  41 typedef char integer1;
  42 /* typedef long long longint; */ /* system-dependent */
  43
  44 #define TRUE_ (1)
  45 #define FALSE_ (0)
  46 #define min(a,b) ((a) <= (b) ? (a) : (b))
  47 #define max(a,b) ((a) >= (b) ? (a) : (b))