Remove more kvasd stuff. Fix the twkfreq conflict.

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

libm65/CMakeLists.txt

@@ -133,6 +133,7 @@ set (FSRCS
   toxyz.f90
   trimlist.f90
   twkfreq.f90
+  twkfreq_xy.f90
 
   f77_wisdom.f
   )

libm65/decode1a.f90

@@ -82,9 +82,9 @@ subroutine decode1a(dd,newdat,f0,nflip,mode65,nfast,nfsample,xpol,          &
 ! Now we are back to using the 1378.125 Hz sample rate, enough to 
 ! accommodate the full JT65C bandwidth.
 
-  call timer('twkfreq ',0)
-  call twkfreq(cx,cy,n5,1378.125,a)
-  call timer('twkfreq ',1)
+  call timer('twkfreq_',0)
+  call twkfreq_xy(cx,cy,n5,a)
+  call timer('twkfreq_',1)
 
 ! Compute spectrum at best polarization for each half symbol.
 ! Adding or subtracting a small number (e.g., 5) to j may make it decode.\

libm65/ftninit.f90

@@ -12,7 +12,7 @@
 !   19  livecq.txt
 !   20  
 !   21  map65_rx.log
-!   22  kvasd.dat
+!   22  
 !   23  CALL3.TXT
 !   24  
 !   25  
@@ -34,14 +34,7 @@ subroutine ftninit(appd)
   open(13,file=appd//'/map65.log',status='unknown')
   open(19,file=appd//'/livecq.txt',status='unknown')
   open(21,file=appd//'/map65_rx.log',status='unknown',access='append',err=950)
-  open(22,file=appd//'/kvasd.dat',access='direct',recl=1024,status='unknown')
-  read(22,rec=2,err=12) junk
-  go to 18
-12 junk=0
-  write(22,rec=1) junk
-  write(22,rec=2) junk
-
-18  open(26,file=appd//'/tmp26.txt',status='unknown')
+  open(26,file=appd//'/tmp26.txt',status='unknown')
 
 ! Import FFTW wisdom, if available:
   open(28,file=appd//'/fftwf_wisdom.dat',status='old',err=30)

libm65/map65a.f90

@@ -353,7 +353,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
 1013    format('<QuickDecodeDone>',2i4)
         flush(6)
      endif
-     if(nqd.eq.2) exit                    !### TESTING: do only QRA64
+!     if(nqd.eq.2) exit                    !### TESTING: do only QRA64
      if(nagain.eq.1 .and. nqd.eq.1) go to 999
   enddo
 

libm65/twkfreq_xy.f90

@@ -0,0 +1,29 @@
+subroutine twkfreq_xy(c4aa,c4bb,n5,a)
+
+  complex c4aa(n5)
+  complex c4bb(n5)
+  real a(5)
+  complex w,wstep
+  data twopi/6.283185307/
+
+! Apply AFC corrections to the c4aa and c4bb data
+  w=1.0
+  wstep=1.0
+  x0=0.5*(n5+1)
+  s=2.0/n5
+  do i=1,n5
+     x=s*(i-x0)
+     if(mod(i,1000).eq.1) then
+        p2=1.5*x*x - 0.5
+!            p3=2.5*(x**3) - 1.5*x
+!            p4=4.375*(x**4) - 3.75*(x**2) + 0.375
+        dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/1378.125)
+        wstep=cmplx(cos(dphi),sin(dphi))
+     endif
+     w=w*wstep
+     c4aa(i)=w*c4aa(i)
+     c4bb(i)=w*c4bb(i)
+  enddo
+
+  return
+end subroutine twkfreq_xy

mainwindow.cpp

@@ -1,4 +1,4 @@
-//--------------------------------------------------------------- MainWindow
+//-------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"