A Fast Procedure for Upscaling in Compositional Simulation