O sum1gen, genrec,
& sum1gen(num_var), genrec(num_var), 1, mythid )
logical genrec(NGENCOST)
integer genrec(NGENCOST)
genrec(num_var) = dayrec
genrec(num_var) = monrec
genrec(num_var) = yearrec