c--- contains the initial scale choices set in the input file
      double precision initscale,initfacscale
      common/initialscales/initscale,initfacscale