#include <stdlib.h>
#include <gp.h>
#include <stdio.h>
#include <string.h>
#include "isofile.h"

void nrerror(char error_text[])
     /* error */
{
        fprintf(stderr," run-time error...\n");
        fprintf(stderr,"%s\n",error_text);
        fprintf(stderr,"...now exiting to system...\n");
        exit(1);
}

int echo_ifetch(char *name_variable, int def_val,  char *message)
  {
    int x;
    char line[100];
    char *p;
    line[0] = '\0';
    x = GP_ifetch(name_variable, def_val, message);
    p = strcat(line,name_variable);
    p = strcat(line," = %d \n");
    fprintf(stderr,line,x);
    return x;
  }
    

double echo_dfetch(char *name_variable, double def_val,  char *message)
  {
    double x;
    char line[100];
    char *p;
    line[0] = '\0';
    x = GP_dfetch(name_variable, def_val, message);
    p = strcat(line,name_variable);
    p = strcat(line," = %g \n");
    fprintf(stderr,line,x);
    return x;
  }