w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-26 02:20:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Clean up commented code.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-19 12:11:30 -05:00
parent d155abe274
commit 47c64f3675
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
qmap/libqmap/q65c.f90
View File

@ -40,12 +40,6 @@ subroutine q65c
npatience=1 npatience=1
newdat=1 !Always on ?? newdat=1 !Always on ??
! if(ndiskdat.eq.0) then
! if(nhsym.eq.200 .and. n60.ne.30) go to 999
! if(nhsym.eq.330 .and. n60.ne.49) go to 999
! if(nhsym.eq.390 .and. n60.ne.58) go to 999
! endif
if(ndiskdat.eq.1) then if(ndiskdat.eq.1) then
call chkstat(dd,nhsym,pdb) call chkstat(dd,nhsym,pdb)
if((abs(pdb(1)-pdb(2)).gt.3.0 .and. pdb(1).gt.1.0) .or. & if((abs(pdb(1)-pdb(2)).gt.3.0 .and. pdb(1).gt.1.0) .or. &