program rectangle(input,output);
 
var
  n,m,i,j:longint;
  count,sum:int64;
  ch:char;
  f:array[0..1001,0..1001,1..2]of int64;
 
begin
  assign(input,'rectangle.in');
  reset(input);
  assign(output,'rectangle.out');
  rewrite(output);
 
  read(n,m);
  for i:=1 to n do
  begin
    readln;
 
    for j:=1 to m do
    begin
      read(ch);
 
      if ch='.' then
      begin
        f[i,j,1]:=f[i,j-1,1]+1;
        f[i,j,2]:=f[i-1,j,2]+1;
        inc(count);
        sum:=sum+f[i,j,1]+f[i,j,2];
      end;
    end;
  end;
 
  writeln(sum-count);
 
  close(input);
  close(output);
end.