sub GetValueAsDouble {  # Row # plus (Col #/1000)
  my( $grid, $r, $c ) = @_;
  return $r + $c / 1000;
}