mirror of https://github.com/saitohirga/WSJT-X.git
More cleanup of compiler warnings.
This commit is contained in:
parent
19e73414df
commit
c3b724a377
|
@ -3,12 +3,12 @@ subroutine extract(s3,nadd,ncount,nhist,decoded,ltext)
|
||||||
use packjt
|
use packjt
|
||||||
real s3(64,63)
|
real s3(64,63)
|
||||||
character decoded*22
|
character decoded*22
|
||||||
integer era(51),dat4(12),indx(64)
|
integer dat4(12)
|
||||||
integer mrsym(63),mr2sym(63),mrprob(63),mr2prob(63)
|
integer mrsym(63),mr2sym(63),mrprob(63),mr2prob(63)
|
||||||
logical first,ltext
|
logical first,ltext
|
||||||
integer correct(63),itmp(63)
|
integer correct(63),itmp(63)
|
||||||
integer param(0:8)
|
integer param(0:8)
|
||||||
integer h0(0:11),d0(0:11),ne(0:11)
|
integer h0(0:11),d0(0:11)
|
||||||
real r0(0:11)
|
real r0(0:11)
|
||||||
common/test001/s3a(64,63),mrs(63),mrs2(63) !### TEST ONLY ###
|
common/test001/s3a(64,63),mrs(63),mrs2(63) !### TEST ONLY ###
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
subroutine gen_q65_wave(msg,ichk,ntxfreq,mode65,itype,msgsent,iwave,nwave)
|
subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
|
||||||
|
|
||||||
! Encodes a QRA64 message to yield complex iwave() at fsample = 11025 Hz
|
! Encodes a QRA64 message to yield complex iwave() at fsample = 11025 Hz
|
||||||
|
|
||||||
|
@ -11,7 +11,6 @@ subroutine gen_q65_wave(msg,ichk,ntxfreq,mode65,itype,msgsent,iwave,nwave)
|
||||||
character*16 cjunk
|
character*16 cjunk
|
||||||
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
|
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
|
||||||
integer itone(85)
|
integer itone(85)
|
||||||
integer dgen(13)
|
|
||||||
integer sent(63)
|
integer sent(63)
|
||||||
integer*2 iwave(NMAX)
|
integer*2 iwave(NMAX)
|
||||||
integer icos7(0:6)
|
integer icos7(0:6)
|
||||||
|
|
|
@ -226,7 +226,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
||||||
call timer('decode1a',1)
|
call timer('decode1a',1)
|
||||||
if(nqd.eq.2) then
|
if(nqd.eq.2) then
|
||||||
call timer('q65 ',0)
|
call timer('q65 ',0)
|
||||||
call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, &
|
call q65b(nutc,fcenter,nfcal,nfsample,ikhz, &
|
||||||
mousedf,ntol,xpol,mycall,hiscall,hisgrid,mode_q65)
|
mousedf,ntol,xpol,mycall,hiscall,hisgrid,mode_q65)
|
||||||
call timer('q65 ',1)
|
call timer('q65 ',1)
|
||||||
cycle
|
cycle
|
||||||
|
|
|
@ -1503,9 +1503,7 @@ void MainWindow::guiUpdate()
|
||||||
ba2msg(ba,message);
|
ba2msg(ba,message);
|
||||||
int len1=22;
|
int len1=22;
|
||||||
int mode65=m_mode65;
|
int mode65=m_mode65;
|
||||||
int ichk=0;
|
|
||||||
int ntxFreq=1000;
|
int ntxFreq=1000;
|
||||||
int itype=0;
|
|
||||||
double samfac=1.0;
|
double samfac=1.0;
|
||||||
|
|
||||||
if(m_modeTx=="JT65") {
|
if(m_modeTx=="JT65") {
|
||||||
|
@ -1513,7 +1511,7 @@ void MainWindow::guiUpdate()
|
||||||
&nwave,len1,len1);
|
&nwave,len1,len1);
|
||||||
} else {
|
} else {
|
||||||
if(m_modeQ65==5) ntxFreq=700;
|
if(m_modeQ65==5) ntxFreq=700;
|
||||||
gen_q65_wave_(message,&ichk,&ntxFreq,&m_modeQ65,&itype,msgsent,iwave,
|
gen_q65_wave_(message,&ntxFreq,&m_modeQ65,msgsent,iwave,
|
||||||
&nwave,len1,len1);
|
&nwave,len1,len1);
|
||||||
}
|
}
|
||||||
msgsent[22]=0;
|
msgsent[22]=0;
|
||||||
|
|
|
@ -299,8 +299,8 @@ extern "C" {
|
||||||
int* nsendingsh, char* msgsent, short iwave[], int* nwave,
|
int* nsendingsh, char* msgsent, short iwave[], int* nwave,
|
||||||
int len1, int len2);
|
int len1, int len2);
|
||||||
|
|
||||||
void gen_q65_wave_(char* msg, int* ichk, int* ntxFreq, int* mode64,
|
void gen_q65_wave_(char* msg, int* ntxFreq, int* mode64,
|
||||||
int* itype, char* msgsent, short iwave[], int* nwave,
|
char* msgsent, short iwave[], int* nwave,
|
||||||
int len1, int len2);
|
int len1, int len2);
|
||||||
|
|
||||||
int ptt_(int* nport, int* itx, int* iptt);
|
int ptt_(int* nport, int* itx, int* iptt);
|
||||||
|
|
Loading…
Reference in New Issue