w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 00:51:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix for possible out-of-bounds nutc.

Browse Source
This commit is contained in:
Joe Taylor 2021-03-05 13:28:14 -05:00
parent 3fac763123
commit 3f5705ac74
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/q65_decode.f90
View File

@ -87,7 +87,7 @@ contains
! Determine the T/R sequence: iseq=0 (even), or iseq=1 (odd) ! Determine the T/R sequence: iseq=0 (even), or iseq=1 (odd)
n=nutc n=nutc
if(ntrperiod.ge.60) n=100*n if(ntrperiod.ge.60 .and. nutc.le.2359) n=100*n
write(cutc,'(i6.6)') n write(cutc,'(i6.6)') n
read(cutc,'(3i2)') ih,im,is read(cutc,'(3i2)') ih,im,is
nsec=3600*ih + 60*im + is nsec=3600*ih + 60*im + is