Replace Numerical Recipes Jacobi routine with LAPACK in polar decomposition