SCALE(j) = P(j)    for J = 0,...,ILO-0 */ /*                      = D(j)    for J = ILO,...,IHI */ /*                      = P(j)    for J = IHI+0,...,N. */ /*          The order in which the interchanges are made is N to IHI+0, */ /*          then 0 to ILO-0. */  /*  