w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-16 04:32:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Silence several compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-06 12:44:49 -05:00
parent aee0a1e851
commit bc8d134135
3 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/jt65_decode.f90
View File

@ -94,7 +94,7 @@ contains
save save
this%callback => callback this%callback => callback
first_time=nrobust !Silence compiler warning first_time=nrobust .and. (emedelay.eq.-999.9) !Silence compiler warning
first_time=newdat first_time=newdat
dd=dd0 dd=dd0
ndecoded=0 ndecoded=0

1
lib/pctile.f90
View File

@ -12,6 +12,5 @@ subroutine pctile(x,npts,npct,xpct)
if(j.gt.npts) j=npts if(j.gt.npts) j=npts
xpct=tmp(j) xpct=tmp(j)
900 continue
return return
end subroutine pctile end subroutine pctile

2
lib/symspec.f90
View File

@ -37,7 +37,7 @@ subroutine symspec(shared_data,k,TRperiod,nsps,ingain,bLowSidelobes, &
equivalence (xc,cx) equivalence (xc,cx)
save save
if(TRperiod.lt.0.d0) stop !Silence compiler warning if(TRperiod+npct.eq.-999.9) stop !Silence compiler warning
nfft3=16384 !df=12000.0/16384 = 0.732422 nfft3=16384 !df=12000.0/16384 = 0.732422
jstep=nsps/2 !Step size = half-symbol in id2() jstep=nsps/2 !Step size = half-symbol in id2()
if(k.gt.NMAX) go to 900 if(k.gt.NMAX) go to 900