chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merged https://bitbucket.org/hobbes1069/js8call/branch/gcc-10 gcc fortran fixes

Browse Source
This commit is contained in:
Jordan Sherer
2020-04-15 16:11:57 -04:00
parent 905a2c6a71
commit 0e50639160
14 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/ft8/filt8.f90
+2 -2
View File
@@ -9,7 +9,7 @@ subroutine filt8(f0,nslots,width,wave)
equivalence (x,cx)
x=wave
call four2a(x,NFFT,1,-1,0) !r2c
call four2a(cx,NFFT,1,-1,0) !r2c
df=12000.0/NFFT
fa=f0 - 0.5*6.25
fb=f0 + 7.5*6.25 + (nslots-1)*60.0
@@ -35,7 +35,7 @@ subroutine filt8(f0,nslots,width,wave)
!###
if(nslots.ne.99) return
x=wave
call four2a(x,NFFT,1,-1,0) !r2c
call four2a(cx,NFFT,1,-1,0) !r2c
do i=0,NH
s1(i)=real(cx(i))**2 + aimag(cx(i))**2
enddo
lib/ft8/foxfilt.f90
+1 -1
View File
@@ -10,7 +10,7 @@ subroutine foxfilt(nslots,nfreq,width,wave)
x(1:NWAVE)=wave
x(NWAVE+1:)=0.
call four2a(x,NFFT,1,-1,0) !r2c
call four2a(cx,NFFT,1,-1,0) !r2c
df=48000.0/NFFT
fa=nfreq - 0.5*6.25
fb=nfreq + 7.5*6.25 + (nslots-1)*(width+OFFSET)