mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-23 04:38:37 -05:00
Corrected color of displayed text when nkeep is small.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@562 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
e3536ff18b
commit
cd67b2ccab
@ -30,7 +30,7 @@ subroutine display(nkeep,ncsmin)
|
|||||||
10 nz=i-1
|
10 nz=i-1
|
||||||
utcz=utc(nz)
|
utcz=utc(nz)
|
||||||
nz=nz-1
|
nz=nz-1
|
||||||
nquad=nkeep/4
|
nquad=max(nkeep/4,3)
|
||||||
do i=1,nz
|
do i=1,nz
|
||||||
nage=utcz-utc(i)
|
nage=utcz-utc(i)
|
||||||
if(nage.lt.0) nage=nage+1440
|
if(nage.lt.0) nage=nage+1440
|
||||||
|
Loading…
Reference in New Issue
Block a user