w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-06 23:27:55 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove call to jtmsg.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8016 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-08-09 15:22:54 +00:00
parent cfbf21b9c1
commit b2df3c9fdb
1 changed files with 19 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
lib/ft8_decode.f90
View File

@ -97,33 +97,26 @@ contains
hd=nharderrors+dmin hd=nharderrors+dmin
call timer('ft8b ',1) call timer('ft8b ',1)
if(nbadcrc.eq.0) then if(nbadcrc.eq.0) then
call jtmsg(message,iflag) ! call jtmsg(message,iflag)
if(bcontest) call fix_contest_msg(mygrid6,message) if(bcontest) call fix_contest_msg(mygrid6,message)
if(iand(iflag,16).ne.0) message(22:22)='?' ! if(iand(iflag,31).ne.0) message(22:22)='?'
if(iand(iflag,15).eq.0) then ldupe=.false.
ldupe=.false. do id=1,ndecodes
do id=1,ndecodes if(message.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
if(message.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true. enddo
enddo if(.not.ldupe) then
if(.not.ldupe) then ndecodes=ndecodes+1
ndecodes=ndecodes+1 allmessages(ndecodes)=message
allmessages(ndecodes)=message allsnrs(ndecodes)=nsnr
allsnrs(ndecodes)=nsnr endif
endif ! write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass, &
! write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass, & ! nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
! iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & ! xdt,nint(f1),message
! xdt,nint(f1),message !1004 format(i6.6,2i4,3i2,i3,3f6.1,i4,f6.2,i5,2x,a22)
! flush(81) ! flush(81)
if(.not.ldupe .and. associated(this%callback)) then if(.not.ldupe .and. associated(this%callback)) then
qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0] qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0]
call this%callback(sync,nsnr,xdt,f1,message,iaptype,qual) call this%callback(sync,nsnr,xdt,f1,message,iaptype,qual)
endif
else
write(19,1004) nutc,ncand,icand,ipass,iaptype,iappass, &
iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
xdt,nint(f1),message
1004 format(i6.6,2i4,3i2,2i3,3f6.1,i4,f6.2,i5,2x,a22)
flush(19)
endif endif
endif endif
enddo enddo