w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix problem with gfortan not understanding: 

complex c2(*)
Replace it with
      complex c2(n2)
and pass n2 as a parameter instead.

Fix a missing -fPIC



git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@298 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
J C Dutton 2006-09-14 20:50:56 +00:00
parent c348498b2e
commit 016ea0fc32
4 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fil651.f
View File

@ -16,7 +16,7 @@ C fout = 2706.25 Hz
parameter (NDOWN=2) !Downsample ratio
real d(n1)
complex c(*)
complex c(n2)
complex ck(-NH:NH)
data ck/

2
fil652.f
View File

@ -14,7 +14,7 @@ C fout = 1378.125 Hz
parameter (NH=NTAPS/2)
parameter (NDOWN=2) !Downsample ratio
complex c1(n1)
complex c2(*)
complex c2(n2)
C Filter coefficients:
real a(-NH:NH)

2
fil653.f
View File

@ -15,7 +15,7 @@ C BW = 200 Hz
parameter (NH=NTAPS/2)
parameter (NDOWN=4) !Downsample ratio
complex c1(n1)
complex c2(*)
complex c2(n2)
C Filter coefficients:
real a(-NH:NH)

4
ftpeak65.f
View File

@ -22,6 +22,7 @@ C compute ftrack.
twopi=8*datan(1.d0)
fsyncset=-300.d0
dt=2.d0/11025.d0 !Input dt (WSJT has downsampled by 2)
n2 = NMAX/2
call fil651(dat,jz,c2,n2) !Filter and complex mix; rate 1/2
dt=2.d0*dt !We're now downsampled by 4
@ -32,6 +33,7 @@ C compute ftrack.
c2(i)=c2(i) * cmplx(cos(pha),-sin(pha))
enddo
n3 = NMAX/4
call fil652(c2,n2,c3,n3) !Low-pass at +/- 500 Hz; rate 1/2
dt=2.d0*dt !Down by 8
@ -42,9 +44,11 @@ C compute ftrack.
c3(i)=c3(i) * cmplx(cos(pha),-sin(pha))
enddo
n4 = NMAX/16
call fil653(c3,n3,c4,n4) !Low-pass at +/- 100 Hz; rate 1/4
dt=4.d0*dt !Down by 32
n5 = NMAX/64
call fil653(c4,n4,c5,n5) !Low-pass at +/- 25 Hz; rate 1/4
dt=4.d0*dt !Down by 128