mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-27 15:46:51 -04:00
Cleanup so we don't display holdover decodes from previous calls.
This commit is contained in:
parent
069c574b22
commit
d4d4245955
@ -114,6 +114,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
|
|||||||
! 0001 -22 2.9 1081 : EA2AGZ IK4WLV -16 q0
|
! 0001 -22 2.9 1081 : EA2AGZ IK4WLV -16 q0
|
||||||
! 110 101 2 1814 2.9 -11 # QRZ HB9Q JN47 1 0 30 H
|
! 110 101 2 1814 2.9 -11 # QRZ HB9Q JN47 1 0 30 H
|
||||||
nsnr0=-99
|
nsnr0=-99
|
||||||
|
line2=' '
|
||||||
do i=1,8
|
do i=1,8
|
||||||
read(24,1002,end=100) line
|
read(24,1002,end=100) line
|
||||||
1002 format(a62)
|
1002 format(a62)
|
||||||
@ -128,9 +129,9 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
|
|||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
100 if(nsnr.gt.-40) write(*,1100) trim(line2)
|
100 if(nsnr0.gt.-40) write(*,1100) trim(line2)
|
||||||
1100 format(a)
|
1100 format(a)
|
||||||
close(24)
|
close(24,status='delete')
|
||||||
|
|
||||||
900 return
|
900 return
|
||||||
end subroutine q65b
|
end subroutine q65b
|
||||||
|
Loading…
Reference in New Issue
Block a user