/* For use outside of GP */
/* #include "/usr/lib/gcc/x86_64-redhat-linux/3.4.2/include/g2c.h" */
#ifdef HASG2C
#include <g2c.h>
#else
typedef int ftnlen;
#endif

int GP_read_stdin(void);
char *GP_sfetch(char *, char *, char *);
double GP_dfetch(char *, double, char *);
float GP_ffetch(char *, double, char *);
int GP_ifetch(char *, int, char *);
int dfetch(char *, double *);
int ffetch(char *, float *);
int ifetch(char *, int *);
int sfetch(char *name_variable, char *string);
void GP_parfile(char * parfilename);


#ifdef HASG2C

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

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

/* this fetch is removed to avoid problems between fortran and C on 64 bit machines 
float GP_ffetch_(char *, float, char *, ftnlen, ftnlen );

*/

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

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

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

#endif