Silence some compiler warning messages.

This commit is contained in:
Joe Taylor 2020-05-17 14:09:25 -04:00
parent e770e967e6
commit 24bd0f807f
5 changed files with 3 additions and 7 deletions

View File

@ -1304,9 +1304,6 @@ target_link_libraries (jt4code wsjt_fort wsjt_cxx)
add_executable (msk144code lib/msk144code.f90 wsjtx.rc) add_executable (msk144code lib/msk144code.f90 wsjtx.rc)
target_link_libraries (msk144code wsjt_fort wsjt_cxx) 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) add_executable (ft8code lib/ft8/ft8code.f90 wsjtx.rc)
target_link_libraries (ft8code wsjt_fort wsjt_cxx) target_link_libraries (ft8code wsjt_fort wsjt_cxx)

View File

@ -7,12 +7,10 @@ subroutine encode174_91_nocrc(message,codeword)
use crc use crc
integer, parameter:: N=174, K=91, M=N-K integer, parameter:: N=174, K=91, M=N-K
character*91 tmpchar
integer*1 codeword(N) integer*1 codeword(N)
integer*1 gen(M,K) integer*1 gen(M,K)
integer*1 message(K) integer*1 message(K)
integer*1 pchecks(M) integer*1 pchecks(M)
integer*1, target :: i1MsgBytes(12)
include "ldpc_174_91_c_generator.f90" include "ldpc_174_91_c_generator.f90"
logical first logical first
data first/.true./ data first/.true./

View File

@ -167,7 +167,7 @@ subroutine osd174_91(llr,k,apmask,ndeep,message91,cw,nhardmin,dmin)
nt=40 nt=40
ntheta=12 ntheta=12
ntau=15 ntau=15
elseif(ndeep.eq.6) then else !ndeep=6
nord=4 nord=4
npre1=1 npre1=1
npre2=1 npre2=1

View File

@ -61,6 +61,7 @@ program jt49sim
nsym=0 nsym=0
dnsps=0. dnsps=0.
baud=0. baud=0.
sig=0.
if(imode.eq.4) then if(imode.eq.4) then
nsym=206 !Number of channel symbols (JT4) nsym=206 !Number of channel symbols (JT4)

View File

@ -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 unpk_(signed char *message, char *hashtab, char *loctab, char *call_loc_pow, char *callsign)
{ {
int n1,n2,n3,ndbm,ihash,nadd,noprint=0; 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); unpack50(message,&n1,&n2);
if( !unpackcall(n1,callsign) ) return 1; if( !unpackcall(n1,callsign) ) return 1;