for (cc=s; *cc; cc++) *cc=toupper(*cc); /* make the name uppercase */
v=add_udv_by_name(s);
if (!v) return; /* should not happen */
v->udv_undef= FALSE;
if (is_int)
Ginteger(&v->udv_value, (int)(value+0.5));
else
Gcomplex(&v->udv_value, value, 0);
}
staticvoid
fill_gpval_axis(AXIS_INDEXaxis)
{
constchar*prefix="GPVAL";
#defineA axis_array[axis]
doublea=AXIS_DE_LOG_VALUE(axis, A.min); /* FIXME GPVAL: This should be replaced by a = A.real_min and */
doubleb=AXIS_DE_LOG_VALUE(axis, A.max); /* FIXME GPVAL: b = A.real_max when true (delogged) min/max range values are implemented in the axis structure */
set_gpval_axis_sth_double(prefix, axis, "MIN", ((a<b) ? a : b), 0);
set_gpval_axis_sth_double(prefix, axis, "MAX", ((a<b) ? b : a), 0);