logical function baddata(id2,nz)

  integer*2 id2(nz)

  nadd=1200
  j=0
  smin=1.e30
  smax=-smin
  iz=49*12000/nadd
  do i=1,iz
     sq=0.
     do n=1,nadd
        j=j+1
        x=id2(j)
        sq=sq + x*x
     enddo
     rms=sqrt(sq/nadd)
     smin=min(smin,rms)
     smax=max(smax,rms)
  enddo

  sratio=smax/(smin+1.e-30)
  baddata=.false.
  if(sratio.gt.1.e30) baddata=.true.

  return
end function baddata