From f59dc6d089d4088e85b2349ec4afa97be0e1ba27 Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Tue, 10 Feb 2015 14:04:47 +0000 Subject: [PATCH] Ensure prompt output of decoded messages 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 --- lib/decjt9.f90 | 1 + lib/decoder.f90 | 2 +- lib/jt65a.f90 | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/decjt9.f90 b/lib/decjt9.f90 index ffed56d52..bc413e462 100644 --- a/lib/decjt9.f90 +++ b/lib/decjt9.f90 @@ -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(13,1002) nutc,nsync,nsnr,xdt,freq,ndrift,msg call flush(6) + call flush(13) !$omp end critical(decode_results) 1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index b34aa4431..966d94e87 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -43,7 +43,7 @@ subroutine decoder(ss,id2) newdat9=newdat !$ 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 if(nmode.eq.65 .or. (nmode.gt.65 .and. ntxmode.eq.65)) then diff --git a/lib/jt65a.f90 b/lib/jt65a.f90 index 3f57d77a6..3265fe8da 100644 --- a/lib/jt65a.f90 +++ b/lib/jt65a.f90 @@ -87,6 +87,7 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded) decoded,nbmkv 1012 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT65',i4) call flush(6) + call flush(13) !$omp end critical(decode_results) freq0=freq+a(1)