How to find the closest even number ?

Hello,

After a division I obtained the double precision number Q.

Would like to find the closest even number. So, Q=10.5 would

give 10 and Q=11.2 give 12.

Could somebody give some suggestions how to do this in

Fortran 77 ?

Thankx a lot,

Marcel