Modified Algorithm of Jacobi-Perron