w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-22 20:18:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

A few more trimmings...

Browse Source
This commit is contained in:
Joe Taylor 2022-12-12 12:28:44 -05:00
parent d2034e7c71
commit 7d63433fe4
4 changed files with 0 additions and 141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
q65w/libm65/CMakeLists.txt
View File

@ -38,8 +38,6 @@ set (libm65_FSRCS
timf2.f90
tm2.f90
toxyz.f90
trimlist.f90
wavhdr.f90
f77_wisdom.f
)

1
q65w/libm65/q65b.f90
View File

@ -9,7 +9,6 @@ subroutine q65b(nutc,nqd,nxant,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
! orthogonal polarization. Decoded messages are sent back to the GUI
! on stdout.
! use wavhdr
use q65_decode
use wideband_sync
use timer_module, only: timer

28
q65w/libm65/trimlist.f90
View File

@ -1,28 +0,0 @@
subroutine trimlist(sig,km,ftol,indx,nsiz,nz)
parameter (MAXMSG=1000) !Size of decoded message list
real sig(MAXMSG,30)
integer indx(MAXMSG),nsiz(MAXMSG)
! 1 2 3 4 5 6 7 8
! nfile nutc freq snr dt ipol flip sync
call indexx(sig(1,3),km,indx) !Sort list by frequency
n=1
i0=1
do i=2,km
j0=indx(i-1)
j=indx(i)
if(sig(j,3)-sig(j0,3).gt.ftol) then
nsiz(n)=i-i0
i0=i
n=n+1
endif
enddo
nz=n
nsiz(nz)=km+1-i0
nsiz(nz+1)=-1
return
end subroutine trimlist

110
q65w/libm65/wavhdr.f90
View File

@ -1,110 +0,0 @@
module wavhdr
type hdr
character*4 ariff
integer*4 lenfile
character*4 awave
character*4 afmt
integer*4 lenfmt
integer*2 nfmt2
integer*2 nchan2
integer*4 nsamrate
integer*4 nbytesec
integer*2 nbytesam2
integer*2 nbitsam2
character*4 adata
integer*4 ndata
end type hdr
contains
function default_header(nsamrate,npts)
type(hdr) default_header,h
h%ariff='RIFF'
h%awave='WAVE'
h%afmt='fmt '
h%lenfmt=16
h%nfmt2=1
h%nchan2=1
h%nsamrate=nsamrate
h%nbitsam2=16
h%nbytesam2=h%nbitsam2 * h%nchan2 / 8
h%adata='data'
h%nbytesec=h%nsamrate * h%nbitsam2 * h%nchan2 / 8
h%ndata=2*npts
h%lenfile=h%ndata + 44 - 8
default_header=h
end function default_header
subroutine set_wsjtx_wav_params(fMHz,mode,nsubmode,ntrperiod,id2)
parameter (NBANDS=23,NMODES=13)
character*8 mode,modes(NMODES)
integer*2 id2(4)
integer iperiod(8)
real fband(NBANDS)
data fband/0.137,0.474,1.8,3.5,5.1,7.0,10.14,14.0,18.1,21.0,24.9, &
28.0,50.0,144.0,222.0,432.0,902.0,1296.0,2304.0,3400.0, &
5760.0,10368.0,24048.0/
data modes/'Echo','FSK441','ISCAT','JT4','JT65','JT6M','JT9', &
'JT9+JT65','JTMS','JTMSK','WSPR','FT8','FT2'/
data iperiod/5,10,15,30,60,120,900,0/
dmin=1.e30
iband=0
do i=1,NBANDS
if(abs(fMHz-fband(i)).lt.dmin) then
dmin=abs(fMHz-fband(i))
iband=i
endif
enddo
imode=0
do i=1,NMODES
if(mode.eq.modes(i)) imode=i
enddo
ip=0
do i=1,8
if(ntrperiod.eq.iperiod(i)) ip=i
enddo
id2(1)=iband
id2(2)=imode
id2(3)=nsubmode
id2(4)=ip
return
end subroutine set_wsjtx_wav_params
subroutine get_wsjtx_wav_params(id2,band,mode,nsubmode,ntrperiod,ok)
parameter (NBANDS=23,NMODES=13)
character*8 mode,modes(NMODES)
character*6 band,bands(NBANDS)
integer*2 id2(4)
integer iperiod(8)
logical ok
data modes/'Echo','FSK441','ISCAT','JT4','JT65','JT6M','JT9', &
'JT9+JT65','JTMS','JTMSK','WSPR','FT8','FT2'/
data iperiod/5,10,15,30,60,120,900,0/
data bands/'2190m','630m','160m','80m','60m','40m','30m','20m', &
'17m','15m','12m','10m','6m','2m','1.25m','70cm','33cm', &
'23cm','13cm','9cm','6cm','3cm','1.25cm'/
ok=.true.
if(id2(1).lt.1 .or. id2(1).gt.NBANDS) ok=.false.
if(id2(2).lt.1 .or. id2(2).gt.NMODES) ok=.false.
if(id2(3).lt.1 .or. id2(3).gt.8) ok=.false.
if(id2(4).lt.1 .or. id2(4).gt.8) ok=.false.
if(ok) then
band=bands(id2(1))
mode=modes(id2(2))
nsubmode=id2(3)
ntrperiod=iperiod(id2(4))
endif
return
end subroutine get_wsjtx_wav_params
end module wavhdr