var
a,b,c,i,j,k,last,o:longint;
v:array[1..1000,1..1000]of char;
f:array[0..1000,1..1001]of longint;
r:array[0..1000]of longint;
r1:array[0..10000]of longint;
t:array[1..1000]of longint;
ans:int64;
begin
readln(a,b);
for i:=1 to a do
begin
for j:=1 to b do
read(v[i,j]);
readln;
end;
for i:=1 to b do
begin
for j:=1 to a do
begin
if v[j,i]='.' then
f[j,i]:=f[j-1,i]+1;
end;
end;
for i:=1 to a do
begin
fillchar(r,sizeof(r),0);
last:=0;
for j:=1 to b do
begin
if v[i,j]='*' then
begin
last:=0;
end
else
begin
k:=j-1;
o:=0;
while f[i,j]<r[k] do
begin
last:=last-r[k]+f[i,j];
r[k]:=f[i,j];
dec(k);
inc(o);
end;
inc(k,o+1);
r[k]:=f[i,j];
last:=last+f[i,j];
ans:=ans+last;
end;
end;
end;
writeln(ans);
close(input);
end.