mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-06 21:36:44 -04:00
c7c50830bf
This issue was probably triggered by OpenMP forcing some large arrays onto the stack where Fortran might normally make them static. The change that seemed to make the difference was putting cdat2 in msk144_freq_search into static storage. I am not convinced that the problem is really solved but it works for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7130 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
56 lines
1.3 KiB
Fortran
56 lines
1.3 KiB
Fortran
subroutine msk144_freq_search(cdat,fc,if1,if2,delf,nframes,navmask,cb, &
|
|
xmax,bestf,cs,xccs)
|
|
|
|
parameter (NSPM=864,NZ=7*NSPM)
|
|
complex cdat(NZ)
|
|
complex cdat2(NZ)
|
|
complex c(NSPM) !Coherently averaged complex data
|
|
complex ct2(2*NSPM)
|
|
complex cs(NSPM)
|
|
complex cb(42) !Complex waveform for sync word
|
|
complex cc(0:NSPM-1)
|
|
real xcc(0:NSPM-1)
|
|
real xccs(0:NSPM-1)
|
|
integer navmask(nframes) ! defines which frames to average
|
|
save cdat2
|
|
|
|
navg=sum(navmask)
|
|
n=nframes*NSPM
|
|
fac=1.0/(48.0*sqrt(float(navg)))
|
|
|
|
do ifr=if1,if2 !Find freq that maximizes sync
|
|
ferr=ifr*delf
|
|
call tweak1(cdat,n,-(fc+ferr),cdat2)
|
|
c=0
|
|
do i=1,nframes
|
|
ib=(i-1)*NSPM+1
|
|
ie=ib+NSPM-1
|
|
if( navmask(i) .eq. 1 ) then
|
|
c(1:NSPM)=c(1:NSPM)+cdat2(ib:ie)
|
|
endif
|
|
enddo
|
|
|
|
cc=0
|
|
ct2(1:NSPM)=c
|
|
ct2(NSPM+1:2*NSPM)=c
|
|
|
|
do ish=0,NSPM-1
|
|
cc(ish)=dot_product(ct2(1+ish:42+ish)+ct2(337+ish:378+ish),cb(1:42))
|
|
enddo
|
|
|
|
xcc=abs(cc)
|
|
xb=maxval(xcc)*fac
|
|
if(xb.gt.xmax) then
|
|
xmax=xb
|
|
bestf=ferr
|
|
cs=c
|
|
xccs=xcc
|
|
endif
|
|
enddo
|
|
|
|
! write(71,3001) fc,delf,if1,if2,nframes,bestf,xmax
|
|
!3001 format(2f8.3,3i5,2f8.3)
|
|
|
|
return
|
|
end subroutine msk144_freq_search
|