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

Remove some diagnostic writes.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-19 13:08:59 -04:00
parent cc69993b6a
commit a360ff0bcd
2 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
map65/libm65/map65a.f90
View File

@ -38,15 +38,6 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
nwrite_q65=0
bq65=mode_q65.gt.0
!###
write(71,3071) newdat,nutc,ntol,idphi,nfa,nfb, &
mousedf,mousefqso,nagain,ndecdone,ndiskdat,nfshift,ndphi, &
nfcal,nkeep,mcall3b,nsum,nsave,nxant,neme,ndepth, &
nhsym,nfsample,nxpol,nmode,mycall,mygrid,hiscall,hisgrid, &
sum(dd),sum(ss),sum(savg)
3071 format(16i5/9i6/a12,a6,2x,a12,a6/3e15.6)
!###
mcall3a=mcall3b
mousefqso0=mousefqso
xpol=(nxpol.ne.0)
@ -69,7 +60,6 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
nqdz=1
if(bq65 .and. (nutc0.ge.0 .or. (nstandalone.eq.1))) nqdz=2
! if(bq65) nqdz=2
write(69,*) nqdz,mousefqso
if(nutc.ne.nutc0) nfile=nfile+1
nutc0=nutc

3
map65/libm65/q65b.f90
View File

@ -25,9 +25,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
data first/.true./
save
write(72,*) nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
mycall0,hiscall0,hisgrid,mode_q65
if(first) then
open(9,file='wsjtx_dir.txt',status='old')
read(9,*) wsjtx_dir