From 845420f2b2ac695915f096ea2f37e25a37c965f0 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 29 Sep 2016 23:44:24 +0000
Subject: [PATCH] Disable OpenMP in msk144sync.  As initially coded it's no
 improvement.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7123 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/msk144sync.f90 | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lib/msk144sync.f90 b/lib/msk144sync.f90
index 52425e445..c8e6333d4 100644
--- a/lib/msk144sync.f90
+++ b/lib/msk144sync.f90
@@ -15,6 +15,7 @@ subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest,   &
   integer iloc(1)
   integer npklocs(npeaks)
   integer navmask(nframes)                 ! defines which frames to average
+  integer OMP_GET_NUM_THREADS
 
   real cbi(42),cbq(42)
   real pkamps(npeaks)
@@ -78,14 +79,15 @@ subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest,   &
      ct2(1:NSPM)=c
      ct2(NSPM+1:2*NSPM)=c
 
-     nchunk=NSPM/2
-!$OMP PARALLEL SHARED(cb,ct2,cc,nchunk) PRIVATE(ish)
-!$OMP DO SCHEDULE(DYNAMIC,nchunk)
+!     nchunk=NSPM/2
+!   !$OMP PARALLEL SHARED(cb,ct2,cc,nchunk) PRIVATE(ish)
+!   !$OMP DO SCHEDULE(DYNAMIC,nchunk)
      do ish=0,NSPM-1
         cc(ish)=dot_product(ct2(1+ish:42+ish)+ct2(337+ish:378+ish),cb(1:42))
      enddo
-!$OMP END DO NOWAIT
-!$OMP END PARALLEL
+!   !$OMP END DO NOWAIT
+!     rewind 71; nt=OMP_GET_NUM_THREADS(); write(71,*) nt; flush(71)
+!   !$OMP END PARALLEL
 
      xcc=abs(cc)
      xb=maxval(xcc)*fac