Merge branch 'release-2.5.0' of bitbucket.org:k1jt/wsjtx into release-2.5.0

This commit is contained in:
Bill Somerville 2021-07-05 20:43:42 +01:00
commit f067d94723
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

View File

@ -128,7 +128,6 @@ subroutine display(nkeep,ftol)
line3(k)(23:27)//line3(k)(35:38)//line3(k)(46:70)// &
line3(k)(73:77)
if(livecq(56:56).eq.':') livecq(56:58)=' '//livecq(56:57)
print*,'= ',trim(livecq)
if(index(livecq,' CQ ').gt.0 .or. index(livecq,' QRZ ').gt.0 .or. &
index(livecq,' QRT ').gt.0 .or. index(livecq,' CQV ').gt.0 .or. &
index(livecq,' CQH ').gt.0) write(19,1029) livecq