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