loon: qf_f2c.h Source File

00001 /*
00002 * $Id: qf_f2c.h,v 1.1 2006/02/14 01:46:17 schubert Exp $
00003 *
00004 * $Log: qf_f2c.h,v $
00005 * Revision 1.1  2006/02/14 01:46:17  schubert
00006 *
00007 * First commit. geant321+_vmc Version 1.3
00008 *
00009 * Revision 1.1.1.1  2002/07/24 15:56:28  rdm
00010 * initial import into CVS
00011 *
00012 * Revision 1.1.1.1  2002/06/16 15:18:46  hristov
00013 * Separate distribution  of Geant3
00014 *
00015 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
00016 * AliRoot sources
00017 *
00018 * Revision 1.1.1.1  1996/02/15 17:49:20  mclareni
00019 * Kernlib
00020 *
00021 *
00022 *  This is a piece of f2c.h file by AT&T
00023 *
00024 * qf_f2c.h
00025 */
00026 typedef long ftnlen;
00027 typedef long int integer;
00028 typedef char *address;
00029 typedef short int shortint;
00030 typedef float real;
00031 typedef double doublereal;
00032 
00033 typedef struct { real r, i; } complex;
00034 #ifdef WIN32               /*   V.E.Fine 03.07.93 */
00035 #define _COMPLEX_DEFINED
00036 #endif
00037 
00038 typedef struct { doublereal r, i; } doublecomplex;
00039 typedef long int logical;
00040 typedef short int shortlogical;
00041 typedef char logical1;
00042 typedef char integer1;
00043 /* typedef long long longint; */ /* system-dependent */
00044 
00045 #define TRUE_ (1)
00046 #define FALSE_ (0)
00047 #define min(a,b) ((a) <= (b) ? (a) : (b))
00048 #define max(a,b) ((a) >= (b) ? (a) : (b))