comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-07-09 20:05:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix formatting in ft8d.f90

Browse Source
This commit is contained in:
Pavel Demin 2018-03-24 17:06:33 +01:00
parent cdd1c49706
commit 90bb854cc3
1 changed files with 62 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ft8d.f90
View File

@ -73,17 +73,15 @@ program ft8d
lapcqonly,napwid,lsubtract,nagain,iaptype,mycall12,mygrid6, & lapcqonly,napwid,lsubtract,nagain,iaptype,mycall12,mygrid6, &
hiscall12,bcontest,sync,f1,xdt,xbase,apsym,nharderrors,dmin, & hiscall12,bcontest,sync,f1,xdt,xbase,apsym,nharderrors,dmin, &
nbadcrc,iappass,iera,msg37,xsnr) nbadcrc,iappass,iera,msg37,xsnr)
message=msg37(1:22) !### message=msg37(1:22)
nsnr=nint(xsnr) nsnr=nint(xsnr)
xdt=xdt-0.5 xdt=xdt-0.5
hd=nharderrors+dmin hd=nharderrors+dmin
if(nbadcrc.eq.0) then if(nbadcrc.eq.0) then
! call jtmsg(message,iflag)
if(bcontest) then if(bcontest) then
call fix_contest_msg(mygrid6,message) call fix_contest_msg(mygrid6,message)
msg37(1:22)=message msg37(1:22)=message
endif endif
! if(iand(iflag,31).ne.0) message(22:22)='?'
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.