Silence compiler warnings.

This commit is contained in:
Joe Taylor 2020-03-19 13:45:13 -04:00
parent b3f539670b
commit 64a9aa5d39
4 changed files with 17 additions and 13 deletions

View File

@ -47,6 +47,8 @@ subroutine get_ft4_bitmetrics(cd,bitmetrics,badsync)
is3=0 is3=0
is4=0 is4=0
badsync=.false. badsync=.false.
ibmax=0
do k=1,4 do k=1,4
ip=maxloc(s4(:,k)) ip=maxloc(s4(:,k))
if(icos4a(k-1).eq.(ip(1)-1)) is1=is1+1 if(icos4a(k-1).eq.(ip(1)-1)) is1=is1+1

View File

@ -56,6 +56,9 @@ program jt49sim
h=default_header(12000,npts) h=default_header(12000,npts)
dfsig=2000.0/nsigs !Freq spacing between sigs in file (Hz) dfsig=2000.0/nsigs !Freq spacing between sigs in file (Hz)
ichk=0 ichk=0
nsym=0
dnsps=0.
baud=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)
@ -102,8 +105,7 @@ program jt49sim
phi=0.d0 phi=0.d0
dphi=0.d0 dphi=0.d0
k=(xdt+1.0)*12000 !Start audio at t = xdt + 1.0 s k=(xdt+1.0)*12000 !Start audio at t = xdt + 1.0 s
isym0=-99 isym0=-99
do i=1,npts !Add this signal into cdat() do i=1,npts !Add this signal into cdat()
isym=i/dnsps + 1 isym=i/dnsps + 1
if(isym.gt.nsym) exit if(isym.gt.nsym) exit

View File

@ -56,7 +56,7 @@ subroutine wqdecode(data0,message,ntype)
if(ntype.ge.0 .and. ntype.le.62) then if(ntype.ge.0 .and. ntype.le.62) then
nu=mod(ntype,10) nu=mod(ntype,10)
if(nu.eq.0 .or. nu.eq.3 .or. nu.eq.7) then if(nu.eq.0 .or. nu.eq.3 .or. nu.eq.7) then
write(cdbm,'(i3)'),ntype write(cdbm,'(i3)') ntype
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
message=callsign(1:i1)//grid4//' '//cdbm message=callsign(1:i1)//grid4//' '//cdbm
@ -69,7 +69,7 @@ subroutine wqdecode(data0,message,ntype)
ng=n2/128 + 32768*(nadd-1) ng=n2/128 + 32768*(nadd-1)
call unpackpfx(ng,callsign) call unpackpfx(ng,callsign)
ndbm=ntype-nadd ndbm=ntype-nadd
write(cdbm,'(i3)'),ndbm write(cdbm,'(i3)') ndbm
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
i2=index(callsign,' ') i2=index(callsign,' ')
@ -82,7 +82,7 @@ subroutine wqdecode(data0,message,ntype)
grid6=callsign(6:6)//callsign(1:5) grid6=callsign(6:6)//callsign(1:5)
ih=(n2-ntype-64)/128 ih=(n2-ntype-64)/128
callsign=dcall(ih) callsign=dcall(ih)
write(cdbm,'(i3)'),ndbm write(cdbm,'(i3)') ndbm
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
i2=index(callsign,' ') i2=index(callsign,' ')

View File

@ -131,7 +131,7 @@ subroutine fano232(symbol,nbits,mettab,ndelta,maxcycles,dat,ncycles,metric,ierr)
! written by Phil Karn, KA9Q. ! written by Phil Karn, KA9Q.
parameter (MAXBITS=103) parameter (MAXBITS=103)
parameter (MAXDAT=(MAXBITS+7)/8) parameter (MAXDAT=13) !(MAXBITS+7)/8
integer*1 symbol(0:2*MAXBITS-1) integer*1 symbol(0:2*MAXBITS-1)
integer*1 dat(MAXDAT) !Decoded user data, 8 bits per byte integer*1 dat(MAXDAT) !Decoded user data, 8 bits per byte
integer mettab(0:255,0:1) !Metric table integer mettab(0:255,0:1) !Metric table
@ -509,7 +509,7 @@ subroutine packcall(callsign,ncall,text)
text=.true. text=.true.
return return
endif endif
tmp=' '//callsign tmp=' '//callsign(1:5)
else else
text=.true. text=.true.
return return
@ -631,8 +631,8 @@ subroutine packpfx(call1,n1,ng,nadd)
else else
! Prefix of 1 to 3 characters ! Prefix of 1 to 3 characters
pfx=call1(:i1-1) pfx=call1(:i1-1)
if(pfx(3:3).eq.' ') pfx=' '//pfx if(pfx(3:3).eq.' ') pfx=' '//pfx(1:2)
if(pfx(3:3).eq.' ') pfx=' '//pfx if(pfx(3:3).eq.' ') pfx=' '//pfx(1:2)
call0=call1(i1+1:) call0=call1(i1+1:)
call packcall(call0,n1,text) call packcall(call0,n1,text)
@ -778,7 +778,7 @@ subroutine unpackpfx(ng,call1)
endif endif
n=n/37 n=n/37
enddo enddo
call1=pfx//'/'//call1 call1=pfx//'/'//call1(1:8)
if(call1(1:1).eq.' ') call1=call1(2:) if(call1(1:1).eq.' ') call1=call1(2:)
if(call1(1:1).eq.' ') call1=call1(2:) if(call1(1:1).eq.' ') call1=call1(2:)
else else
@ -831,7 +831,7 @@ subroutine wqdecode(data0,message,ntype)
if(ntype.ge.0 .and. ntype.le.62) then if(ntype.ge.0 .and. ntype.le.62) then
nu=mod(ntype,10) nu=mod(ntype,10)
if(nu.eq.0 .or. nu.eq.3 .or. nu.eq.7) then if(nu.eq.0 .or. nu.eq.3 .or. nu.eq.7) then
write(cdbm,'(i3)'),ntype write(cdbm,'(i3)') ntype
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
message=callsign(1:i1)//grid4//' '//cdbm message=callsign(1:i1)//grid4//' '//cdbm
@ -844,7 +844,7 @@ subroutine wqdecode(data0,message,ntype)
ng=n2/128 + 32768*(nadd-1) ng=n2/128 + 32768*(nadd-1)
call unpackpfx(ng,callsign) call unpackpfx(ng,callsign)
ndbm=ntype-nadd ndbm=ntype-nadd
write(cdbm,'(i3)'),ndbm write(cdbm,'(i3)') ndbm
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
i2=index(callsign,' ') i2=index(callsign,' ')
@ -857,7 +857,7 @@ subroutine wqdecode(data0,message,ntype)
grid6=callsign(6:6)//callsign(1:5) grid6=callsign(6:6)//callsign(1:5)
ih=(n2-ntype-64)/128 ih=(n2-ntype-64)/128
callsign=dcall(ih) callsign=dcall(ih)
write(cdbm,'(i3)'),ndbm write(cdbm,'(i3)') ndbm
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
if(cdbm(1:1).eq.' ') cdbm=cdbm(2:) if(cdbm(1:1).eq.' ') cdbm=cdbm(2:)
i2=index(callsign,' ') i2=index(callsign,' ')