O sum1gen, genrec,
& sum1gen(k), genrec(k), 1, mythid )
integer sum1gen(NGENCOST)
sum1gen(k) = sum1day
sum1gen(k) = sum1mon
sum1gen(k) = sum1year