routine corrected of Fri Maths(VDS)