const
    maxx=200;
 
var
    h,w1,w2,w3,w4,w:Array[1..maxx,1..maxx] of longint;
    m,n:longint;
    v:int64;
 
procedure doc;
var i,j:longint;
    begin
 
        readln(n,m);
        for i:=1 to n do
            begin
                for j:=1 to m do read(h[i,j]);
                readln;
            end;
        v:=0;
    end;
 
procedure install;
var i,j:longint;
    begin
        i:=1;
        for j:=1 to m do w1[i,j]:=h[i,j];
        j:=1;
        for i:=1 to n do w1[i,j]:=h[i,j];
        i:=n;
        for j:=1 to m do w1[i,j]:=h[i,j];
        j:=m;
        for i:=1 to n do w1[i,j]:=h[i,j];
        w2:=w1; w3:=w1; w4:=w1;
    end;
 
function min(a,b:longint):longint;
    begin
        if a>b then min:=b else min:=a;
    end;
 
function max(a,b:longint):longint;
    begin
        if a>b then max:=a else max:=b;
    end;
 
procedure xl;
var i,j:longint;
    begin
        for i:=2 to n-1 do
            for j:=2 to m-1 do
                w1[i,j]:=max(h[i,j],min(w1[i-1,j],w1[i,j-1]));
        for i:=n-1 downto 2 do
            for j:=2 to m-1 do
                w2[i,j]:=max(h[i,j],min(w2[i+1,j],w2[i,j-1]));
        for i:=n-1 downto 2 do
            for j:=m-1 downto 2 do
                w3[i,j]:=max(h[i,j],min(w3[i,j+1],w3[i+1,j]));
        for i:=2 to n-1 do
            for j:=m-1 downto 2 do
                w4[i,j]:=max(h[i,j],min(w4[i,j+1],w4[i-1,j]));
        for i:=2 to n-1 do
            for j:=2 to m-1 do
                w[i,j]:=min(min(w1[i,j],w2[i,j]),min(w3[i,j],w4[i,j]));
        for i:=2 to n-1 do
            for j:=2 to m-1 do v:=v+w[i,j]-h[i,j];
        writeln(v);
    end;
 
procedure solve;
var i,j:longint;
    begin
        doc;
        install;
        xl;
    end;
 
begin
    solve;
end.