mirror of https://github.com/saitohirga/WSJT-X.git
Clean up spec64, now that QRA64 mode is gone.
This commit is contained in:
parent
fb13265f37
commit
29a2737cf7
|
@ -51,7 +51,7 @@ subroutine q65_loops(c00,npts2,nsps2,nsubmode,ndepth,jpk0, &
|
||||||
jpk=jpk0 + nsps2*ndt/16 !tsym/16
|
jpk=jpk0 + nsps2*ndt/16 !tsym/16
|
||||||
if(jpk.lt.0) jpk=0
|
if(jpk.lt.0) jpk=0
|
||||||
call timer('spec64 ',0)
|
call timer('spec64 ',0)
|
||||||
call spec64(c0,nsps2,65,mode_q65,jpk,s3,LL,NN)
|
call spec64(c0,nsps2,mode_q65,jpk,s3,LL,NN)
|
||||||
call timer('spec64 ',1)
|
call timer('spec64 ',1)
|
||||||
call pctile(s3,LL*NN,40,base)
|
call pctile(s3,LL*NN,40,base)
|
||||||
s3=s3/base
|
s3=s3/base
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
|
subroutine spec64(c0,nsps,mode_q65,jpk,s3,LL,NN)
|
||||||
|
|
||||||
parameter (MAXFFT=20736)
|
parameter (MAXFFT=20736)
|
||||||
!### Fix this:
|
!### Fix this:
|
||||||
|
@ -11,41 +11,25 @@ subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
|
||||||
data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
|
data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
|
||||||
|
|
||||||
nfft=nsps
|
nfft=nsps
|
||||||
|
j=0
|
||||||
if(mode.eq.64) then
|
n=1
|
||||||
do j=1,NN
|
do k=1,84
|
||||||
jj=j+7 !Skip first Costas array
|
if(k.eq.isync(n)) then
|
||||||
if(j.ge.33) jj=j+14 !Skip middle Costas array
|
n=n+1
|
||||||
ja=jpk + (jj-1)*nfft
|
cycle
|
||||||
jb=ja+nfft-1
|
endif
|
||||||
cs(0:nfft-1)=c0(ja:jb)
|
j=j+1
|
||||||
call four2a(cs,nfft,1,-1,1)
|
ja=(k-1)*nsps + jpk
|
||||||
do ii=1,LL
|
jb=ja+nsps-1
|
||||||
i=ii-65
|
write(71,*) k,ja,jb ; flush(71)
|
||||||
if(i.lt.0) i=i+nfft
|
cs(0:nfft-1)=c0(ja:jb)
|
||||||
s3(ii,j)=real(cs(i))**2 + aimag(cs(i))**2
|
call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency
|
||||||
enddo
|
do ii=1,LL
|
||||||
|
i=ii-65+mode_q65 !mode_q65 = 1 2 4 8 16 for Q65 A B C D E
|
||||||
|
if(i.lt.0) i=i+nsps
|
||||||
|
s3(ii,j)=real(cs(i))**2 + aimag(cs(i))**2
|
||||||
enddo
|
enddo
|
||||||
else
|
enddo
|
||||||
j=0
|
|
||||||
n=1
|
|
||||||
do k=1,84
|
|
||||||
if(k.eq.isync(n)) then
|
|
||||||
n=n+1
|
|
||||||
cycle
|
|
||||||
endif
|
|
||||||
j=j+1
|
|
||||||
ja=(k-1)*nsps + jpk
|
|
||||||
jb=ja+nsps-1
|
|
||||||
cs(0:nfft-1)=c0(ja:jb)
|
|
||||||
call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency
|
|
||||||
do ii=1,LL
|
|
||||||
i=ii-65+mode64 !mode64 = 1 2 4 8 16 for Q65 A B C D E
|
|
||||||
if(i.lt.0) i=i+nsps
|
|
||||||
s3(ii,j)=real(cs(i))**2 + aimag(cs(i))**2
|
|
||||||
enddo
|
|
||||||
enddo
|
|
||||||
endif
|
|
||||||
|
|
||||||
df=6000.0/nfft
|
df=6000.0/nfft
|
||||||
do i=1,LL
|
do i=1,LL
|
||||||
|
|
Loading…
Reference in New Issue