Merged master 8748

2018-08-05 11:33:30 -04:00
parent 8f8772f1bd
commit 62899069bf
1095 changed files with 31298 additions and 367679 deletions
@@ -0,0 +1,49 @@
+subroutine ccf2(ss,nz,nflip,ccfbest,xlagpk)
+
+!  parameter (LAGMIN=-86,LAGMAX=258)
+  parameter (LAGMIN=-112,LAGMAX=258)  ! Look for DT from -3.6s to +5.0s
+  real ss(nz)
+  real ccf(-LAGMAX:LAGMAX)
+  integer npr(126)
+
+! The JT65 pseudo-random sync pattern:
+  data npr/                                    &
+      1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, &
+      0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, &
+      0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, &
+      0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, &
+      1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, &
+      0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, &
+      1,1,1,1,1,1/
+  save
+
+  ccfbest=0.
+  lag1=LAGMIN
+  lag2=LAGMAX
+  do lag=lag1,lag2
+     s0=0.
+     s1=0.
+     do i=1,126
+        j=16*(i-1)+1 + lag
+        if(j.ge.1 .and. j.le.nz-8) then
+           x=ss(j)
+           if(npr(i).eq.0) then
+              s0=s0 + x
+           else
+              s1=s1 + x
+           endif
+        endif
+     enddo
+     ccf(lag)=nflip*(s1-s0)
+     if(ccf(lag).gt.ccfbest) then
+        ccfbest=ccf(lag)
+        lagpk=lag
+        xlagpk=lagpk
+     endif
+  enddo
+  if( lagpk.gt.-LAGMAX .and. lagpk.lt.LAGMAX) then
+     call peakup(ccf(lagpk-1),ccf(lagpk),ccf(lagpk+1),dx)
+     xlagpk=lagpk+dx
+  endif
+  return
+end subroutine ccf2