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

wspr4d cleanup.

Browse Source
This commit is contained in:
Steven Franke 2020-04-18 08:05:23 -05:00
parent 041d0bf1f4
commit 14f6c27025
1 changed files with 25 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/fsk4hf/wspr4d.f90
View File

@ -32,7 +32,7 @@ program wspr4d
nargs=iargc() nargs=iargc()
if(nargs.lt.1) then if(nargs.lt.1) then
print*,'Usage: wspr4d [-a <data_dir>] [-f fMHz] [-c ncoh] [-h h] file1 [file2 ...]' print*,'Usage: wspr4d [-a <data_dir>] [-f fMHz] file1 [file2 ...]'
go to 999 go to 999
endif endif
iarg=1 iarg=1
@ -48,12 +48,6 @@ program wspr4d
read(arg,*) fMHz read(arg,*) fMHz
iarg=iarg+2 iarg=iarg+2
endif endif
ncoh=1
if(arg(1:2).eq.'-h') then
call getarg(iarg+1,arg)
read(arg,*) h
iarg=iarg+2
endif
open(13,file=trim(data_dir)//'/ALL_WSPR.TXT',status='unknown', & open(13,file=trim(data_dir)//'/ALL_WSPR.TXT',status='unknown', &
position='append') position='append')
@ -105,12 +99,14 @@ program wspr4d
endif endif
enddo enddo
enddo enddo
write(*,*) -1.50*(fs/416),fc1,fc2,isbest write(*,*) ifile,icand,-1.50*(fs/416),fc1,fc2,isbest,smax
istart=isbest istart=isbest
fcest=fc2 fcest=fc2
!genie sync !
!******** genie sync
! istart=375 ! istart=375
! fcest=0.0-1.50*(fs/416) ! fcest=0.0-1.50*(fs/416)
!
cframe=c2(istart:istart+103*416-1) cframe=c2(istart:istart+103*416-1)
call downsample4(cframe,fcest,cd) call downsample4(cframe,fcest,cd)
s2=sum(cd*conjg(cd))/(16*103) s2=sum(cd*conjg(cd))/(16*103)