mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-23 19:25:37 -05:00
Add fil3.f90.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2654 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
c4b81c55cf
commit
d397ed7bdf
@ -20,7 +20,7 @@ CFLAGS = -I. -fbounds-check -mno-stack-arg-probe
|
||||
%.o: %.F90
|
||||
${FC} ${FFLAGS} -c $<
|
||||
|
||||
all: libjt9.a jt9sim.exe jt9.exe
|
||||
all: libjt9.a jt9sim.exe jt9.exe tt9.exe
|
||||
|
||||
OBJS1 = trimlist.o pctile.o sort.o indexx.o ssort.o graycode.o \
|
||||
unpackmsg.o igray.o set.o unpackcall.o unpackgrid.o \
|
||||
@ -30,7 +30,7 @@ OBJS1 = trimlist.o pctile.o sort.o indexx.o ssort.o graycode.o \
|
||||
symspec.o timf2.o analytic.o db.o genjt9.o ptt.o \
|
||||
packbits.o unpackbits.o encode232.o interleave9.o \
|
||||
entail.o fano232.o gran.o spec9.o sync9.o decode9.o \
|
||||
peakdt9.o peakdf9.o
|
||||
peakdt9.o peakdf9.o fil3.o
|
||||
|
||||
libjt9.a: $(OBJS1)
|
||||
ar cr libjt9.a $(OBJS1)
|
||||
@ -52,6 +52,10 @@ OBJS5 = t2.o
|
||||
t2.exe: $(OBJS5) libjt9.a
|
||||
$(FC) -o t2.exe $(OBJS5) libjt9.a ../libfftw3f_win.a
|
||||
|
||||
OBJS6 = tt9.o
|
||||
tt9.exe: $(OBJS6) libjt9.a
|
||||
$(FC) -o tt9.exe $(OBJS6) libjt9.a ../libfftw3f_win.a
|
||||
|
||||
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/ActiveQt' \
|
||||
|
159
lib/fil3.f90
Normal file
159
lib/fil3.f90
Normal file
@ -0,0 +1,159 @@
|
||||
subroutine fil3(x1,n1,c2,n2)
|
||||
|
||||
! FIR real-to-complex filter designed using ScopeFIR
|
||||
!
|
||||
!-----------------------------------------------
|
||||
! fsample (Hz) 12000 Input sample rate
|
||||
! Ntaps 113 Number of filter taps
|
||||
! fc (Hz) 500 Cutoff frequency
|
||||
! fstop (Hz) 750 Lower limit of stopband
|
||||
! Ripple (dB) 0.2 Ripple in passband
|
||||
! Stop Atten (dB) 50 Stopband attenuation
|
||||
! fmix (HZ) 1500 Mixing frequency
|
||||
! fout (Hz) 1500 Output sample rate
|
||||
|
||||
! Resulting passband is 1000 - 2000 Hz
|
||||
|
||||
! Suggest calling with n1 = 8*n2 + 105, where n2 is the desired number
|
||||
! of 1500 Hz output samples.
|
||||
|
||||
parameter (NTAPS=113)
|
||||
parameter (NH=NTAPS/2)
|
||||
parameter (NDOWN=8) !Downsample ratio = 1/8
|
||||
real x1(n1)
|
||||
complex z
|
||||
complex c2(n1/NDOWN)
|
||||
|
||||
! Filter coefficients:
|
||||
complex ca(-NH:NH)
|
||||
data ca/ &
|
||||
(-0.001818142144, 0.000000000000), &
|
||||
(-0.000664066641,-0.000664066640), &
|
||||
(-0.000000000000,-0.001044063550), &
|
||||
( 0.000737290018,-0.000737290010), &
|
||||
( 0.000908957610,-0.000000000000), &
|
||||
( 0.000444156615, 0.000444156610), &
|
||||
(-0.000000000000, 0.000202701460), &
|
||||
( 0.000244876473,-0.000244876470), &
|
||||
( 0.000978154552, 0.000000000000), &
|
||||
( 0.001155650277, 0.001155650270), &
|
||||
( 0.000000000000, 0.002243121590), &
|
||||
(-0.001927618608, 0.001927618600), &
|
||||
(-0.003006201675, 0.000000000000), &
|
||||
(-0.002134087852,-0.002134087850), &
|
||||
( 0.000000000000,-0.002717699570), &
|
||||
( 0.001478946738,-0.001478946730), &
|
||||
( 0.001162489032, 0.000000000000), &
|
||||
(-0.000005589545,-0.000005589540), &
|
||||
(-0.000000000000,-0.001321554800), &
|
||||
( 0.001873767954,-0.001873767950), &
|
||||
( 0.003843608784,-0.000000000000), &
|
||||
( 0.003356874940, 0.003356874940), &
|
||||
(-0.000000000000, 0.005218967040), &
|
||||
(-0.003640348011, 0.003640348010), &
|
||||
(-0.004470167307, 0.000000000000), &
|
||||
(-0.002247131477,-0.002247131470), &
|
||||
(-0.000000000000,-0.001335998900), &
|
||||
(-0.000647656208, 0.000647656200), &
|
||||
(-0.003386100636, 0.000000000000), &
|
||||
(-0.004114456189,-0.004114456180), &
|
||||
( 0.000000000000,-0.007939147960), &
|
||||
( 0.006692816134,-0.006692816130), &
|
||||
( 0.010145641899, 0.000000000000), &
|
||||
( 0.006920770724, 0.006920770720), &
|
||||
( 0.000000000000, 0.008285915750), &
|
||||
(-0.003992321524, 0.003992321520), &
|
||||
(-0.001995842303, 0.000000000000), &
|
||||
( 0.001704388774, 0.001704388770), &
|
||||
(-0.000000000000, 0.007202515550), &
|
||||
(-0.008426458377, 0.008426458370), &
|
||||
(-0.016028350845, 0.000000000000), &
|
||||
(-0.013430355885,-0.013430355880), &
|
||||
(-0.000000000000,-0.020297455950), &
|
||||
( 0.013791263729,-0.013791263720), &
|
||||
( 0.016298136197,-0.000000000000), &
|
||||
( 0.007443596155, 0.007443596150), &
|
||||
(-0.000000000000, 0.002223837360), &
|
||||
( 0.005924356866,-0.005924356860), &
|
||||
( 0.020854478160, 0.000000000000), &
|
||||
( 0.024471928130, 0.024471928130), &
|
||||
( 0.000000000000, 0.048909701460), &
|
||||
(-0.044508219241, 0.044508219240), &
|
||||
(-0.075874892030, 0.000000000000), &
|
||||
(-0.061450241075,-0.061450241070), &
|
||||
( 0.000000000000,-0.095332017640), &
|
||||
( 0.071148679982,-0.071148679980), &
|
||||
( 0.102420526192, 0.000000000000), &
|
||||
( 0.071148679982, 0.071148679980), &
|
||||
( 0.000000000000, 0.095332017640), &
|
||||
(-0.061450241075, 0.061450241070), &
|
||||
(-0.075874892030, 0.000000000000), &
|
||||
(-0.044508219241,-0.044508219240), &
|
||||
( 0.000000000000,-0.048909701460), &
|
||||
( 0.024471928130,-0.024471928130), &
|
||||
( 0.020854478160, 0.000000000000), &
|
||||
( 0.005924356866, 0.005924356860), &
|
||||
(-0.000000000000,-0.002223837360), &
|
||||
( 0.007443596155,-0.007443596150), &
|
||||
( 0.016298136197,-0.000000000000), &
|
||||
( 0.013791263729, 0.013791263720), &
|
||||
(-0.000000000000, 0.020297455950), &
|
||||
(-0.013430355885, 0.013430355880), &
|
||||
(-0.016028350845, 0.000000000000), &
|
||||
(-0.008426458377,-0.008426458370), &
|
||||
(-0.000000000000,-0.007202515550), &
|
||||
( 0.001704388774,-0.001704388770), &
|
||||
(-0.001995842303, 0.000000000000), &
|
||||
(-0.003992321524,-0.003992321520), &
|
||||
( 0.000000000000,-0.008285915750), &
|
||||
( 0.006920770724,-0.006920770720), &
|
||||
( 0.010145641899, 0.000000000000), &
|
||||
( 0.006692816134, 0.006692816130), &
|
||||
( 0.000000000000, 0.007939147960), &
|
||||
(-0.004114456189, 0.004114456180), &
|
||||
(-0.003386100636, 0.000000000000), &
|
||||
(-0.000647656208,-0.000647656200), &
|
||||
(-0.000000000000, 0.001335998900), &
|
||||
(-0.002247131477, 0.002247131470), &
|
||||
(-0.004470167307, 0.000000000000), &
|
||||
(-0.003640348011,-0.003640348010), &
|
||||
(-0.000000000000,-0.005218967040), &
|
||||
( 0.003356874940,-0.003356874940), &
|
||||
( 0.003843608784,-0.000000000000), &
|
||||
( 0.001873767954, 0.001873767950), &
|
||||
(-0.000000000000, 0.001321554800), &
|
||||
(-0.000005589545, 0.000005589540), &
|
||||
( 0.001162489032, 0.000000000000), &
|
||||
( 0.001478946738, 0.001478946730), &
|
||||
( 0.000000000000, 0.002717699570), &
|
||||
(-0.002134087852, 0.002134087850), &
|
||||
(-0.003006201675, 0.000000000000), &
|
||||
(-0.001927618608,-0.001927618600), &
|
||||
( 0.000000000000,-0.002243121590), &
|
||||
( 0.001155650277,-0.001155650270), &
|
||||
( 0.000978154552, 0.000000000000), &
|
||||
( 0.000244876473, 0.000244876470), &
|
||||
(-0.000000000000,-0.000202701460), &
|
||||
( 0.000444156615,-0.000444156610), &
|
||||
( 0.000908957610,-0.000000000000), &
|
||||
( 0.000737290018, 0.000737290010), &
|
||||
(-0.000000000000, 0.001044063550), &
|
||||
(-0.000664066641, 0.000664066640), &
|
||||
(-0.001818142144, 0.000000000000)/
|
||||
save ca
|
||||
|
||||
n2=(n1-NTAPS+NDOWN)/NDOWN
|
||||
k0=NH-NDOWN+1
|
||||
|
||||
! Loop over all output samples
|
||||
do i=1,n2
|
||||
z=0.
|
||||
k=k0 + NDOWN*i
|
||||
do j=-NH,NH
|
||||
z=z + x1(j+k)*ca(j)
|
||||
enddo
|
||||
c2(i)=z
|
||||
enddo
|
||||
|
||||
return
|
||||
end subroutine fil3
|
@ -1,4 +1,4 @@
|
||||
//---------------------------------------------------------------- MainWindow
|
||||
//----------------------------------------------------------------- MainWindow
|
||||
#include "mainwindow.h"
|
||||
#include "ui_mainwindow.h"
|
||||
#include "devsetup.h"
|
||||
|
Loading…
Reference in New Issue
Block a user