static int status;
static char buf[200];
#define GSLERR(x,y) if (status = x y) {sprintf(buf,"Error in %s: %s",# x ,gsl_strerror(status));barf(buf);}
static int status;
static char buf[200];
#define GSLERR(x,y) if (status = x y) {sprintf(buf,"Error in %s: %s",# x ,gsl_strerror(status));barf(buf);}