w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix end subroutine line for new write_ref subroutine.

Browse Source
This commit is contained in:
Steven Franke 2020-07-13 15:10:01 -05:00
parent db3e0d8022
commit a19d5d1556
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fst240_decode.f90
View File

@ -306,7 +306,6 @@ contains
call fst240_downsample(c_bigfft,nfft1,ndown,fc0,sigbw,c2) call fst240_downsample(c_bigfft,nfft1,ndown,fc0,sigbw,c2)
call timer('sync240 ',0) call timer('sync240 ',0)
fc1=0.0 fc1=0.0
if(emedelay.lt.0.1) then ! search offsets from 0 s to 2 s if(emedelay.lt.0.1) then ! search offsets from 0 s to 2 s
is0=1.5*nspsec is0=1.5*nspsec
@ -391,7 +390,6 @@ contains
xdt=(isbest-nspsec)/fs2 xdt=(isbest-nspsec)/fs2
if(ntrperiod.eq.15) xdt=(isbest-real(nspsec)/2.0)/fs2 if(ntrperiod.eq.15) xdt=(isbest-real(nspsec)/2.0)/fs2
call fst240_downsample(c_bigfft,nfft1,ndown,fc_synced,sigbw,c2) call fst240_downsample(c_bigfft,nfft1,ndown,fc_synced,sigbw,c2)
do ijitter=0,jittermax do ijitter=0,jittermax
if(ijitter.eq.0) ioffset=0 if(ijitter.eq.0) ioffset=0
if(ijitter.eq.1) ioffset=1 if(ijitter.eq.1) ioffset=1
@ -821,6 +819,6 @@ contains
do i=1,nmax do i=1,nmax
write(51,*) i,iwave(i),real(cwave(i)),imag(cwave(i)) write(51,*) i,iwave(i),real(cwave(i)),imag(cwave(i))
enddo enddo
end subroutine subtract240 end subroutine write_ref
end module fst240_decode end module fst240_decode