From a360ff0bcdc3a4acb5454781705d350dbb779cac Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 19 Apr 2021 13:08:59 -0400 Subject: [PATCH] Remove some diagnostic writes. --- map65/libm65/map65a.f90 | 10 ---------- map65/libm65/q65b.f90 | 3 --- 2 files changed, 13 deletions(-) diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90 index 442302d60..90cfbbe0f 100644 --- a/map65/libm65/map65a.f90 +++ b/map65/libm65/map65a.f90 @@ -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 diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90 index 39475d90c..9fbaf804a 100644 --- a/map65/libm65/q65b.f90 +++ b/map65/libm65/q65b.f90 @@ -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