module scales
      implicit none
      real*8, allocatable :: scale(:)
      logical set_scale
      save
      end