sqrt procedure . bug fixed