From d1a1510fc864442af221620de2952321c0b7cc60 Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Fri, 6 Feb 2015 16:34:26 +0000 Subject: [PATCH] Make output arguments of decoders shared between threads This is only a temporary fix becuase if both decoders were to produce results that need accumulating e.g. number of decodes, then more complex code to merge the results would be needed. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4940 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decoder.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 855d76746..124d680e4 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -41,7 +41,7 @@ subroutine decoder(ss,id2) ntol65=20 !$ call omp_set_dynamic(.true.) - !$omp parallel sections num_threads(2) copyin(/tracer_priv/) + !$omp parallel sections num_threads(2) copyin(/tracer_priv/) shared(ndecoded) !$omp section if(nmode.eq.65 .or. (nmode.gt.65 .and. ntxmode.eq.65)) then