Merging code for v1.1 back into the main wsjtx branch.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3462 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/flat2.f90

@@ -0,0 +1,18 @@
+subroutine flat2(s,nz,ref)
+
+  parameter (NSMAX=6827)
+  real s(NSMAX)
+  real ref(NSMAX)
+
+  nsmo=10
+  ia=nsmo+1
+  ib=nz-nsmo-1
+  do i=ia,ib
+     call pctile(s(i-nsmo),2*nsmo+1,5,ref(i))
+  enddo
+
+  ref(:ia-1)=ref(ia)
+  ref(ib+1:)=ref(ib)
+
+  return
+end subroutine flat2