      read(5,*) tempo,dx,n
      do i=0,n
         x=i*dx/(2*sqrt(tempo))
         sol=erfcc(x)
         write(6,*) i+1,sol
      end do
      end
