logical dynamicscale
      character*24 dynstring
      common/dynamicscale/dynamicscale,dynstring