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

More cleanup of compiler warnings.

This commit is contained in:
Joe Taylor 2021-04-22 14:04:08 -04:00
parent 19e73414df
commit c3b724a377
5 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/extract.f90
View File

@ -3,12 +3,12 @@ subroutine extract(s3,nadd,ncount,nhist,decoded,ltext)
use packjt
real s3(64,63)
character decoded*22
integer era(51),dat4(12),indx(64)
integer dat4(12)
integer mrsym(63),mr2sym(63),mrprob(63),mr2prob(63)
logical first,ltext
integer correct(63),itmp(63)
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)
common/test001/s3a(64,63),mrs(63),mrs2(63) !### TEST ONLY ###

3
map65/libm65/gen_q65_wave.f90
View File

@ -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
@ -11,7 +11,6 @@ subroutine gen_q65_wave(msg,ichk,ntxfreq,mode65,itype,msgsent,iwave,nwave)
character*16 cjunk
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
integer itone(85)
integer dgen(13)
integer sent(63)
integer*2 iwave(NMAX)
integer icos7(0:6)

2
map65/libm65/map65a.f90
View File

@ -226,7 +226,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
call timer('decode1a',1)
if(nqd.eq.2) then
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)
call timer('q65 ',1)
cycle

4
map65/mainwindow.cpp
View File

@ -1503,9 +1503,7 @@ void MainWindow::guiUpdate()
ba2msg(ba,message);
int len1=22;
int mode65=m_mode65;
int ichk=0;
int ntxFreq=1000;
int itype=0;
double samfac=1.0;
if(m_modeTx=="JT65") {
@ -1513,7 +1511,7 @@ void MainWindow::guiUpdate()
&nwave,len1,len1);
} else {
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);
}
msgsent[22]=0;

4
map65/mainwindow.h
View File

@ -299,8 +299,8 @@ extern "C" {
int* nsendingsh, char* msgsent, short iwave[], int* nwave,
int len1, int len2);
void gen_q65_wave_(char* msg, int* ichk, int* ntxFreq, int* mode64,
int* itype, char* msgsent, short iwave[], int* nwave,
void gen_q65_wave_(char* msg, int* ntxFreq, int* mode64,
char* msgsent, short iwave[], int* nwave,
int len1, int len2);
int ptt_(int* nport, int* itx, int* iptt);