/* config.h. Generated by configure. */
#define CPU i386
#define VENDOR unknown
#define OS gnu
#define OSNAME gnu
#define OSREL gnu
#define OSVERS gnu
#define TCLVERS 74
#define TKVERS 40
#define FORTRANNOUNDERSCORE 0
#define FORTRANUNDERSCORE 1
#define FORTRANDOUBLEUNDERSCORE 0
#define FORTRANUPPERCASE 0
#if FORTRANNOUNDERSCORE==1
#define F77NAME(x,X) x
#elif FORTRANUNDERSCORE==1 || FORTRANDOUBLEUNDERSCORE==1
#define F77NAME(x,X) x##_
#elif FORTRANUPPERCASE
#define F77NAME(x,X) X
#else
#define F77NAME(x,X) x
#endif
#define CRAYFTN 0
#define LSFTN 0
#if CRAYFTN==1
#include <fortran.h>
typedef _fcd FtnStrPar;
#define StrParLen(s) (_fcdlen(s))
#define StrParAdr(s) (_fcdtocp(s))
#define DeclStrPar(name) _fcd name
#define MakeStrPar(name,adr,len) name = _cptofcd(adr,len)
#define UseStrPar(name) (name)
#define UseStrParLng(name) (0)
#elif LSFTN==1
struct FtnStrPar
{
char *DataPtr;
short DataSize;
};
typedef struct FtnStrPar* FtnStrPar;
#define StrParLen(s) (s->DataSize)
#define StrParAdr(s) (s->DataPtr)
#define DeclStrPar(name) struct FtnStrPar name
#define MakeStrPar(name,adr,len) name->DataPtr=adr; name->DataSize=len
#define UseStrPar(name) (&name)
#define UseStrParLng(name) (0)
#else
typedef char* FtnStrPar;
#define StrParLen(s) (s##Lng)
#define StrParAdr(s) (s)
#define DeclStrPar(name) char *name; int name##Lng
#define MakeStrPar(name,adr,len) name=adr; name##Lng=len
#define UseStrPar(name) (name)
#define UseStrParLng(name) (name##Lng)
#endif
#if CRAYFTN==1
#define FtnLogical(b) (_btol(b))
#else
#define FtnLogical(b) (b)
#endif
#define X11AVAIL 1
#define MACOSAVAIL 0
syntax highlighted by Code2HTML, v. 0.9.1