w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

More ipc variables.

Browse Source
This commit is contained in:
Joe Taylor 2022-12-14 16:52:06 -05:00
parent 90c1598f1e
commit ca9406664e
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
q65w/libq65/decode0.f90
View File

@ -9,7 +9,8 @@ subroutine decode0(dd,ss,savg)
character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20 character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
character mycall0*12,hiscall0*12,hisgrid0*6 character mycall0*12,hiscall0*12,hisgrid0*6
character*60 result character*60 result
common/decodes/ndecodes,ncand,result(50) common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain, & common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain, &
ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift, & ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift, &
mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, & mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, &
@ -17,7 +18,7 @@ subroutine decode0(dd,ss,savg)
data neme0/-99/ data neme0/-99/
save save
call sec0(0,tquick) nQDecoderDone=0
if(newdat.ne.0) then if(newdat.ne.0) then
nz=96000*nhsym/5.3833 nz=96000*nhsym/5.3833
hist=0 hist=0

1
q65w/libq65/ftninit.f90
View File

@ -15,7 +15,6 @@ subroutine ftninit
appd='.' appd='.'
addpfx=' ' addpfx=' '
open(12,file=appd//'/q65w_decodes.txt',status='unknown')
open(17,file=appd//'/red.dat',status='unknown') open(17,file=appd//'/red.dat',status='unknown')
open(19,file=appd//'/livecq.txt',status='unknown') open(19,file=appd//'/livecq.txt',status='unknown')
open(71,file=appd//'/debug.tmp',status='unknown') open(71,file=appd//'/debug.tmp',status='unknown')

4
q65w/libq65/q65b.f90
View File

@ -26,7 +26,8 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
character*6 hisgrid character*6 hisgrid
character*4 grid4 character*4 grid4
character*60 result character*60 result
common/decodes/ndecodes,ncand,result(50) common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
common/cacb/ca common/cacb/ca
save save
@ -126,7 +127,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
frx=0.001*k0*df+nkhz_center-48.0+1.0 - 0.001*nfcal frx=0.001*k0*df+nkhz_center-48.0+1.0 - 0.001*nfcal
fsked=frx - 0.001*ndop00/2.0 - 1.5 fsked=frx - 0.001*ndop00/2.0 - 1.5
write(result(ndecodes),1120) nutc,fsked,xdt0,nsnr0,trim(msg0) write(result(ndecodes),1120) nutc,fsked,xdt0,nsnr0,trim(msg0)
write(12,1120) nutc,fsked,xdt0,nsnr0,trim(msg0)
1120 format(i4.4,f9.3,f7.2,i5,2x,a,i6) 1120 format(i4.4,f9.3,f7.2,i5,2x,a,i6)
result(ndecodes)=trim(result(ndecodes))//char(0) result(ndecodes)=trim(result(ndecodes))//char(0)
endif endif

6
q65w/libq65/q65wa.f90
View File

@ -18,7 +18,8 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
logical candec(MAX_CANDIDATES) logical candec(MAX_CANDIDATES)
type(candidate) :: cand(MAX_CANDIDATES) type(candidate) :: cand(MAX_CANDIDATES)
character*60 result character*60 result
common/decodes/ndecodes,ncand,result(50) common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50)
common/testcom/ifreq common/testcom/ifreq
save save
@ -68,9 +69,8 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
call timer('q65b ',1) call timer('q65b ',1)
if(idec.ge.0) candec(icand)=.true. if(idec.ge.0) candec(icand)=.true.
enddo ! icand enddo ! icand
call sec0(1,tsec0)
ndecdone=2 ndecdone=2
call flush(12) nQDecoderDone=1
return return
end subroutine q65wa end subroutine q65wa