(matstoch(M,l,c)=local(i);local(j);local(s);res=[0,0];for(i=1,l,s=0;for(j=1,c,if(M[i,j]<0,res[1]=1);if(M[i,j]>1,res[1]=1);s=s+M[i,j]);if(abs(s-1)<10^(-7),,res[2]=1));res)