From d00e377d88bd81769253fadaff47d02f39365642 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 14 Jul 2016 18:46:04 +0000 Subject: [PATCH] Fix typo. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6922 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk32.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/detectmsk32.f90 b/lib/detectmsk32.f90 index 6b366db3c..3472fbbcc 100644 --- a/lib/detectmsk32.f90 +++ b/lib/detectmsk32.f90 @@ -434,7 +434,7 @@ subroutine detectmsk32(cbig,n,mycall,partnercall,lines,nmessages,nutc,ntol,t00) call hash(hashmsg,22,ihash) ihash=iand(ihash,127) - if(nrxhash.eq.ihash .or. t0.gt.0.0) then + if(nrxhash.eq.ihash .or. t00.gt.0.0) then nmessages=1 if(nrxhash.eq.ihash) then write(msgreceived,'(a1,a,1x,a,a1,1x,a4)') "<",trim(mycall), & @@ -442,7 +442,7 @@ subroutine detectmsk32(cbig,n,mycall,partnercall,lines,nmessages,nutc,ntol,t00) write(lines(nmessages),1020) nutc,nsnr,t0,nint(fest),msgreceived 1020 format(i6.6,i4,f5.1,i5,' & ',a22) endif - if(nrxhash.ne.ihash .and. t0.gt.0.0 .and. nsnr.gt.-4) then + if(nrxhash.ne.ihash .and. t00.gt.0.0 .and. nsnr.gt.-4) then write(msgreceived,'(a5,1x,a4)') "<...>",rpt(nrxrpt) write(lines(nmessages),1020) nutc,nsnr,t0,nint(fest),msgreceived endif