int QSget_named_rc (QSprob p, const char *colname, double *val)
/* p is an initialized QSprob, a handle to an existing LP problem  */
/* Get the reduced cost of the variable z.                         */

int rval;
double val;

rval = QSget_named_rc (p, "z", &val);
if (rval) {
    fprintf (stderr,
             "Could not get the rc-value, error code %d\n", rval);
} else {
    printf ("Reduced cost = %.6f\n", val);
}