anchor.diff:      fmtCol = 3
   
     case("XP")
  +    call dist_unitScale(fmtName, fmtUnit, 2, fmtFac, fErr)
       fmtID  = dist_fmtXP
       fmtCol = 2
     case("YP")
  +    call dist_unitScale(fmtName, fmtUnit, 2, fmtFac, fErr)
       fmtID  = dist_fmtYP
       fmtCol = 4
   
  
positive.code:       unitScale = one
      case("[1]")
        unitScale = one
      case default
        goto 100
      end select
  
negative.code:       unitScale = one
      case("[1]")
        unitScale = one
      case("[1000]")
        unitScale = c1e3
      case default
        goto 100
      end select
  