w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Clean up some further compiler warnings.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6754 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-06-10 14:18:10 +00:00
parent 66c390de79
commit ad54035a53
10 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/extract.f90
View File

@ -30,6 +30,7 @@ subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, &
common/chansyms65/correct common/chansyms65/correct
save save
if(mode65.eq.-99) stop !Silence compiler warning
mycall=mycall_12(1:6) mycall=mycall_12(1:6)
hiscall=hiscall_12(1:6) hiscall=hiscall_12(1:6)
qual=0. qual=0.
@ -94,8 +95,7 @@ subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, &
if(nft.eq.0 .and. iand(ndepth,32).eq.32) then if(nft.eq.0 .and. iand(ndepth,32).eq.32) then
qmin=2.0 - 0.1*naggressive qmin=2.0 - 0.1*naggressive
call timer('hint65 ',0) call timer('hint65 ',0)
call hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,nadd,nflip, & call hint65(s3,mrs,mrs2,nadd,nflip,mycall,hiscall,hisgrid,qual,decoded)
mycall,hiscall,hisgrid,nexp_decode,qual,decoded)
if(qual.ge.qmin) then if(qual.ge.qmin) then
nft=2 nft=2
ncount=0 ncount=0

3
lib/genmsk144.f90
View File

@ -39,8 +39,7 @@ subroutine genmsk144(msg0,ichk,msgsent,i4tone,itype,pchk_file)
integer*1 b11(11) integer*1 b11(11)
integer*1 b13(13) integer*1 b13(13)
real*8 pp(12) real*8 pp(12)
real*8 xi(864),xq(864),pi,twopi,phi,dphi real*8 xi(864),xq(864),pi,twopi
real waveform(864)
data b7/1,1,1,0,0,1,0/ data b7/1,1,1,0,0,1,0/
data s8/0,1,1,1,0,0,1,0/ data s8/0,1,1,1,0,0,1,0/
data b11/1,1,1,0,0,0,1,0,0,1,0/ !Barker 11 code data b11/1,1,1,0,0,0,1,0,0,1,0/ !Barker 11 code

4
lib/hint65.f90
View File

@ -1,5 +1,4 @@
subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,nadd,nflip, & subroutine hint65(s3,mrs,mrs2,nadd,nflip,mycall,hiscall,hisgrid,qual,decoded)
mycall,hiscall,hisgrid,nexp_decode,qual,decoded)
use packjt use packjt
use prog_args use prog_args
@ -9,7 +8,6 @@ subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,nadd,nflip, &
integer*1 sym1(0:62,MAXMSG) integer*1 sym1(0:62,MAXMSG)
integer*1 sym2(0:62,MAXMSG) integer*1 sym2(0:62,MAXMSG)
integer mrs(63),mrs2(63) integer mrs(63),mrs2(63)
integer mrsym(0:62),mr2sym(0:62),mrprob(0:62)
integer dgen(12),sym(0:62),sym_rev(0:62) integer dgen(12),sym(0:62),sym_rev(0:62)
character*6 mycall,hiscall,hisgrid,call2(MAXCALLS) character*6 mycall,hiscall,hisgrid,call2(MAXCALLS)
character*4 grid2(MAXCALLS),rpt(MAXRPT) character*4 grid2(MAXCALLS),rpt(MAXRPT)

1
lib/jt65_test.f90
View File

@ -60,6 +60,7 @@ contains
integer nwidth integer nwidth
real t real t
if(minsync+nflip+qual.eq.-9999) stop !Silence compiler warning
t=max(0.0,width*width-7.2) t=max(0.0,width*width-7.2)
nwidth=max(nint(sqrt(t)),2) nwidth=max(nint(sqrt(t)),2)
!### deal with nflip here! ### !### deal with nflip here! ###

1
lib/msk144_decode.f90
View File

@ -11,7 +11,6 @@ subroutine msk144_decode(id2,npts,nutc,nprint,pchk_file,line)
real ty(NMAX/512) !Ping times real ty(NMAX/512) !Ping times
real yellow(NMAX/512) real yellow(NMAX/512)
complex c(NFFTMAX) !Complex (analytic) data complex c(NFFTMAX) !Complex (analytic) data
complex cdat(24000) !Short segments, up to 2 s
complex cdat2(24000) complex cdat2(24000)
character*22 msg,msg0 !Decoded message character*22 msg,msg0 !Decoded message
character*80 line(100) !Decodes passed back to caller character*80 line(100) !Decodes passed back to caller

