w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-14 16:11:50 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make new OpenMP code compile without OpenMP support

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7128 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2016-09-30 16:59:18 +00:00
parent 435c132bac
commit 7644a79c0b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/msk144sync.f90
View File

@ -1,6 +1,8 @@
subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest, & subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest, &
npklocs,nsuccess,c) npklocs,nsuccess,c)
!$ use omp_lib
parameter (NSPM=864) parameter (NSPM=864)
complex cdat(NSPM*nframes) complex cdat(NSPM*nframes)
complex c(NSPM) !Coherently averaged complex data complex c(NSPM) !Coherently averaged complex data
@ -12,7 +14,6 @@ subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest, &
integer iloc(1) integer iloc(1)
integer npklocs(npeaks) integer npklocs(npeaks)
integer navmask(nframes) ! defines which frames to average integer navmask(nframes) ! defines which frames to average
integer OMP_GET_THREAD_NUM,OMP_GET_MAX_THREADS
real cbi(42),cbq(42) real cbi(42),cbq(42)
real pkamps(npeaks) real pkamps(npeaks)
@ -56,12 +57,14 @@ subroutine msk144sync(cdat,nframes,ntol,delf,navmask,npeaks,fc,fest, &
nfreqs=2*nint(ntol/delf) + 1 nfreqs=2*nint(ntol/delf) + 1
xm=0.0 xm=0.0
bf=0.0 bf=0.0
nthreads=min(8,OMP_GET_MAX_THREADS()) nthreads=1
!$ nthreads=min(8,int(OMP_GET_MAX_THREADS(),4))
nstep=nfreqs/nthreads nstep=nfreqs/nthreads
call OMP_SET_NUM_THREADS(nthreads) !$ call OMP_SET_NUM_THREADS(nthreads)
!$OMP PARALLEL PRIVATE(id,if1,if2) !$OMP PARALLEL PRIVATE(id,if1,if2)
id=OMP_GET_THREAD_NUM() + 1 !Thread id = 1,2,... id=1
!$ id=OMP_GET_THREAD_NUM() + 1 !Thread id = 1,2,...
if1=-nint(ntol/delf) + (id-1)*nstep if1=-nint(ntol/delf) + (id-1)*nstep
if2=if1+nstep-1 if2=if1+nstep-1
if(id.eq.nthreads) if2=nint(ntol/delf) if(id.eq.nthreads) if2=nint(ntol/delf)