%N_INERFC
%
function [N,y,go200]=N_inerfc(n,x,eps0,N0,dN)
go200=0;
N=N0-dN;
y=1; y0=0;
while abs((y-y0)/y)>eps0
  N=N+dN; y0=y;
  if N>200, go200=1; return; end
  y=quad_inerfc(N,n,x);
end
