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.