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
This commit is contained in:
Bill Somerville 2015-02-06 16:34:26 +00:00
parent 94911071be
commit 133b603c39

View File

@ -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