mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-25 05:38:46 -05:00
Silence some compiler warning messages.
This commit is contained in:
parent
e770e967e6
commit
24bd0f807f
@ -1304,9 +1304,6 @@ target_link_libraries (jt4code wsjt_fort wsjt_cxx)
|
||||
add_executable (msk144code lib/msk144code.f90 wsjtx.rc)
|
||||
target_link_libraries (msk144code wsjt_fort wsjt_cxx)
|
||||
|
||||
add_executable (jt65 lib/jt65.f90 lib/jt65_test.f90 wsjtx.rc)
|
||||
target_link_libraries (jt65 wsjt_fort wsjt_cxx)
|
||||
|
||||
add_executable (ft8code lib/ft8/ft8code.f90 wsjtx.rc)
|
||||
target_link_libraries (ft8code wsjt_fort wsjt_cxx)
|
||||
|
||||
|
@ -7,12 +7,10 @@ subroutine encode174_91_nocrc(message,codeword)
|
||||
use crc
|
||||
|
||||
integer, parameter:: N=174, K=91, M=N-K
|
||||
character*91 tmpchar
|
||||
integer*1 codeword(N)
|
||||
integer*1 gen(M,K)
|
||||
integer*1 message(K)
|
||||
integer*1 pchecks(M)
|
||||
integer*1, target :: i1MsgBytes(12)
|
||||
include "ldpc_174_91_c_generator.f90"
|
||||
logical first
|
||||
data first/.true./
|
||||
|
@ -167,7 +167,7 @@ subroutine osd174_91(llr,k,apmask,ndeep,message91,cw,nhardmin,dmin)
|
||||
nt=40
|
||||
ntheta=12
|
||||
ntau=15
|
||||
elseif(ndeep.eq.6) then
|
||||
else !ndeep=6
|
||||
nord=4
|
||||
npre1=1
|
||||
npre2=1
|
||||
|
@ -61,6 +61,7 @@ program jt49sim
|
||||
nsym=0
|
||||
dnsps=0.
|
||||
baud=0.
|
||||
sig=0.
|
||||
|
||||
if(imode.eq.4) then
|
||||
nsym=206 !Number of channel symbols (JT4)
|
||||
|
@ -243,7 +243,7 @@ int floatcomp(const void* elem1, const void* elem2)
|
||||
int unpk_(signed char *message, char *hashtab, char *loctab, char *call_loc_pow, char *callsign)
|
||||
{
|
||||
int n1,n2,n3,ndbm,ihash,nadd,noprint=0;
|
||||
char grid[5],grid6[7],cdbm[3];
|
||||
char grid[5],grid6[7],cdbm[4];
|
||||
|
||||
unpack50(message,&n1,&n2);
|
||||
if( !unpackcall(n1,callsign) ) return 1;
|
||||
|
Loading…
Reference in New Issue
Block a user