procedure mainscal ( infilename,outfilename : in string );

-- DESCRIPTION :
--   This is the routine for scaling a polynomial system or a solution list,
--   as called by the central dispatcher.
--   The arguments are the respective names of the input and output files.