From 6026944e332af976a249129e4bfdc101982474d2 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Wed, 7 Oct 2020 13:12:20 +0100
Subject: [PATCH] Workaround for some memory issues, possibly thread stack
 sizing

Reduced maximum thread team size for MSK144 candidate discovery to 4.
---
 lib/msk144sync.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/msk144sync.f90 b/lib/msk144sync.f90
index dfae9a21e..cfcd8c928 100644
--- a/lib/msk144sync.f90
+++ b/lib/msk144sync.f90
@@ -57,7 +57,7 @@ subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest,   &
   xm=0.0
   bf=0.0
   nthreads=1
-!$ nthreads=min(8,int(OMP_GET_MAX_THREADS(),4))
+!$ nthreads=min(4,int(OMP_GET_MAX_THREADS(),4))
   nstep=nfreqs/nthreads
 
 !$OMP PARALLEL NUM_THREADS(nthreads) PRIVATE(id,if1,if2)