2
lib/msk144d.f90
View File

@ -7,7 +7,7 @@ program msk144d
use timer_impl, only: init_timer use timer_impl, only: init_timer
use readwav use readwav
character c,mode character c
character*80 line(100) character*80 line(100)
character*512 pchk_file character*512 pchk_file
logical :: display_help=.false. logical :: display_help=.false.

2
lib/msk144sim.f90
View File

@ -8,7 +8,7 @@ program msk144sim
character*512 pchk_file character*512 pchk_file
character*3 rpt(0:7) character*3 rpt(0:7)
real wave(0:NMAX-1) !Simulated received waveform real wave(0:NMAX-1) !Simulated received waveform
real*8 dt,twopi,freq,phi,dphi0,dphi1,dphi real*8 twopi,freq,phi,dphi0,dphi1,dphi
type(hdr) h !Header for .wav file type(hdr) h !Header for .wav file
integer*2 iwave(0:NMAX-1) integer*2 iwave(0:NMAX-1)
integer itone(144) !Message bits integer itone(144) !Message bits

1
lib/softsym9w.f90
View File

@ -12,6 +12,7 @@ subroutine softsym9w(id2,npts,xdt0,f0,width,nsubmode,xdt1,i1softsymbols)
include 'jt9sync.f90' include 'jt9sync.f90'
equivalence (x,cx) equivalence (x,cx)
if(npts.eq.-99) stop !Silence compiler warning
df=12000.0/NFFT df=12000.0/NFFT
i0a=max(1.0,(xdt0-1.0)*12000.0) i0a=max(1.0,(xdt0-1.0)*12000.0)
i0b=(xdt0+1.0)*12000.0 i0b=(xdt0+1.0)*12000.0

1
lib/sync65.f90
View File

@ -17,6 +17,7 @@ subroutine sync65(ss,nfa,nfb,naggressive,ntol,nhsym,ca,ncand,nrobust, &
common/steve/thresh0 common/steve/thresh0
if(ntol.eq.-99) stop !Silence compiler warning
call setup65 call setup65
df=12000.0/NFFT !df = 12000.0/8192 = 1.465 Hz df=12000.0/NFFT !df = 12000.0/8192 = 1.465 Hz
ia=max(2,nint(nfa/df)) ia=max(2,nint(nfa/df))

6
lib/syncmsk144.f90
View File

@ -13,7 +13,7 @@ subroutine syncmsk144(cdat,npts,pchk_file,msgreceived,fest,nutc,t0)
complex c(NSPM) complex c(NSPM)
complex ctmp(6000) complex ctmp(6000)
complex cb(42) !Complex waveform for sync word complex cb(42) !Complex waveform for sync word
complex csum,cfac,cca,ccb complex cfac,cca,ccb
complex cc(npts) complex cc(npts)
complex cc1(npts) complex cc1(npts)
complex cc2(npts) complex cc2(npts)
@ -21,10 +21,8 @@ subroutine syncmsk144(cdat,npts,pchk_file,msgreceived,fest,nutc,t0)
integer s8(8),hardbits(144),hardword(128),unscrambledhardbits(128) integer s8(8),hardbits(144),hardword(128),unscrambledhardbits(128)
integer*1, target:: i1Dec8BitBytes(10) integer*1, target:: i1Dec8BitBytes(10)
integer, dimension(1) :: iloc integer, dimension(1) :: iloc
integer*4 i4Msg6BitWords(12) !72-bit message as 6-bit words
integer*4 i4Dec6BitWords(12) integer*4 i4Dec6BitWords(12)
integer*1 decoded(80) integer*1 decoded(80)
integer*1, allocatable :: message(:)
integer*1 i1hashdec integer*1 i1hashdec
integer ipeaks(10) integer ipeaks(10)
logical ismask(6000) logical ismask(6000)
@ -41,7 +39,7 @@ subroutine syncmsk144(cdat,npts,pchk_file,msgreceived,fest,nutc,t0)
data first/.true./ data first/.true./
data s8/0,1,1,1,0,0,1,0/ data s8/0,1,1,1,0,0,1,0/
save first,cb,pi,twopi,dt,f0,f1 save first,cb,pi,twopi,dt
if(first) then if(first) then
i=index(pchk_file,".pchk") i=index(pchk_file,".pchk")