w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-05 22:57:47 -04:00
Code Issues Packages Projects Releases Wiki Activity

Clean up some compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-24 09:18:00 -05:00
parent f83db225f5
commit f976d32013
7 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/fst4_decode.f90
View File

@ -602,6 +602,7 @@ contains
case(1800) case(1800)
snr_calfac=320.0 snr_calfac=320.0
case default case default
snr_calfac=430.0
end select end select
arg=snr_calfac*xsig/base - 1.0 arg=snr_calfac*xsig/base - 1.0
if(arg.gt.0.0) then if(arg.gt.0.0) then

3
lib/ft8/sync8.f90
View File

@ -1,5 +1,4 @@
subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,nzhsym,candidate, & subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,candidate,ncand,sbase)
ncand,sbase)
include 'ft8_params.f90' include 'ft8_params.f90'
parameter (MAXPRECAND=1000) parameter (MAXPRECAND=1000)

6
lib/ft8_decode.f90
View File

@ -46,7 +46,6 @@ contains
procedure(ft8_decode_callback) :: callback procedure(ft8_decode_callback) :: callback
parameter (MAXCAND=600,MAX_EARLY=100) parameter (MAXCAND=600,MAX_EARLY=100)
real*8 tsec,tseq real*8 tsec,tseq
real s(NH1,NHSYM)
real sbase(NH1) real sbase(NH1)
real candidate(3,MAXCAND) real candidate(3,MAXCAND)
real dd(15*12000),dd1(15*12000) real dd(15*12000),dd1(15*12000)
@ -68,7 +67,7 @@ contains
real xdt_save(MAX_EARLY) real xdt_save(MAX_EARLY)
data nutc0/-1/ data nutc0/-1/
save s,dd,dd1,nutc0,ndec_early,itone_save,f1_save,xdt_save,lsubtracted,& save dd,dd1,nutc0,ndec_early,itone_save,f1_save,xdt_save,lsubtracted, &
allmessages allmessages
this%callback => callback this%callback => callback
@ -193,8 +192,7 @@ contains
endif endif
call timer('sync8 ',0) call timer('sync8 ',0)
maxc=MAXCAND maxc=MAXCAND
call sync8(dd,ifa,ifb,syncmin,nfqso,maxc,nzhsym,candidate, & call sync8(dd,ifa,ifb,syncmin,nfqso,maxc,candidate,ncand,sbase)
ncand,sbase)
call timer('sync8 ',1) call timer('sync8 ',1)
do icand=1,ncand do icand=1,ncand
sync=candidate(3,icand) sync=candidate(3,icand)

4
lib/qra/q65/q65_encoding_modules.f90
View File

@ -135,10 +135,9 @@ end
subroutine get_q65crc12(mc2,ncrc1,ncrc2) subroutine get_q65crc12(mc2,ncrc1,ncrc2)
! !
character c12*12,c6*6 character c6*6
integer*1 mc(90),mc2(90),tmp(6) integer*1 mc(90),mc2(90),tmp(6)
integer*1 r(13),p(13) integer*1 r(13),p(13)
integer ncrc
! polynomial for 12-bit CRC 0xF01 ! polynomial for 12-bit CRC 0xF01
data p/1,1,0,0,0,0,0,0,0,1,1,1,1/ data p/1,1,0,0,0,0,0,0,0,1,1,1,1/
@ -170,7 +169,6 @@ subroutine get_q65_tones(msg37,codeword,itone)
implicit none implicit none
character*37 msg37 character*37 msg37
character*77 c77 character*77 c77
character*12 c12
character*6 c6 character*6 c6
integer codeword(65) integer codeword(65)
integer sync(22) integer sync(22)

6
q65w/libq65/recvpkt.f90
View File

@ -1,4 +1,4 @@
subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8,buf16) subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8)
! Reformat timf2 data from Linrad and stuff data into r*4 array dd(). ! Reformat timf2 data from Linrad and stuff data into r*4 array dd().
@ -8,15 +8,13 @@ subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8,buf16)
integer*1 userx_no integer*1 userx_no
real*4 d4,buf4(*) !(348) real*4 d4,buf4(*) !(348)
real*8 d8,buf8(*) !(174) real*8 d8,buf8(*) !(174)
complex*16 c16,buf16(*) !(87)
integer*2 jd(4),kd(2),nblock2 integer*2 jd(4),kd(2),nblock2
real*4 xd(4),yd(2) real*4 yd(2)
real*8 fcenter real*8 fcenter
common/datcom/dd(2,5760000),ss(322,NFFT),savg(NFFT),fcenter,nutc, & common/datcom/dd(2,5760000),ss(322,NFFT),savg(NFFT),fcenter,nutc, &
junk(NJUNK) junk(NJUNK)
equivalence (kd,d4) equivalence (kd,d4)
equivalence (jd,d8,yd) equivalence (jd,d8,yd)
equivalence (xd,c16)
if(nblock2.eq.-9999) nblock2=-9998 !Silence a compiler warning if(nblock2.eq.-9999) nblock2=-9998 !Silence a compiler warning
if(nsam.eq.-1) then if(nsam.eq.-1) then

3
q65w/soundin.cpp
View File

@ -209,8 +209,7 @@ void SoundInThread::inputUDP()
// If buffer will not overflow, move data into datcom_ // If buffer will not overflow, move data into datcom_
if ((k+iz) <= 60*96000) { if ((k+iz) <= 60*96000) {
int nsam=-1; int nsam=-1;
recvpkt_(&nsam, &b.iblk, &b.nrx, &k, b.d8, b.d8, b.d8); recvpkt_(&nsam, &b.iblk, &b.nrx, &k, b.d8, b.d8);
// if(nsam==-99) recvpkt_(&nsam, &b.iblk, &b.nrx, &k, b.d8, b.d8, b.d8);
datcom_.fcenter=b.cfreq + m_fAdd; datcom_.fcenter=b.cfreq + m_fAdd;
} }

3
q65w/soundin.h
View File

@ -67,8 +67,7 @@ private:
}; };
extern "C" { extern "C" {
void recvpkt_(int* nsam, quint16* iblk, qint8* nrx, int* k, double s1[], void recvpkt_(int* nsam, quint16* iblk, qint8* nrx, int* k, double s1[], double s2[]);
double s2[], double s3[]);
} }
#endif // SOUNDIN_H #endif // SOUNDIN_H