Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,29 @@
+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)
+     if(i.gt.6) then
+        smin=min(smin,rms)
+        smax=max(smax,rms)
+     endif
+  enddo
+
+  sratio=smax/(smin+1.e-30)
+  baddata=.false.
+  if(sratio.gt.1.e30) baddata=.true.
+
+  return
+end function baddata