Suppress some compiler warnings. (More to come...)

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6748 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-06-09 19:39:48 +00:00
parent df518f4e1d
commit 22340f66e4
6 changed files with 11 additions and 2 deletions

View File

@ -9,6 +9,7 @@ subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, &
character mycall*12,hiscall*12,hisgrid*6 character mycall*12,hiscall*12,hisgrid*6
save save
if(nqd.eq.-99) stop !Silence compiler warning
do j=1,63 do j=1,63
k=mdat(j) !Points to data symbol k=mdat(j) !Points to data symbol
if(nflip.lt.0) k=mdat2(j) if(nflip.lt.0) k=mdat2(j)

View File

@ -160,6 +160,7 @@ contains
character*22 decoded character*22 decoded
character*3 cflags character*3 cflags
if(ich.eq.-99) stop !Silence compiler warning
if (have_sync) then if (have_sync) then
decoded=decoded0 decoded=decoded0
cflags=' ' cflags=' '
@ -226,10 +227,11 @@ contains
integer, intent(in) :: nsum integer, intent(in) :: nsum
integer, intent(in) :: minsync integer, intent(in) :: minsync
integer i,n integer i
logical have_sync,is_deep,is_average logical is_deep,is_average
character decoded*22,csync*2,cflags*3 character decoded*22,csync*2,cflags*3
if(width.eq.-9999.0) stop !Silence compiler warning
!$omp critical(decode_results) !$omp critical(decode_results)
decoded=decoded0 decoded=decoded0
cflags=' ' cflags=' '

View File

@ -130,6 +130,8 @@ contains
blank=' ' blank=' '
ccfblue=0. ccfblue=0.
ccfred=0. ccfred=0.
! Silence compiler warnings
if(dttol.eq.-99.0 .and. emedelay.eq.-99.0 .and. nagain) stop
endif endif
zz=0. zz=0.

View File

@ -336,6 +336,8 @@ contains
s3save=0. s3save=0.
s1save=0. s1save=0.
nsave=1 !### ??? nsave=1 !### ???
! Silence compiler warnings
if(nagain .and. ndeepave.eq.-99 .and. neme.eq.-99) stop
endif endif
do i=1,64 do i=1,64

View File

@ -42,6 +42,7 @@ contains
common/decstats/ntry65a,ntry65b,n65a,n65b,num9,numfano common/decstats/ntry65a,ntry65b,n65a,n65b,num9,numfano
save ccfred,red2 save ccfred,red2
if(nexp_decode.eq.-99) stop !Silence compiler warning
this%callback => callback this%callback => callback
if(nmode.eq.9 .and. nsubmode.ge.1) then if(nmode.eq.9 .and. nsubmode.ge.1) then
call decode9w(nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt,freq,msg) call decode9w(nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt,freq,msg)

View File

@ -19,5 +19,6 @@ contains
implicit none implicit none
character(len=8), intent(in) :: dname character(len=8), intent(in) :: dname
integer, intent(in) :: k integer, intent(in) :: k
if(dname.eq.'99999999' .and. k.eq.9999) stop !Silence compiler warnings
end subroutine null_timer end subroutine null_timer
end module timer_module end module timer_module