w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 06:08:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 11:43:22 -04:00
parent a6089bc196
commit 7564301209
5 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/fast_decode.f90
View File

@ -87,11 +87,11 @@ subroutine fast_decode(id2,narg,trperiod,line,mycall_12, &
jz=ib-ia+1 jz=ib-ia+1
line(1:100)(1:1)=char(0) line(1:100)(1:1)=char(0)
if(npick.eq.2) then if(npick.eq.2) then
call iscat(cdat2(ia),jz,3,40,t2,pick,cfile6,minsync,ntol,NFreeze, & call iscat(cdat2(ia),jz,3,40,t2,pick,cfile6,minsync,ntol, &
MouseDF,mousebutton,mode4,nafc,ndebug,psavg,nmax,nlines,line) mousebutton,mode4,nafc,ndebug,psavg,nmax,nlines,line)
else else
call iscat(cdat(ia),jz,3,40,t2,pick,cfile6,minsync,ntol,NFreeze, & call iscat(cdat(ia),jz,3,40,t2,pick,cfile6,minsync,ntol, &
MouseDF,mousebutton,mode4,nafc,ndebug,psavg,maxlines,nlines,line) mousebutton,mode4,nafc,ndebug,psavg,maxlines,nlines,line)
endif endif
900 return 900 return

2
lib/ft8/get_spectrum_baseline.f90
View File

@ -1,7 +1,7 @@
subroutine get_spectrum_baseline(dd,nfa,nfb,sbase) subroutine get_spectrum_baseline(dd,nfa,nfb,sbase)
include 'ft8_params.f90' include 'ft8_params.f90'
parameter(NST=NFFT1/2,NF=NMAX/NST-1) parameter(NST=NFFT1/2,NF=93) !NF=NMAX/NST-1
real s(NH1,NF) real s(NH1,NF)
real savg(NH1) real savg(NH1)
real sbase(NH1) real sbase(NH1)

2
lib/hspec.f90
View File

@ -1,4 +1,4 @@
subroutine hspec(id2,k,nutc0,ntrpdepth,nrxfreq,ntol,ncontest,bmsk144, & subroutine hspec(id2,k,nutc0,ntrpdepth,nrxfreq,ntol,bmsk144, &
btrain,pcoeffs,ingain,mycall,hiscall,bshmsg,bswl,datadir,green,s, & btrain,pcoeffs,ingain,mycall,hiscall,bshmsg,bswl,datadir,green,s, &
jh,pxmax,dbNoGain,line1,mygrid) jh,pxmax,dbNoGain,line1,mygrid)

2
lib/iscat.f90
View File

@ -1,5 +1,5 @@
subroutine iscat(cdat0,npts0,nh,npct,t2,pick,cfile6,minsync,ntol, & subroutine iscat(cdat0,npts0,nh,npct,t2,pick,cfile6,minsync,ntol, &
NFreeze,MouseDF,mousebutton,mode4,nafc,nmore,psavg,maxlines,nlines,line) mousebutton,mode4,nafc,nmore,psavg,maxlines,nlines,line)
! Decode an ISCAT signal ! Decode an ISCAT signal

5
widgets/mainwindow.cpp
View File

@ -92,7 +92,7 @@ extern "C" {
int* nhsym, int* npts8, float *m_pxmax); int* nhsym, int* npts8, float *m_pxmax);
void hspec_(short int d2[], int* k, int* nutc0, int* ntrperiod, int* nrxfreq, int* ntol, void hspec_(short int d2[], int* k, int* nutc0, int* ntrperiod, int* nrxfreq, int* ntol,
int* nContest, bool* bmsk144, bool* btrain, double const pcoeffs[], int* ingain, bool* bmsk144, bool* btrain, double const pcoeffs[], int* ingain,
char mycall[], char hiscall[], bool* bshmsg, bool* bswl, char ddir[], float green[], char mycall[], char hiscall[], bool* bshmsg, bool* bswl, char ddir[], float green[],
float s[], int* jh, float *pxmax, float *rmsNoGain, char line[], char mygrid[], float s[], int* jh, float *pxmax, float *rmsNoGain, char line[], char mygrid[],
fortran_charlen_t, fortran_charlen_t, fortran_charlen_t, fortran_charlen_t, fortran_charlen_t, fortran_charlen_t, fortran_charlen_t, fortran_charlen_t,
@ -1635,8 +1635,7 @@ void MainWindow::fastSink(qint64 frames)
float pxmax = 0; float pxmax = 0;
float rmsNoGain = 0; float rmsNoGain = 0;
int ftol = ui->sbFtol->value (); int ftol = ui->sbFtol->value ();
int nContest = static_cast<int> (m_config.special_op_id()); hspec_(dec_data.d2,&k,&nutc0,&nTRpDepth,&RxFreq,&ftol,&bmsk144,
hspec_(dec_data.d2,&k,&nutc0,&nTRpDepth,&RxFreq,&ftol,&nContest,&bmsk144,
&m_bTrain,m_phaseEqCoefficients.constData(),&m_inGain,&dec_data.params.mycall[0], &m_bTrain,m_phaseEqCoefficients.constData(),&m_inGain,&dec_data.params.mycall[0],
&dec_data.params.hiscall[0],&bshmsg,&bswl, &dec_data.params.hiscall[0],&bshmsg,&bswl,
&ddir[0],fast_green,fast_s,&fast_jh,&pxmax,&rmsNoGain,&line[0],&dec_data.params.mygrid[0], &ddir[0],fast_green,fast_s,&fast_jh,&pxmax,&rmsNoGain,&line[0],&dec_data.params.mygrid[0],