w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 22:28:41 -05:00
Code Issues Packages Projects Releases Wiki Activity

Ensure prompt output of decoded messages

Browse Source 
Outputo buffer flush commands have been added after each decoded message output
to ensure that other processes get timely updates of newly decoded messages.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4948 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2015-02-10 14:04:47 +00:00
parent 52e2beb320
commit f59dc6d089
3 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/decjt9.f90
View File

@ -115,6 +115,7 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, &
write(*,1000) nutc,nsnr,xdt,nint(freq),msg write(*,1000) nutc,nsnr,xdt,nint(freq),msg
write(13,1002) nutc,nsync,nsnr,xdt,freq,ndrift,msg write(13,1002) nutc,nsync,nsnr,xdt,freq,ndrift,msg
call flush(6) call flush(6)
call flush(13)
!$omp end critical(decode_results) !$omp end critical(decode_results)
1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22) 1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22)

2
lib/decoder.f90
View File

@ -43,7 +43,7 @@ subroutine decoder(ss,id2)
newdat9=newdat newdat9=newdat
!$ call omp_set_dynamic(.true.) !$ call omp_set_dynamic(.true.)
!$omp parallel sections num_threads(2) copyin(/tracer_priv/) shared(ndecoded) !$omp parallel sections num_threads(2) copyin(/tracer_priv/) shared(ndecoded) if(.true.) !iif() needed on Mac
!$omp section !$omp section
if(nmode.eq.65 .or. (nmode.gt.65 .and. ntxmode.eq.65)) then if(nmode.eq.65 .or. (nmode.gt.65 .and. ntxmode.eq.65)) then

1
lib/jt65a.f90
View File

@ -87,6 +87,7 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded)
decoded,nbmkv decoded,nbmkv
1012 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT65',i4) 1012 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT65',i4)
call flush(6) call flush(6)
call flush(13)
!$omp end critical(decode_results) !$omp end critical(decode_results)
freq0=freq+a(1) freq0=freq+a(1)