var a:array[1..16,1..16] of longint;
       i,j,m,n,sl,sc,smax,lmax,cmax,l,c:integer; f:text;
    procedure citire;
       begin
       assign(f,'flip.in');
       reset(f);
       readln(f,n,m);
       for i:=1 to n do
          begin
          for j:=1 to m do
          read(f,a[i,j]);
          readln(f);
          end;
       close(f);
       end;
    procedure calculare;
      begin
    for i:=1 to n do
       begin
       for j:=1 to m do
       sl:=sl+a[i,j]*(-1);
       if sl>lmax then
           begin
           lmax:=sl;
           l:=i;
           end;
       sl:=0;
       end;
    for j:=1 to m do
        begin
        for i:=1 to n do
        sc:=sc+a[i,j]*(-1);
        if sc>cmax then
           begin
           cmax:=sc;
           c:=j;
           end;
        sc:=0;
        end;
    for i:=1 to n do
    for j:=1 to m do
    if (i<>l) and (j<>c) then smax:=smax+a[i,j];
    smax:=smax+cmax+lmax;
      end;
      procedure afisare;
      begin
      assign(f,'flip.out');
      rewrite(f);
      writeln(f,smax);
      close(f);
      end;
begin
   citire;
   calculare;
   afisare;
end.