From bc8d134135dd946a5e6f1dc242d6ca2d2db5a912 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 6 Jan 2021 12:44:49 -0500 Subject: [PATCH] Silence several compiler warnings. --- lib/jt65_decode.f90 | 2 +- lib/pctile.f90 | 1 - lib/symspec.f90 | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90 index 90459add1..8ac539e94 100644 --- a/lib/jt65_decode.f90 +++ b/lib/jt65_decode.f90 @@ -94,7 +94,7 @@ contains save this%callback => callback - first_time=nrobust !Silence compiler warning + first_time=nrobust .and. (emedelay.eq.-999.9) !Silence compiler warning first_time=newdat dd=dd0 ndecoded=0 diff --git a/lib/pctile.f90 b/lib/pctile.f90 index c0a6cdb72..0c16aaba3 100644 --- a/lib/pctile.f90 +++ b/lib/pctile.f90 @@ -12,6 +12,5 @@ subroutine pctile(x,npts,npct,xpct) if(j.gt.npts) j=npts xpct=tmp(j) -900 continue return end subroutine pctile diff --git a/lib/symspec.f90 b/lib/symspec.f90 index 64c88815e..707a6368e 100644 --- a/lib/symspec.f90 +++ b/lib/symspec.f90 @@ -37,7 +37,7 @@ subroutine symspec(shared_data,k,TRperiod,nsps,ingain,bLowSidelobes, & equivalence (xc,cx) 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 jstep=nsps/2 !Step size = half-symbol in id2() if(k.gt.NMAX) go to 900