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