/* For use outside of GP */
#include <g2c.h>

#ifdef GPPROTOTYPE
#undef GPPROTOTYPE
#endif

#if defined(UNICOS)
#define GPPROTOTYPE
#endif

#if defined(LINUX)
#define GPPROTOTYPE
#endif

#if defined(IBM6000)
#define GPPROTOTYPE
#endif

#if defined (IRIS4)
#define GPPROTOTYPE
#endif

#if defined(AIXESA)
#define GPPROTOTYPE
#endif


#if defined(DEC)
#define GPPROTOTYPE
#endif

#if defined(SUN)
#endif

#if defined(HP9000)
#endif

#ifdef GPPROTOTYPE  
#define    GPPROTO(x) x
#else
#define    GPPROTO(x) ()
#endif

/* {{{ function prototypes  */

int GP_read_stdin
  GPPROTO((void));

char *GP_sfetch
  GPPROTO((char *, char *, char *));

double GP_dfetch
  GPPROTO((char *, double, char *));

int dfetch_
  GPPROTO((char *, double *, ftnlen));

float GP_ffetch
  GPPROTO((char *, double, char *));

int ffetch_
  GPPROTO((char *, float *, ftnlen));

int GP_ifetch
  GPPROTO((char *, int, char *));

int ifetch_
  GPPROTO((char *, int *, ftnlen));

int dfetch
  GPPROTO((char *, double *));

int ffetch
  GPPROTO((char *, float *));

int ifetch
  GPPROTO((char *, int *));

int sfetch
  GPPROTO((char *name_variable, char *string));

/* this fetch is double to avoid problems between fortran and C on 64 bit machines */

double GP_dfetch_
  GPPROTO((char *, double, char *, ftnlen, ftnlen ));

int GP_ifetch_
  GPPROTO((char *, int, char *, ftnlen, ftnlen ));

double GP_ffetch_
  GPPROTO((char *, float, char *, ftnlen, ftnlen ));