& nnzobs, gencost_datafile(k), mult_gencost(k),
& objf_gencost, num_gencost, mult_gencost,
_RL mult_gencost(NGENCOST)
& + mult_gencost(num_var)
& mult_gencost
mult_gencost(k) = 0. _d 0