integer H,W
integer,allocatable,dimension(:,:)::DP
integer mo
character(1000) line

read*,H,W
allocate(DP(H,W))
mo=10**9+7
read*,line
DP=0
if(line(1:1)==".")DP(1,1)=1
do i=2,W
  if(line(i:i)==".")DP(1,i)=DP(1,i-1)
end do

do i=2,H
  read*,line
  if(line(1:1)==".")DP(i,1)=DP(i-1,1)
  do j=2,W
    if(line(J:J)==".")DP(i,j)=mod(DP(i-1,j)+DP(i,j-1),mo)
  end do
end do

print"(i0)",DP(H,W)
end