mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-27 14:48:46 -05:00
Starting to implement the JT4 modes.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2966 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
parent
dd70cf8e8e
commit
3fae9c607c
@ -20,7 +20,7 @@ CFLAGS = -I. -fbounds-check -mno-stack-arg-probe
|
|||||||
%.o: %.F90
|
%.o: %.F90
|
||||||
${FC} ${FFLAGS} -c $<
|
${FC} ${FFLAGS} -c $<
|
||||||
|
|
||||||
all: libjt9.a jt9sim.exe jt9.exe jt9code.exe jt9test.exe
|
all: libjt9.a jt9sim.exe jt9.exe jt9code.exe wsjt24d.exe
|
||||||
|
|
||||||
OBJS1 = pctile.o graycode.o sort.o ssort.o \
|
OBJS1 = pctile.o graycode.o sort.o ssort.o \
|
||||||
unpackmsg.o igray.o unpackcall.o unpackgrid.o \
|
unpackmsg.o igray.o unpackcall.o unpackgrid.o \
|
||||||
@ -30,8 +30,9 @@ OBJS1 = pctile.o graycode.o sort.o ssort.o \
|
|||||||
symspec.o timf2.o analytic.o db.o genjt9.o \
|
symspec.o timf2.o analytic.o db.o genjt9.o \
|
||||||
packbits.o unpackbits.o encode232.o interleave9.o \
|
packbits.o unpackbits.o encode232.o interleave9.o \
|
||||||
entail.o fano232.o gran.o spec9.o sync9.o decode9.o \
|
entail.o fano232.o gran.o spec9.o sync9.o decode9.o \
|
||||||
peakdt9.o peakdf9.o fil3.o redsync.o decoder.o \
|
fil3.o redsync.o decoder.o grid2n.o n2grid.o timer.o \
|
||||||
grid2n.o n2grid.o timer.o
|
decode9a.o getlags.o afc9.o fchisq.o twkfreq.o downsam9.o \
|
||||||
|
peakdt9.o symspec2.o
|
||||||
|
|
||||||
libjt9.a: $(OBJS1)
|
libjt9.a: $(OBJS1)
|
||||||
ar cr libjt9.a $(OBJS1)
|
ar cr libjt9.a $(OBJS1)
|
||||||
@ -53,8 +54,13 @@ jt9code.exe: $(OBJS4) libjt9.a
|
|||||||
$(FC) -o jt9code.exe $(OBJS4) libjt9.a
|
$(FC) -o jt9code.exe $(OBJS4) libjt9.a
|
||||||
|
|
||||||
OBJS5 = jt9test.o
|
OBJS5 = jt9test.o
|
||||||
jt9test.exe: $(OBJS5) libjt9.a
|
jt9test.exe: $(OBJS5) libjt9.a
|
||||||
$(FC) -o jt9test.exe $(OBJS5) libjt9.a ../libfftw3f_win.a
|
$(FC) -o jt9test.exe $(OBJS5) libjt9.a ../libfftw3f_win.a
|
||||||
|
|
||||||
|
OBJS6 = wsjt24d.o wsjt24.o sync24.o decode24.o ps24.o flat1.o \
|
||||||
|
xcor24.o slope.o peakup.o interleave24.o genmet24.o
|
||||||
|
wsjt24d.exe: $(OBJS6) libjt9.a
|
||||||
|
$(FC) -o wsjt24d.exe $(OBJS6) libjt9.a ../libfftw3f_win.a
|
||||||
|
|
||||||
INCPATH = -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/QtCore' \
|
INCPATH = -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/QtCore' \
|
||||||
-I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include' \
|
-I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include' \
|
||||||
|
|||||||
167
lib/decode24.f90
Normal file
167
lib/decode24.f90
Normal file
@ -0,0 +1,167 @@
|
|||||||
|
subroutine decode24(dat,npts,dtx,dfx,flip,mode,mode4,decoded,ncount, &
|
||||||
|
nlim,deepmsg,qual,submode)
|
||||||
|
|
||||||
|
! Decodes JT65 data, assuming that DT and DF have already been determined.
|
||||||
|
|
||||||
|
parameter (MAXAVE=120)
|
||||||
|
real dat(npts) !Raw data
|
||||||
|
character decoded*22,deepmsg*22
|
||||||
|
character*72 c72
|
||||||
|
character submode*1
|
||||||
|
real*8 dt,df,phi,f0,dphi,twopi,phi1,dphi1
|
||||||
|
complex*16 cz,cz1,c0,c1
|
||||||
|
integer*1 symbol(207)
|
||||||
|
real*4 rsymbol(207)
|
||||||
|
integer*1 data1(13) !Decoded data (8-bit bytes)
|
||||||
|
integer data4a(9) !Decoded data (8-bit bytes)
|
||||||
|
integer data4(12) !Decoded data (6-bit bytes)
|
||||||
|
integer amp,delta
|
||||||
|
integer mettab(0:255,0:1) !Metric table
|
||||||
|
integer fano
|
||||||
|
integer nch(7)
|
||||||
|
integer npr2(207)
|
||||||
|
! common/ave/ppsave(64,63,MAXAVE),nflag(MAXAVE),nsave,iseg(MAXAVE)
|
||||||
|
data mode0/-999/
|
||||||
|
data nsum/0/,rsymbol/207*0.0/
|
||||||
|
data npr2/ &
|
||||||
|
0,0,0,0,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,1,1,0,0, &
|
||||||
|
0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, &
|
||||||
|
1,0,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,0,1,1,0,0,1, &
|
||||||
|
0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1, &
|
||||||
|
0,1,1,1,0,0,1,0,1,1,0,1,1,1,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1,1, &
|
||||||
|
0,1,1,1,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1, &
|
||||||
|
1,0,0,1,1,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1/
|
||||||
|
|
||||||
|
data nch/1,2,4,9,18,36,72/
|
||||||
|
save mettab,mode0,nsum,rsymbol
|
||||||
|
|
||||||
|
if(mode.ne.mode0) call genmet24(mode,mettab)
|
||||||
|
mode0=mode
|
||||||
|
twopi=8*atan(1.d0)
|
||||||
|
dt=2.d0/11025 !Sample interval (2x downsampled data)
|
||||||
|
df=11025.d0/2520.d0
|
||||||
|
nsym=206
|
||||||
|
amp=15
|
||||||
|
istart=nint(dtx/dt) !Start index for synced FFTs
|
||||||
|
if(istart.lt.0) istart=0
|
||||||
|
idfbest=0
|
||||||
|
nchips=0
|
||||||
|
ich=0
|
||||||
|
|
||||||
|
! Should amp be adjusted according to signal strength?
|
||||||
|
|
||||||
|
! Compute soft symbols using differential BPSK demodulation
|
||||||
|
c0=0. !### C0=amp ???
|
||||||
|
k=istart
|
||||||
|
fac=1.e-4
|
||||||
|
phi=0.d0
|
||||||
|
phi1=0.d0
|
||||||
|
ang0=0.
|
||||||
|
|
||||||
|
40 ich=ich+1
|
||||||
|
nchips=nch(ich)
|
||||||
|
nspchip=1260/nchips
|
||||||
|
k=istart
|
||||||
|
phi=0.d0
|
||||||
|
phi1=0.d0
|
||||||
|
fac2=1.e-8 * sqrt(float(mode4))
|
||||||
|
do j=1,nsym+1
|
||||||
|
if(flip.gt.0.0) then
|
||||||
|
f0=1270.46 + dfx + (npr2(j)-1.5)*mode4*df
|
||||||
|
f1=1270.46 + dfx + (2+npr2(j)-1.5)*mode4*df
|
||||||
|
else
|
||||||
|
f0=1270.46 + dfx + (1-npr2(j)-1.5)*mode4*df
|
||||||
|
f1=1270.46 + dfx + (3-npr2(j)-1.5)*mode4*df
|
||||||
|
endif
|
||||||
|
dphi=twopi*dt*f0
|
||||||
|
dphi1=twopi*dt*f1
|
||||||
|
sq0=0.
|
||||||
|
sq1=0.
|
||||||
|
do nc=1,nchips
|
||||||
|
phi=0.d0
|
||||||
|
phi1=0.d0
|
||||||
|
c0=0.
|
||||||
|
c1=0.
|
||||||
|
do i=1,nspchip
|
||||||
|
k=k+1
|
||||||
|
phi=phi+dphi
|
||||||
|
phi1=phi1+dphi1
|
||||||
|
cz=dcmplx(cos(phi),-sin(phi))
|
||||||
|
cz1=dcmplx(cos(phi1),-sin(phi1))
|
||||||
|
if(k.le.npts) then
|
||||||
|
c0=c0 + dat(k)*cz
|
||||||
|
c1=c1 + dat(k)*cz1
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
sq0=sq0 + real(c0)**2 + aimag(c0)**2
|
||||||
|
sq1=sq1 + real(c1)**2 + aimag(c1)**2
|
||||||
|
enddo
|
||||||
|
sq0=fac2*sq0
|
||||||
|
sq1=fac2*sq1
|
||||||
|
rsym=amp*(sq1-sq0)
|
||||||
|
r=rsym+128.
|
||||||
|
if(r.gt.255.0) r=255.0
|
||||||
|
if(r.lt.0.0) r=0.0
|
||||||
|
i4=nint(r)
|
||||||
|
if(i4.gt.127) i4=i4-256
|
||||||
|
if(j.ge.1) then
|
||||||
|
symbol(j)=i4
|
||||||
|
rsymbol(j)=rsymbol(j) + rsym
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
!### The following does simple message averaging:
|
||||||
|
nsum=nsum+1
|
||||||
|
do j=1,207
|
||||||
|
r=rsymbol(j)/nsum + 128.
|
||||||
|
if(r.gt.255.0) r=255.0
|
||||||
|
if(r.lt.0.0) r=0.0
|
||||||
|
i4=nint(r)
|
||||||
|
if(i4.gt.127) i4=i4-256
|
||||||
|
symbol(j)=i4
|
||||||
|
enddo
|
||||||
|
!###
|
||||||
|
|
||||||
|
nbits=72+31
|
||||||
|
delta=100
|
||||||
|
limit=100000
|
||||||
|
ncycles=0
|
||||||
|
ncount=-1
|
||||||
|
call interleave24(symbol(2),-1) !Remove the interleaving
|
||||||
|
|
||||||
|
call fano232(symbol(2),nbits,mettab,delta,limit,data1,ncycles,metric,ncount)
|
||||||
|
nlim=ncycles/nbits
|
||||||
|
|
||||||
|
if(ncount.ge.0) go to 100
|
||||||
|
if(mode.eq.7 .and. nchips.lt.mode4) go to 40
|
||||||
|
|
||||||
|
100 do i=1,9
|
||||||
|
i4=data1(i)
|
||||||
|
if(i4.lt.0) i4=i4+256
|
||||||
|
data4a(i)=i4
|
||||||
|
enddo
|
||||||
|
! call cs_lock('decode24')
|
||||||
|
write(c72,1100) (data4a(i),i=1,9)
|
||||||
|
1100 format(9b8.8)
|
||||||
|
read(c72,1102) data4
|
||||||
|
1102 format(12b6)
|
||||||
|
! call cs_unlock
|
||||||
|
|
||||||
|
decoded=' '
|
||||||
|
submode=' '
|
||||||
|
if(ncount.ge.0) then
|
||||||
|
call unpackmsg(data4,decoded)
|
||||||
|
submode=char(ichar('A')+ich-1)
|
||||||
|
endif
|
||||||
|
if(decoded(1:6).eq.'000AAA') then
|
||||||
|
decoded='***WRONG MODE?***'
|
||||||
|
ncount=-1
|
||||||
|
endif
|
||||||
|
|
||||||
|
qual=0.
|
||||||
|
deepmsg=' '
|
||||||
|
|
||||||
|
! Save symbol spectra for possible decoding of average.
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine decode24
|
||||||
30
lib/flat1.f90
Normal file
30
lib/flat1.f90
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
subroutine flat1(psavg,s2,nh,nsteps,nhmax,nsmax)
|
||||||
|
|
||||||
|
real psavg(nh)
|
||||||
|
real s2(nhmax,nsmax)
|
||||||
|
real x(8192),tmp(33)
|
||||||
|
|
||||||
|
nsmo=33
|
||||||
|
ia=nsmo/2 + 1
|
||||||
|
ib=nh - nsmo/2 - 1
|
||||||
|
do i=ia,ib
|
||||||
|
call pctile(psavg(i-nsmo/2),nsmo,50,x(i))
|
||||||
|
enddo
|
||||||
|
do i=1,ia-1
|
||||||
|
x(i)=x(ia)
|
||||||
|
enddo
|
||||||
|
do i=ib+1,nh
|
||||||
|
x(i)=x(ib)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
do i=1,nh
|
||||||
|
psavg(i)=psavg(i)/x(i)
|
||||||
|
do j=1,nsteps
|
||||||
|
s2(i,j)=s2(i,j)/x(i)
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine flat1
|
||||||
|
|
||||||
|
|
||||||
27
lib/genmet24.f90
Normal file
27
lib/genmet24.f90
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
subroutine genmet24(mode,mettab)
|
||||||
|
|
||||||
|
! Return appropriate metric table for soft-decision convolutional decoder.
|
||||||
|
|
||||||
|
real bias !bias for integer table
|
||||||
|
integer scale !scale factor for integer table
|
||||||
|
! Metric table (RxSymbol,TxSymbol)
|
||||||
|
integer mettab(0:255,0:1)
|
||||||
|
|
||||||
|
bias=0.5
|
||||||
|
scale=10
|
||||||
|
if(mode.eq.7) then !Non-coherent 2FSK
|
||||||
|
open(19,file='dmet_10_-1_3.dat',status='old')
|
||||||
|
else
|
||||||
|
print*,'Unsupported mode:',mode,' in genmet.'
|
||||||
|
stop 'genmet'
|
||||||
|
endif
|
||||||
|
|
||||||
|
do i=0,255
|
||||||
|
read(19,*) junk,d0,d1
|
||||||
|
mettab(i,0)=nint(scale*(d0-bias))
|
||||||
|
mettab(i,1)=nint(scale*(d1-bias))
|
||||||
|
enddo
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine genmet24
|
||||||
|
|
||||||
43
lib/interleave24.f90
Normal file
43
lib/interleave24.f90
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
subroutine interleave24(id,ndir)
|
||||||
|
integer*1 id(0:205),itmp(0:205)
|
||||||
|
integer j0(0:205)
|
||||||
|
logical first
|
||||||
|
data first/.true./
|
||||||
|
save first,j0
|
||||||
|
|
||||||
|
if(first) then
|
||||||
|
k=-1
|
||||||
|
do i=0,255
|
||||||
|
m=i
|
||||||
|
n=iand(m,1)
|
||||||
|
n=2*n + iand(m/2,1)
|
||||||
|
n=2*n + iand(m/4,1)
|
||||||
|
n=2*n + iand(m/8,1)
|
||||||
|
n=2*n + iand(m/16,1)
|
||||||
|
n=2*n + iand(m/32,1)
|
||||||
|
n=2*n + iand(m/64,1)
|
||||||
|
n=2*n + iand(m/128,1)
|
||||||
|
if(n.le.205) then
|
||||||
|
k=k+1
|
||||||
|
j0(k)=n
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
first=.false.
|
||||||
|
endif
|
||||||
|
|
||||||
|
if(ndir.eq.1) then
|
||||||
|
do i=0,205
|
||||||
|
itmp(j0(i))=id(i)
|
||||||
|
enddo
|
||||||
|
else
|
||||||
|
do i=0,205
|
||||||
|
itmp(i)=id(j0(i))
|
||||||
|
enddo
|
||||||
|
endif
|
||||||
|
|
||||||
|
do i=0,205
|
||||||
|
id(i)=itmp(i)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine interleave24
|
||||||
8
lib/peakup.f90
Normal file
8
lib/peakup.f90
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
subroutine peakup(ym,y0,yp,dx)
|
||||||
|
|
||||||
|
b=(yp-ym)/2.0
|
||||||
|
c=(yp+ym-2.0*y0)/2.0
|
||||||
|
dx=-b/(2.0*c)
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine peakup
|
||||||
27
lib/ps24.f90
Normal file
27
lib/ps24.f90
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
subroutine ps24(dat,nfft,s)
|
||||||
|
|
||||||
|
parameter (NMAX=2520+2)
|
||||||
|
parameter (NHMAX=NMAX/2-1)
|
||||||
|
real dat(nfft)
|
||||||
|
real dat2(NMAX)
|
||||||
|
real s(NHMAX)
|
||||||
|
complex c(0:NMAX)
|
||||||
|
equivalence(dat2,c)
|
||||||
|
|
||||||
|
nh=nfft/2
|
||||||
|
do i=1,nh
|
||||||
|
dat2(i)=dat(i)/128.0 !### Why 128 ??
|
||||||
|
enddo
|
||||||
|
do i=nh+1,nfft
|
||||||
|
dat2(i)=0.
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call four2a(c,nfft,1,-1,0)
|
||||||
|
|
||||||
|
fac=1.0/nfft
|
||||||
|
do i=1,nh
|
||||||
|
s(i)=fac*(real(c(i))**2 + aimag(c(i))**2)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine ps24
|
||||||
40
lib/slope.f90
Normal file
40
lib/slope.f90
Normal file
@ -0,0 +1,40 @@
|
|||||||
|
subroutine slope(y,npts,xpk)
|
||||||
|
|
||||||
|
! Remove best-fit slope from data in y(i). When fitting the straight line,
|
||||||
|
! ignore the peak around xpk +/- 2.
|
||||||
|
|
||||||
|
real y(npts)
|
||||||
|
real x(100)
|
||||||
|
|
||||||
|
do i=1,npts
|
||||||
|
x(i)=i
|
||||||
|
enddo
|
||||||
|
|
||||||
|
sumw=0.
|
||||||
|
sumx=0.
|
||||||
|
sumy=0.
|
||||||
|
sumx2=0.
|
||||||
|
sumxy=0.
|
||||||
|
sumy2=0.
|
||||||
|
|
||||||
|
do i=1,npts
|
||||||
|
if(abs(i-xpk).gt.2.0) then
|
||||||
|
sumw=sumw + 1.0
|
||||||
|
sumx=sumx + x(i)
|
||||||
|
sumy=sumy + y(i)
|
||||||
|
sumx2=sumx2 + x(i)**2
|
||||||
|
sumxy=sumxy + x(i)*y(i)
|
||||||
|
sumy2=sumy2 + y(i)**2
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
delta=sumw*sumx2 - sumx**2
|
||||||
|
a=(sumx2*sumy - sumx*sumxy) / delta
|
||||||
|
b=(sumw*sumxy - sumx*sumy) / delta
|
||||||
|
|
||||||
|
do i=1,npts
|
||||||
|
y(i)=y(i)-(a + b*x(i))
|
||||||
|
enddo
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine slope
|
||||||
195
lib/sync24.f90
Normal file
195
lib/sync24.f90
Normal file
@ -0,0 +1,195 @@
|
|||||||
|
subroutine sync24(dat,jz,DFTolerance,NFreeze,MouseDF,mode,mode4, &
|
||||||
|
dtx,dfx,snrx,snrsync,ccfblue,ccfred1,flip,width)
|
||||||
|
|
||||||
|
! Synchronizes JT4 data, finding the best-fit DT and DF.
|
||||||
|
|
||||||
|
parameter (NFFTMAX=2520) !Max length of FFTs
|
||||||
|
parameter (NHMAX=NFFTMAX/2) !Max length of power spectra
|
||||||
|
parameter (NSMAX=525) !Max number of half-symbol steps
|
||||||
|
integer DFTolerance !Range of DF search
|
||||||
|
real dat(jz)
|
||||||
|
real psavg(NHMAX) !Average spectrum of whole record
|
||||||
|
real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols
|
||||||
|
real ccfblue(-5:540) !CCF with pseudorandom sequence
|
||||||
|
real ccfred(-450:450) !Peak of ccfblue, as function of freq
|
||||||
|
real ccfred1(-224:224) !Peak of ccfblue, as function of freq
|
||||||
|
real tmp(1260)
|
||||||
|
save
|
||||||
|
|
||||||
|
! Do FFTs of twice symbol length, stepped by half symbols. Note that
|
||||||
|
! we have already downsampled the data by factor of 2.
|
||||||
|
|
||||||
|
nsym=207
|
||||||
|
nfft=2520
|
||||||
|
nh=nfft/2
|
||||||
|
nq=nfft/4
|
||||||
|
nsteps=jz/nq - 1
|
||||||
|
df=0.5*11025.0/nfft
|
||||||
|
psavg(1:nh)=0.
|
||||||
|
|
||||||
|
! Compute power spectrum for each step and get average
|
||||||
|
do j=1,nsteps
|
||||||
|
k=(j-1)*nq + 1
|
||||||
|
! call limit(dat(k),nfft)
|
||||||
|
call ps24(dat(k),nfft,s2(1,j))
|
||||||
|
! if(mode65.eq.4) call smooth(s2(1,j),nh)
|
||||||
|
psavg(1:nh)=psavg(1:nh) + s2(1:nh,j)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call flat1(psavg,s2,nh,nsteps,NHMAX,NSMAX) !Flatten the spectra
|
||||||
|
! Find the best frequency channel for CCF
|
||||||
|
! famin= 670.46
|
||||||
|
! fbmax=1870.46
|
||||||
|
famin=200.
|
||||||
|
fbmax=2700.
|
||||||
|
|
||||||
|
fa=famin
|
||||||
|
fb=fbmax
|
||||||
|
if(NFreeze.eq.1) then
|
||||||
|
fa=max(famin,1270.46+MouseDF-DFTolerance)
|
||||||
|
fb=min(fbmax,1270.46+MouseDF+DFTolerance)
|
||||||
|
else
|
||||||
|
fa=max(famin,1270.46+MouseDF-600)
|
||||||
|
fb=min(fbmax,1270.46+MouseDF+600)
|
||||||
|
endif
|
||||||
|
ia=fa/df
|
||||||
|
ib=fb/df
|
||||||
|
if(mode.eq.7) then
|
||||||
|
ia=ia - 3*mode4
|
||||||
|
ib=ib - 3*mode4
|
||||||
|
endif
|
||||||
|
i0=nint(1270.46/df)
|
||||||
|
lag1=-5
|
||||||
|
lag2=59
|
||||||
|
syncbest=-1.e30
|
||||||
|
syncbest2=-1.e30
|
||||||
|
|
||||||
|
ccfred=0.
|
||||||
|
do i=ia,ib
|
||||||
|
call xcor24(s2,i,nsteps,nsym,lag1,lag2,mode4,ccfblue,ccf0,lagpk0,flip)
|
||||||
|
j=i-i0
|
||||||
|
if(mode.eq.7) j=j + 3*mode4
|
||||||
|
if(j.ge.-372 .and. j.le.372) ccfred(j)=ccf0
|
||||||
|
|
||||||
|
! Find rms of the CCF, without the main peak
|
||||||
|
call slope(ccfblue(lag1),lag2-lag1+1,lagpk0-lag1+1.0)
|
||||||
|
sync=abs(ccfblue(lagpk0))
|
||||||
|
ppmax=psavg(i)-1.0
|
||||||
|
|
||||||
|
! Find the best sync value
|
||||||
|
if(sync.gt.syncbest2) then
|
||||||
|
ipk2=i
|
||||||
|
lagpk2=lagpk0
|
||||||
|
syncbest2=sync
|
||||||
|
endif
|
||||||
|
|
||||||
|
! We are most interested if snrx will be more than -30 dB.
|
||||||
|
if(ppmax.gt.0.2938) then !Corresponds to snrx.gt.-30.0
|
||||||
|
if(sync.gt.syncbest) then
|
||||||
|
ipk=i
|
||||||
|
lagpk=lagpk0
|
||||||
|
syncbest=sync
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
! If we found nothing with snrx > -30 dB, take the best sync that *was* found.
|
||||||
|
if(syncbest.lt.-10.) then
|
||||||
|
ipk=ipk2
|
||||||
|
lagpk=lagpk2
|
||||||
|
syncbest=syncbest2
|
||||||
|
endif
|
||||||
|
|
||||||
|
! Peak up in frequency to fraction of channel
|
||||||
|
! call peakup(psavg(ipk-1),psavg(ipk),psavg(ipk+1),dx)
|
||||||
|
! if(dx.lt.-1.0) dx=-1.0
|
||||||
|
! if(dx.gt.1.0) dx=1.0
|
||||||
|
dx=0.
|
||||||
|
dfx=(ipk+dx-i0)*df
|
||||||
|
if(mode.eq.7) dfx=dfx + 3*mode4*df
|
||||||
|
|
||||||
|
! Peak up in time, at best whole-channel frequency
|
||||||
|
call xcor24(s2,ipk,nsteps,nsym,lag1,lag2,mode4,ccfblue,ccfmax,lagpk,flip)
|
||||||
|
xlag=lagpk
|
||||||
|
if(lagpk.gt.lag1 .and. lagpk.lt.lag2) then
|
||||||
|
call peakup(ccfblue(lagpk-1),ccfmax,ccfblue(lagpk+1),dx2)
|
||||||
|
xlag=lagpk+dx2
|
||||||
|
endif
|
||||||
|
|
||||||
|
! Find rms of the CCF, without the main peak
|
||||||
|
call slope(ccfblue(lag1),lag2-lag1+1,xlag-lag1+1.0)
|
||||||
|
sq=0.
|
||||||
|
nsq=0
|
||||||
|
do lag=lag1,lag2
|
||||||
|
if(abs(lag-xlag).gt.2.0) then
|
||||||
|
sq=sq+ccfblue(lag)**2
|
||||||
|
nsq=nsq+1
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
rms=sqrt(sq/nsq)
|
||||||
|
snrsync=abs(ccfblue(lagpk))/rms - 1.1 !Empirical
|
||||||
|
|
||||||
|
dt=2.0/11025.0
|
||||||
|
istart=xlag*nq
|
||||||
|
dtx=istart*dt
|
||||||
|
snrx=-99.0
|
||||||
|
! ppmax=psavg(ipk)-1.0
|
||||||
|
if(ipk.ge.1 .and. ipk.le.1260) ppmax=psavg(ipk)-1.0 !###
|
||||||
|
|
||||||
|
if(ppmax.gt.0.0001) then
|
||||||
|
snrx=db(ppmax*df/2500.0) + 7.5 !Empirical
|
||||||
|
if(mode.eq.7) snrx=snrx + 3.0 !Empirical
|
||||||
|
endif
|
||||||
|
if(snrx.lt.-33.0) snrx=-33.0
|
||||||
|
|
||||||
|
! Compute width of sync tone to outermost -3 dB points
|
||||||
|
! call pctile(ccfred(ia-i0),tmp,ib-ia+1,45,base)
|
||||||
|
! i1=max(-224,ia-i0)
|
||||||
|
! i2=min(224,ib-i0)
|
||||||
|
i1=max(-450,ia-i0)
|
||||||
|
i2=min(450,ib-i0)
|
||||||
|
!### call pctile(ccfred(i1),tmp,i2-i1+1,45,base)
|
||||||
|
call pctile(ccfred(i1),i2-i1+1,45,base)
|
||||||
|
|
||||||
|
jpk=ipk-i0
|
||||||
|
if(abs(jpk).gt.450) then
|
||||||
|
print*,'sync24 a:',jpk,ipk,i0
|
||||||
|
snrsync=0.
|
||||||
|
go to 999
|
||||||
|
else
|
||||||
|
stest=base + 0.5*(ccfred(jpk)-base) ! -3 dB
|
||||||
|
endif
|
||||||
|
do i=-10,0
|
||||||
|
if(jpk+i.ge.-371) then
|
||||||
|
if(ccfred(jpk+i).gt.stest) go to 30
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
i=0
|
||||||
|
30 continue
|
||||||
|
if(abs(jpk+i-1).gt.450 .or. abs(jpk+i).gt.450) then
|
||||||
|
print*,'sync24 b:',jpk,i
|
||||||
|
else
|
||||||
|
! x1=i-1+(stest-ccfred(jpk+i-1))/(ccfred(jpk+i)-ccfred(jpk+i-1))
|
||||||
|
x1=i-0.5
|
||||||
|
endif
|
||||||
|
|
||||||
|
do i=10,0,-1
|
||||||
|
if(jpk+i.le.371) then
|
||||||
|
if(ccfred(jpk+i).gt.stest) go to 32
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
i=0
|
||||||
|
! 32 x2=i+1-(stest-ccfred(jpk+i+1))/(ccfred(jpk+i)-ccfred(jpk+i+1))
|
||||||
|
32 x2=i+0.5
|
||||||
|
width=x2-x1
|
||||||
|
if(width.gt.1.2) width=sqrt(width**2 - 1.44)
|
||||||
|
width=df*width
|
||||||
|
width=max(0.0,min(99.0,width))
|
||||||
|
|
||||||
|
do i=-224,224
|
||||||
|
ccfred1(i)=ccfred(i)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
999 return
|
||||||
|
end subroutine sync24
|
||||||
|
|
||||||
200
lib/wsjt24.f90
Normal file
200
lib/wsjt24.f90
Normal file
@ -0,0 +1,200 @@
|
|||||||
|
subroutine wsjt24(dat,npts,cfile6,NClearAve,MinSigdB, &
|
||||||
|
DFTolerance,NFreeze,mode,mode4,Nseg,MouseDF,NAgain, &
|
||||||
|
idf,lumsg,lcum,nspecial,ndf,NSyncOK,ccfblue,ccfred,ndiag)
|
||||||
|
|
||||||
|
! Orchestrates the process of decoding JT4 messages, using data that
|
||||||
|
! have been 2x downsampled.
|
||||||
|
! No message averaging and no deep search, at present.
|
||||||
|
|
||||||
|
parameter (MAXAVE=120)
|
||||||
|
real dat(npts) !Raw data
|
||||||
|
real*4 ccfblue(-5:540) !CCF in time
|
||||||
|
real*4 ccfred(-224:224) !CCF in frequency
|
||||||
|
integer DFTolerance
|
||||||
|
logical first
|
||||||
|
logical lcum
|
||||||
|
character decoded*22,cfile6*6,special*5,cooo*3
|
||||||
|
character*22 avemsg1,avemsg2,deepmsg
|
||||||
|
character*77 line,ave1,ave2
|
||||||
|
character*1 csync,c1
|
||||||
|
character*12 mycall
|
||||||
|
character*12 hiscall
|
||||||
|
character*6 hisgrid
|
||||||
|
character submode*1
|
||||||
|
real*4 ccfbluesum(-5:540),ccfredsum(-224:224)
|
||||||
|
! common/ave/ppsave(64,63,MAXAVE),nflag(MAXAVE),nsave,iseg(MAXAVE) !For msg avg
|
||||||
|
integer nflag(MAXAVE),iseg(MAXAVE)
|
||||||
|
data first/.true./,ns10/0/,ns20/0/
|
||||||
|
save
|
||||||
|
|
||||||
|
if(first) then
|
||||||
|
nsave=0
|
||||||
|
first=.false.
|
||||||
|
ave1=' '
|
||||||
|
ave2=' '
|
||||||
|
ccfblue=0.
|
||||||
|
ccfred=0.
|
||||||
|
if(nspecial.eq.999) go to 900 !Silence compiler warning
|
||||||
|
endif
|
||||||
|
|
||||||
|
naggressive=0
|
||||||
|
if(ndepth.ge.2) naggressive=1
|
||||||
|
nq1=3
|
||||||
|
nq2=6
|
||||||
|
if(naggressive.eq.1) nq1=1
|
||||||
|
|
||||||
|
if(NClearAve.ne.0) then
|
||||||
|
nsave=0 !Clear the averaging accumulators
|
||||||
|
ns10=0
|
||||||
|
ns20=0
|
||||||
|
ave1=' '
|
||||||
|
ave2=' '
|
||||||
|
endif
|
||||||
|
if(MinSigdB.eq.99 .or. MinSigdB.eq.-99) then
|
||||||
|
ns10=0 !For Include/Exclude ?
|
||||||
|
ns20=0
|
||||||
|
endif
|
||||||
|
|
||||||
|
! Attempt to synchronize: look for sync pattern, get DF and DT.
|
||||||
|
call sync24(dat,npts,DFTolerance,NFreeze,MouseDF,mode, &
|
||||||
|
mode4,dtx,dfx,snrx,snrsync,ccfblue,ccfred,flip,width)
|
||||||
|
|
||||||
|
csync=' '
|
||||||
|
decoded=' '
|
||||||
|
deepmsg=' '
|
||||||
|
special=' '
|
||||||
|
cooo=' '
|
||||||
|
ncount=-1 !Flag for RS decode of current record
|
||||||
|
ncount1=-1 !Flag for RS Decode of ave1
|
||||||
|
ncount2=-1 !Flag for RS Decode of ave2
|
||||||
|
NSyncOK=0
|
||||||
|
nqual1=0
|
||||||
|
nqual2=0
|
||||||
|
|
||||||
|
if(nsave.lt.MAXAVE .and. (NAgain.eq.0 .or. NClearAve.eq.1)) nsave=nsave+1
|
||||||
|
if(nsave.le.0) go to 900 !Prevent bounds error
|
||||||
|
|
||||||
|
nflag(nsave)=0 !Clear the "good sync" flag
|
||||||
|
iseg(nsave)=Nseg !Set the RX segment to 1 or 2
|
||||||
|
nsync=nint(snrsync-3.0)
|
||||||
|
nsnr=nint(snrx)
|
||||||
|
if(nsnr.lt.-30 .or. nsync.lt.0) nsync=0
|
||||||
|
nsnrlim=-33
|
||||||
|
if(nsync.lt.MinSigdB .or. nsnr.lt.nsnrlim) go to 200
|
||||||
|
|
||||||
|
! If we get here, we have achieved sync!
|
||||||
|
NSyncOK=1
|
||||||
|
nflag(nsave)=1 !Mark this RX file as good
|
||||||
|
csync='*'
|
||||||
|
if(flip.lt.0.0) then
|
||||||
|
csync='#'
|
||||||
|
cooo='O ?'
|
||||||
|
endif
|
||||||
|
|
||||||
|
call decode24(dat,npts,dtx,dfx,flip,mode,mode4,decoded, &
|
||||||
|
ncount,nlim,deepmsg,qual,submode)
|
||||||
|
|
||||||
|
200 kvqual=0
|
||||||
|
if(ncount.ge.0) kvqual=1
|
||||||
|
nqual=qual
|
||||||
|
if(ndiag.eq.0 .and. nqual.gt.10) nqual=10
|
||||||
|
if(nqual.ge.nq1 .and.kvqual.eq.0) decoded=deepmsg
|
||||||
|
|
||||||
|
ndf=nint(dfx)
|
||||||
|
if(flip.lt.0.0 .and. (kvqual.eq.1 .or. nqual.ge.nq2)) cooo='OOO'
|
||||||
|
if(kvqual.eq.0.and.nqual.ge.nq1.and.nqual.lt.nq2) cooo(2:3)=' ?'
|
||||||
|
if(decoded.eq.' ') cooo=' '
|
||||||
|
do i=1,22
|
||||||
|
c1=decoded(i:i)
|
||||||
|
if(c1.ge.'a' .and. c1.le.'z') decoded(i:i)=char(ichar(c1)-32)
|
||||||
|
enddo
|
||||||
|
jdf=ndf+idf
|
||||||
|
|
||||||
|
! call cs_lock('wsjt24')
|
||||||
|
write(line,1010) cfile6,nsync,nsnr,dtx-1.0,jdf,nint(width), &
|
||||||
|
csync,special,decoded(1:19),cooo,kvqual,nqual,submode,nlim
|
||||||
|
1010 format(a6,i3,i5,f5.1,i5,i3,1x,a1,1x,a5,a19,1x,a3,i4,i4,1x,a1,i8)
|
||||||
|
|
||||||
|
! Blank all end-of-line stuff if no decode
|
||||||
|
if(line(31:40).eq.' ') line=line(:30)
|
||||||
|
|
||||||
|
! if(lcum) write(21,1011) line
|
||||||
|
|
||||||
|
! Write decoded msg unless this is an "Exclude" request:
|
||||||
|
if(MinSigdB.lt.99) write(*,1011) line
|
||||||
|
1011 format(a77)
|
||||||
|
|
||||||
|
! if(nsave.ge.1) call avemsg65(1,mode65,ndepth, &
|
||||||
|
! avemsg1,nused1,nq1,nq2,neme,mycall,hiscall,hisgrid,qual1, &
|
||||||
|
! ns1,ncount1)
|
||||||
|
! if(nsave.ge.1) call avemsg65(2,mode65,ndepth, &
|
||||||
|
! avemsg2,nused2,nq1,nq2,neme,mycall,hiscall,hisgrid,qual2, &
|
||||||
|
! ns2,ncount2)
|
||||||
|
nqual1=qual1
|
||||||
|
nqual2=qual2
|
||||||
|
if(ndiag.eq.0 .and. nqual1.gt.10) nqual1=10
|
||||||
|
if(ndiag.eq.0 .and. nqual2.gt.10) nqual2=10
|
||||||
|
nc1=0
|
||||||
|
nc2=0
|
||||||
|
if(ncount1.ge.0) nc1=1
|
||||||
|
if(ncount2.ge.0) nc2=1
|
||||||
|
|
||||||
|
! Write the average line
|
||||||
|
! if(ns1.ge.1 .and. ns1.ne.ns10) then
|
||||||
|
|
||||||
|
! if(ns1.ge.1) then
|
||||||
|
! if(ns1.lt.10) write(ave1,1021) cfile6,1,nused1,ns1,avemsg1,nc1,nqual1
|
||||||
|
!1021 format(a6,i3,i4,'/',i1,20x,a19,i8,i4)
|
||||||
|
! if(ns1.ge.10 .and. nsave.le.99) write(ave1,1022) cfile6, &
|
||||||
|
! 1,nused1,ns1,avemsg1,nc1,nqual1
|
||||||
|
!1022 format(a6,i3,i4,'/',i2,19x,a19,i8,i4)
|
||||||
|
! if(ns1.ge.100) write(ave1,1023) cfile6,1,nused1,ns1, &
|
||||||
|
! avemsg1,nc1,nqual1
|
||||||
|
!1023 format(a6,i3,i4,'/',i3,18x,a19,i8,i4)
|
||||||
|
! if(lcum .and. (avemsg1.ne.' ')) &
|
||||||
|
! write(21,1011) ave1
|
||||||
|
! ns10=ns1
|
||||||
|
! endif
|
||||||
|
|
||||||
|
! If Monitor segment #2 is available, write that line also
|
||||||
|
! if(ns2.ge.1 .and. ns2.ne.ns20) then !***Why the 2nd part?? ***
|
||||||
|
! if(ns2.ge.1) then
|
||||||
|
! if(ns2.lt.10) write(ave2,1021) cfile6,2,nused2,ns2,avemsg2,nc2,nqual2
|
||||||
|
! if(ns2.ge.10 .and. nsave.le.99) write(ave2,1022) cfile6, &
|
||||||
|
! 2,nused2,ns2,avemsg2,nc2,nqual2
|
||||||
|
! if(ns2.ge.100) write(ave2,1023) cfile6,2,nused2,ns2,avemsg2,nc2,nqual2
|
||||||
|
! if(lcum .and. (avemsg2.ne.' ')) &
|
||||||
|
! write(21,1011) ave2
|
||||||
|
! ns20=ns2
|
||||||
|
! endif
|
||||||
|
|
||||||
|
if(ave1(31:40).eq.' ') ave1=ave1(:30)
|
||||||
|
if(ave2(31:40).eq.' ') ave2=ave2(:30)
|
||||||
|
! write(12,1011) ave1
|
||||||
|
! write(12,1011) ave2
|
||||||
|
! call flush(12)
|
||||||
|
|
||||||
|
if(lumsg.ne.6) end file 11
|
||||||
|
! call cs_unlock
|
||||||
|
|
||||||
|
900 continue
|
||||||
|
|
||||||
|
ccfbluesum=ccfbluesum + ccfblue
|
||||||
|
ccfredsum=ccfredsum + ccfred
|
||||||
|
|
||||||
|
! This was for testing message averaging:
|
||||||
|
|
||||||
|
! rewind 71
|
||||||
|
! rewind 72
|
||||||
|
! do i=-5,540
|
||||||
|
! write(71,3001) 0.2 + i*0.057143,ccfbluesum(i)
|
||||||
|
!3001 format(2f12.3)
|
||||||
|
! enddo
|
||||||
|
! do i=-224,224
|
||||||
|
! write(72,3001) i*2.1875,ccfredsum(i)
|
||||||
|
! enddo
|
||||||
|
! call flush(71)
|
||||||
|
! call flush(72)
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine wsjt24
|
||||||
36
lib/wsjt24d.f90
Normal file
36
lib/wsjt24d.f90
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
program wsjt24d
|
||||||
|
|
||||||
|
real*4 dat(60*11025/2)
|
||||||
|
character*6 cfile6
|
||||||
|
character*12 arg
|
||||||
|
real ccfblue(-5:540) !X-cor function in JT65 mode (blue line)
|
||||||
|
real ccfred(450) !Average spectrum of the whole file
|
||||||
|
|
||||||
|
nargs=iargc()
|
||||||
|
if(nargs.ne.2) then
|
||||||
|
print*,'Usage: wspr24d ifile1 ifile2'
|
||||||
|
go to 999
|
||||||
|
endif
|
||||||
|
call getarg(1,arg)
|
||||||
|
read(arg,*) ifile1
|
||||||
|
call getarg(2,arg)
|
||||||
|
read(arg,*) ifile2
|
||||||
|
|
||||||
|
open(50,file='vk7mo.dat',form='unformatted',status='old')
|
||||||
|
|
||||||
|
do ifile=1,ifile2
|
||||||
|
read(50,end=999) jz,cfile6,NClearAve,MinSigdB,DFTolerance,NFreeze, &
|
||||||
|
mode,mode4,Nseg,MouseDF2,NAgain,idf,lumsg,lcum,nspecial,ndf, &
|
||||||
|
NSyncOK,dat(1:jz)
|
||||||
|
if(ifile.lt.ifile1) cycle
|
||||||
|
|
||||||
|
! write(*,3000) ifile,cfile6,jz,mode,mode4,idf
|
||||||
|
!3000 format(i3,2x,a6,i10,3i5)
|
||||||
|
|
||||||
|
call wsjt24(dat,jz,cfile6,NClearAve,MinSigdB,DFTolerance, &
|
||||||
|
NFreeze,mode,mode4,Nseg,MouseDF2,NAgain,idf,lumsg,lcum,nspecial, &
|
||||||
|
ndf,NSyncOK,ccfblue,ccfred,ndiag)
|
||||||
|
if(ifile.ge.ifile2) exit
|
||||||
|
enddo
|
||||||
|
|
||||||
|
999 end program wsjt24d
|
||||||
94
lib/xcor24.f90
Normal file
94
lib/xcor24.f90
Normal file
@ -0,0 +1,94 @@
|
|||||||
|
subroutine xcor24(s2,ipk,nsteps,nsym,lag1,lag2,mode4,ccf,ccf0,lagpk,flip)
|
||||||
|
|
||||||
|
! Computes ccf of a row of s2 and the pseudo-random array pr2. Returns
|
||||||
|
! peak of the CCF and the lag at which peak occurs. For JT65, the
|
||||||
|
! CCF peak may be either positive or negative, with negative implying
|
||||||
|
! the "OOO" message.
|
||||||
|
|
||||||
|
parameter (NHMAX=1260) !Max length of power spectra
|
||||||
|
parameter (NSMAX=525) !Max number of half-symbol steps
|
||||||
|
real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols
|
||||||
|
real a(NSMAX)
|
||||||
|
real ccf(-5:540)
|
||||||
|
integer npr2(207)
|
||||||
|
real pr2(207)
|
||||||
|
logical first
|
||||||
|
data lagmin/0/ !Silence g77 warning
|
||||||
|
data first/.true./
|
||||||
|
data npr2/ &
|
||||||
|
0,0,0,0,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,1,1,0,0, &
|
||||||
|
0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, &
|
||||||
|
1,0,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,0,1,1,0,0,1, &
|
||||||
|
0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1, &
|
||||||
|
0,1,1,1,0,0,1,0,1,1,0,1,1,1,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1,1, &
|
||||||
|
0,1,1,1,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1, &
|
||||||
|
1,0,0,1,1,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1/
|
||||||
|
save
|
||||||
|
|
||||||
|
if(first) then
|
||||||
|
do i=1,207
|
||||||
|
pr2(i)=2*npr2(i)-1
|
||||||
|
enddo
|
||||||
|
first=.false.
|
||||||
|
endif
|
||||||
|
|
||||||
|
do j=1,nsteps
|
||||||
|
n=2*mode4
|
||||||
|
if(mode4.eq.1) then
|
||||||
|
a(j)=max(s2(ipk+n,j),s2(ipk+3*n,j)) - max(s2(ipk ,j),s2(ipk+2*n,j))
|
||||||
|
else
|
||||||
|
kz=mode4/2
|
||||||
|
ss0=0.
|
||||||
|
ss1=0.
|
||||||
|
ss2=0.
|
||||||
|
ss3=0.
|
||||||
|
wsum=0.
|
||||||
|
do k=-kz+1,kz-1
|
||||||
|
w=float(kz-iabs(k))/mode4
|
||||||
|
wsum=wsum+w
|
||||||
|
if(ipk+k.lt.1 .or. ipk+3*n+k.gt.1260) then
|
||||||
|
print*,'xcor24:',ipk,n,k
|
||||||
|
else
|
||||||
|
ss0=ss0 + w*s2(ipk +k,j)
|
||||||
|
ss1=ss1 + w*s2(ipk+ n+k,j)
|
||||||
|
ss2=ss2 + w*s2(ipk+2*n+k,j)
|
||||||
|
ss3=ss3 + w*s2(ipk+3*n+k,j)
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
a(j)=(max(ss1,ss3) - max(ss0,ss2))/sqrt(wsum)
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
ccfmax=0.
|
||||||
|
ccfmin=0.
|
||||||
|
do lag=lag1,lag2
|
||||||
|
x=0.
|
||||||
|
do i=1,nsym
|
||||||
|
j=2*i-1+lag
|
||||||
|
if(j.ge.1 .and. j.le.nsteps) x=x+a(j)*pr2(i)
|
||||||
|
enddo
|
||||||
|
ccf(lag)=2*x !The 2 is for plotting scale
|
||||||
|
if(ccf(lag).gt.ccfmax) then
|
||||||
|
ccfmax=ccf(lag)
|
||||||
|
lagpk=lag
|
||||||
|
endif
|
||||||
|
|
||||||
|
if(ccf(lag).lt.ccfmin) then
|
||||||
|
ccfmin=ccf(lag)
|
||||||
|
lagmin=lag
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
ccf0=ccfmax
|
||||||
|
flip=1.0
|
||||||
|
if(-ccfmin.gt.ccfmax) then
|
||||||
|
do lag=lag1,lag2
|
||||||
|
ccf(lag)=-ccf(lag)
|
||||||
|
enddo
|
||||||
|
lagpk=lagmin
|
||||||
|
ccf0=-ccfmin
|
||||||
|
flip=-1.0
|
||||||
|
endif
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine xcor24
|
||||||
@ -1,4 +1,4 @@
|
|||||||
//--------------------------------------------------------------- MainWindow
|
//---------------------------------------------------------------- MainWindow
|
||||||
#include "mainwindow.h"
|
#include "mainwindow.h"
|
||||||
#include "ui_mainwindow.h"
|
#include "ui_mainwindow.h"
|
||||||
#include "devsetup.h"
|
#include "devsetup.h"
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
[Setup]
|
[Setup]
|
||||||
AppName=wsjtx
|
AppName=wsjtx
|
||||||
AppVerName=wsjtx Version 0.5 r2788
|
AppVerName=wsjtx Version 0.5 r2791
|
||||||
AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
|
AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
|
||||||
DefaultDirName=c:\wsjtx
|
DefaultDirName=c:\wsjtx
|
||||||
DefaultGroupName=wsjtx
|
DefaultGroupName=wsjtx
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user