Ab initio calculation of magnetic properties in B, Al, C, Si, N, P and As-doped rutile TiO2