Repair issue with DE & DX call not being added to hash tables in Q65

This commit is contained in:
Bill Somerville 2021-10-17 20:26:57 +01:00
parent e92ec7bf9f
commit 34753ca613
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 3 additions and 0 deletions

View File

@ -93,6 +93,9 @@ contains
nfft2=ntrperiod*6000
npasses=1
dxcall13=hiscall ! initialize for use in packjt77
mycall13=mycall
! Determine the T/R sequence: iseq=0 (even), or iseq=1 (odd)
n=nutc
if(ntrperiod.ge.60 .and. nutc.le.2359) n=100*n