O startofgen, endofgen, ingen,
& startofgen(k), endofgen(k), ingen(k),
logical ingen(NGENCOST)
ingen(k) = inday
ingen(k) = inmonth
ingen(k) = inyear