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

Code cleanup.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7742 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-06-27 20:50:17 +00:00
parent 41336209c8
commit 80ad721524
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/decoder.f90
View File

@ -192,8 +192,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
!$omp end parallel sections !$omp end parallel sections
! JT65 is not yet producing info for nsynced, ndecoded. ! JT65 is not yet producing info for nsynced, ndecoded.
ndecoded = my_jt4%decoded + my_jt65%decoded + my_jt9%decoded 800 ndecoded = my_jt4%decoded + my_jt65%decoded + my_jt9%decoded + my_ft8%decoded
800 write(*,1010) nsynced,ndecoded write(*,1010) nsynced,ndecoded
1010 format('<DecodeFinished>',2i4) 1010 format('<DecodeFinished>',2i4)
call flush(6) call flush(6)
close(13) close(13)

5
lib/ft8_decode.f90
View File

@ -38,7 +38,6 @@ contains
character datetime*13,message*22 character datetime*13,message*22
this%callback => callback this%callback => callback
write(datetime,1001) nutc !### TEMPORARY ### write(datetime,1001) nutc !### TEMPORARY ###
1001 format("000000_",i6.6) 1001 format("000000_",i6.6)
@ -46,7 +45,7 @@ contains
call sync8(iwave,s,candidate,ncand) call sync8(iwave,s,candidate,ncand)
call timer('sync8 ',1) call timer('sync8 ',1)
rewind 51 ! rewind 51
do icand=1,ncand do icand=1,ncand
f1=candidate(1,icand) f1=candidate(1,icand)
xdt=candidate(2,icand) xdt=candidate(2,icand)
@ -56,7 +55,7 @@ contains
call ft8b(s,f1,xdt,nharderrors,dmin,nbadcrc,message) call ft8b(s,f1,xdt,nharderrors,dmin,nbadcrc,message)
call timer('ft8b ',1) call timer('ft8b ',1)
if (associated(this%callback)) call this%callback(sync,nsnr,xdt, & if (associated(this%callback)) call this%callback(sync,nsnr,xdt, &
freq,nbadcrc,message) f1,nbadcrc,message)
! write(13,1110) datetime,0,nsnr,xdt,f1,nharderrors,dmin,message ! write(13,1110) datetime,0,nsnr,xdt,f1,nharderrors,dmin,message
!1110 format(a13,2i4,f6.2,f7.1,i4,' ~ ',f6.2,2x,a22,' FT8') !1110 format(a13,2i4,f6.2,f7.1,i4,' ~ ',f6.2,2x,a22,' FT8')
write(51,3051) xdt,f1,sync,dmin,nsnr,nharderrors,nbadcrc,message write(51,3051) xdt,f1,sync,dmin,nsnr,nharderrors,nbadcrc,message

6
lib/jt9a.f90
View File

@ -35,12 +35,12 @@ subroutine jt9a()
mykey=trim(repeat(shm_key,1)) mykey=trim(repeat(shm_key,1))
i0 = len(mykey) i0 = len(mykey)
i0=setkey_jt9(trim(mykey)) i0=setkey_jt9(trim(mykey))
i1=attach_jt9() i1=attach_jt9()
msdelay=10
10 inquire(file=trim(temp_dir)//'/.lock',exist=fileExists) 10 inquire(file=trim(temp_dir)//'/.lock',exist=fileExists)
if(fileExists) then if(fileExists) then
call sleep_msec(100) call sleep_msec(msdelay)
go to 10 go to 10
endif endif
@ -66,7 +66,7 @@ subroutine jt9a()
100 inquire(file=trim(temp_dir)//'/.lock',exist=fileExists) 100 inquire(file=trim(temp_dir)//'/.lock',exist=fileExists)
if(fileExists) go to 10 if(fileExists) go to 10
call sleep_msec(100) call sleep_msec(msdelay)
go to 100 go to 100
999 call timer('decoder ',101) 999 call timer('decoder ',101)