Remove m_DF and associated code.

Disable some presently un-implemented controls.
Begin implemnting "Save Synced" and "Save Decoded".
Set compilation to CONSOLE mode.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2706 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2012-10-30 16:49:24 +00:00
parent 5b432b0ab9
commit 90ad55cf77
13 changed files with 83 additions and 45 deletions
+6 -1
View File
@@ -15,13 +15,15 @@ subroutine decoder(ntrSeconds,nRxLog,c0)
integer*2 id2
complex c0(NDMAX)
common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat, &
ntr,nfqso,nagain,newdat,npts8,nfb,ntol,kin
ntr,nfqso,nagain,newdat,npts8,nfb,ntol,kin,nsynced,ndecoded
logical first
data first/.true./
save
ntrMinutes=ntrSeconds/60
newdat=1
nsynced=0
ndecoded=0
nsps=0
if(ntrMinutes.eq.1) then
@@ -79,6 +81,7 @@ subroutine decoder(ntrSeconds,nRxLog,c0)
if(ccfred(i).gt.sbest .and. fgood.eq.0.0) then
sbest=ccfred(i)
write(line,1010) nutc,nsync,nsnr,xdt,1000.0+fpk,width
if(nsync.gt.0) nsynced=1
endif
if(msg.ne.' ') then
@@ -86,6 +89,8 @@ subroutine decoder(ntrSeconds,nRxLog,c0)
1010 format(i4.4,i4,i5,f6.1,f8.2,f6.2,3x,a22)
write(14,1010) nutc,nsync,nsnr,xdt,1000.0+fpk,width,msg
fgood=f
nsynced=1
ndecoded=1
endif
endif
enddo