Computing the Newton polytope of the discriminant from the fiber polytope. Transformation of a pair of commuting hamiltonians quadratic in momenta to canonical form and real partial separation of variables for the Clebsch top 