From 5e9b9ff2d46fb16a167716eeb918dd36ea998413 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 1 Dec 2023 08:46:40 -0500 Subject: [PATCH] Temporary commit (has diagnostic prints), starting on Q65-30 capability. --- qmap/libqmap/q65b.f90 | 4 ++-- qmap/libqmap/q65c.f90 | 8 +++++--- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/qmap/libqmap/q65b.f90 b/qmap/libqmap/q65b.f90 index 9b48553ef..77c39f64f 100644 --- a/qmap/libqmap/q65b.f90 +++ b/qmap/libqmap/q65b.f90 @@ -33,7 +33,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, & nWTransmitting,result(50) common/cacb/ca save - + if(mycall0(1:1).ne.' ') mycall=mycall0 if(hiscall0(1:1).ne.' ') hiscall=hiscall0 if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4) @@ -100,7 +100,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, & nsnr0=-99 !Default snr for no decode if(abs(f0-85.3).lt.1.0) then - print*,'a',f0 + print*,'a',f0,f0+80-48 h=default_header(12000,30*12000) do ifile=0,1 write(fname,1102) ifile diff --git a/qmap/libqmap/q65c.f90 b/qmap/libqmap/q65c.f90 index 8be46b15a..52247b478 100644 --- a/qmap/libqmap/q65c.f90 +++ b/qmap/libqmap/q65c.f90 @@ -20,22 +20,24 @@ subroutine q65c(itimer) !### REMEMBER that /npar/ is not updated until nparams=nparams0 is executed. ### common/npar/fcenter,nutc,fselected,mousedf,mousefqso,nagain, & - ndepth,ndiskdat,neme,newdat,nfcal,nfshift, & + ndepth,ndiskdat,neme,newdat,nn1,nn2,nfcal,nfshift, & mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, & - ndop00,nsave,max_nhsym,mycall,mygrid,hiscall,hisgrid, & + ndop00,nsave,nn3,nn4,max_nhsym,mycall,mygrid,hiscall,hisgrid, & datetime,junk1,junk2 equivalence (nparams,fcenter) data first/.true./ save first nparams=nparams0 !Copy parameters into common/npar/ + datetime(12:)=' ' + if(itimer.ne.0) then call timer('decode0 ',101) call fini_timer return endif - datetime(18:20)=':00' +! datetime(18:20)=':00' npatience=1 newdat=1 !Always on ??