fixed computation of first singular value in svd

thanks to carlos del cacho for but reporting