w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-21 11:38:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-15 17:20:43 -05:00
parent 2f46104140
commit 059096534b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
qmap/libqmap/q65c.f90
View File

@ -86,11 +86,9 @@ subroutine q65c(fname0,revision0)
write(*,3002) nutc,nagain,nhsym,n60,n60b,nd,ntx30a,ntx30b,ndecodes,revision
3002 format('A',i5.4,8i5,2x,a22)
if(nsave.eq.2 .or. (nsave.eq.1 .and. ndecodes.ge.1)) then
call timer('save_qm ',0)
if(nhsym.eq.390 .and. (nsave.eq.2 .or. (nsave.eq.1 .and. ndecodes.ge.1))) then
call save_qm(fname,revision,mycall,mygrid,dd,ntx30a,ntx30b,fcenter, &
nutc,ndop00,ndop58)
call timer('save_qm ',1)
nutc,ndop00,ndop58)
endif
999 return