/dports/comms/wsjtz/wsjtx/lib/ |
H A D | decoder.f90 | 420 write(*,1000) params%nutc,snr,dt,freq 480 write(*,1010) params%nutc,snr,dt,freq 551 write(*,1000) params%nutc,snr,dt,nint(freq),decoded 638 n=params%nutc 710 integer, intent(in) :: nutc local 737 write(13,1002) nutc,nint(sync),nsnr,dt,freq,0,decoded0 772 integer, intent(in) :: nutc local 791 write(*,1001) nutc,nsnr,dt,nint(freq),decoded,cflags 793 write(13,1002) nutc,nint(snr1),nsnr,dt,freq,0,decoded 796 write(*,1003) nutc,nsnr,dt,nint(freq),decoded,cflags [all …]
|
H A D | jt9w.f90 | 19 read(60,end=999) nutc,nfqso,ntol,ndepth,nmode,nsubmode,ss,id2 20 if(nutc.ne.iutc) cycle 22 call decode9w(nutc,nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt,freq,decoded) 23 write(*,1100) nutc,nsnr,xdt1-1.0,nint(freq),decoded
|
H A D | q65_decode.f90 | 14 subroutine q65_decode_callback (this,nutc,snr1,nsnr,dt,freq, & 19 integer, intent(in) :: nutc local 33 subroutine decode(this,callback,iwave,nqd0,nutc,ntrperiod,nsubmode,nfqso, & argument 97 n=nutc 98 if(ntrperiod.ge.60 .and. nutc.le.2359) n=100*n 153 call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & 210 call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & 227 call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & 252 call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, & 272 write(22,fmt) nutc,cmode,nQSOprogress,idec,idfbest,idtbest,ibw, & [all …]
|
H A D | jt4_decode.f90 | 48 subroutine decode(this,decode_callback,dd,jz,nutc,nfqso,ntol0,emedelay, & argument 57 integer, intent(in) :: jz,nutc,nfqso,ntol0,ndepth,minsync,minw,nsubmode, & local 85 write(cfile6(1:4),1000) nutc 90 call this%wsjt4(dat,jz2,nutc,NClearAve,minsync,ntol,emedelay,dttol,mode4, & 97 subroutine wsjt4(this,dat,npts,nutc,NClearAve,minsync,ntol,emedelay,dttol, & argument 108 integer, intent(in) :: npts,nutc,minsync,ntol,mode4,minw, & local 215 if(nutc.ne.nutc0 .or. abs(nfreq-nfreq0).gt.ntol) then 217 nutc0=nutc !Try decoding average 306 if(nutc.eq.iutc(i) .and. abs(nfreq-nfsave(i)).le.ntol) go to 10 310 iutc(nsave)=nutc [all …]
|
H A D | map65_mmdec.f90 | 50 call my_q65%decode(q65_decoded,id2,nqd,nutc,ntrperiod,nsubmode,nfqso, & 59 subroutine q65_decoded (this,nutc,snr1,nsnr,dt,freq,decoded,idec, & 66 integer, intent(in) :: nutc local 76 if(nutc+snr1+nsnr+dt+freq+idec+nused+ntrperiod.eq.-999) stop
|
H A D | jt65_test.f90 | 13 subroutine test (dd,nutc,nflow,nfhigh,nfqso,ntol,nsubmode,n2pass,nrobust & argument 22 integer, intent(in) :: nutc, nflow, nfhigh, nfqso, ntol, nsubmode, n2pass & local 33 nutc=nutc,nf1=nflow,nf2=nfhigh,nfqso=nfqso,ntol=ntol, &
|
H A D | jt65_decode.f90 | 38 subroutine decode(this,callback,dd0,npts,newdat,nutc,nf1,nf2,nfqso, & argument 53 integer, intent(in) :: npts, nutc, nf1, nf2, nfqso, ntol & local 260 if(nutc.ne.nutc0 .or. abs(nfreq-nfreq0).gt.ntol) then 262 nutc0=nutc 266 call avg65(nutc,nsave,sync1,dtx,nflip,nfreq,mode65,ntol, & 343 subroutine avg65(nutc,nsave,snrsync,dtxx,nflip,nfreq,mode65,ntol,ndepth, & argument 387 if(nutc.eq.iutc(i) .and. abs(nfreq-nfsave(i)).le.ntol) go to 10 391 iutc(nsave)=nutc 413 if(mod(iutc(i),2).ne.mod(nutc,2)) cycle !Use only same (odd/even) seq
|
H A D | jt9.f90 | 239 read(infile(i1-4:i1-1),*,err=1) nutc 241 read(infile(i1-6:i1-1),*,err=1) nutc 244 1 nutc=0 284 shared_data%params%nutc=nutc
|
H A D | stats.f90 | 37 read(10,1010,end=100) nutc,sync,nsnr,dt,nfreq,ncandidates,nhard, & 61 100 write(*,1100) snrgen,nutc,nsynced,nbm,nftok,nhint,ngood,nbad, &
|
H A D | qratest.f90 | 34 read(60,end=999) dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & 49 write(*,1000) ifile,c,nutc,nsnr,dtx,nfreq,decoded,nft-100,sync-3.4
|
H A D | fast_decode.f90 | 28 nutc=narg(0) 66 write(cfile6,'(i6.6)') nutc
|
H A D | jt65.f90 | 120 read(infile(i1-4:i1-1),*,err=998) nutc 127 call test(dd,nutc,nfa,nfb,nfqso,ntol,nsubmode, &
|
H A D | fast9.f90 | 28 nutc=narg(0) !UTC 175 write(line(nline),1000) nutc,nsnr,t0,nint(freq),msg,char(0)
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | map65a.f90 | 97 if(nutc.ne.nutc0) nfile=nfile+1 98 nutc0=nutc 195 sig(km,2)=nutc 265 sig(km,2)=nutc 298 nutc=sig(k,2) 344 write(27,1011) 30*iloop,nkHz,ndf,npol,nutc, & 382 write(*,1012) mousefqso,nutc 399 write(16,1016) nutc,tdec 450 nutc=sig(i,2) 500 nsync2,nutc,decoded,cp,cmode [all …]
|
H A D | q65b.f90 | 141 call map65_mmdec(nutc,iwave,nqd,nsubmode,nfa,nfb,1000,ntol, & 163 write(line,1020) ikhz1,ndf,npol,nutc,xdt0,nsnr0,msg0(1:27),cq0, & 174 write(26,1014) freq1,ndf,0,0,0,xdt0,npol,0,nsnr0,nutc,msg0(1:22), & 180 if(nutc.ne.nutc00 .or. msg0(1:28).ne.msg00 .or. freq1.ne.freq1_00) then 182 write(21,1110) freq1,ndf,xdt0,npol,nsnr0,nutc,msg0(1:28),cq0 184 nutc00=nutc
|
H A D | s3avg.f90 | 26 if(nutc.eq.iutc(i) .and. abs(nhz-ihz(i)).lt.ihzdiff) then 32 iutc(nsave)=nutc !Save UTC 41 if(mod(iutc(i),2).ne.mod(nutc,2)) cycle !Use only same sequence
|
H A D | decode1a.f90 | 3 nutc,nkhz,ndf,ipol,ntol,sync2,a,dt,pol,nkv,nhist,nsum,nsave, & argument 131 if(nutc.ne.nutc0 .or. abs(nhz-nhz0).ge.ihzdiff) syncbest=0. 137 call s3avg(nsave,mode65,nutc,nhz,xdt,npol,ntol,s3,nsum,nkv,decoded) 141 nutc0=nutc
|
H A D | synctest.f90 | 35 read(50,end=998) nutc,npol,ss(1:npol,:,:),savg(1:npol,:) 36 if(nutc.eq.iutc) exit
|
H A D | decode0.f90 | 12 common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain, & local 54 call map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
H A D | m65.f90 | 41 common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain, & local 168 nutc=nutc0
|
/dports/astro/py-ro/RO-3.6.9/python/RO/Astro/llv/ |
H A D | nut.py | 11 from nutc import nutc 32 dpsi, deps, eps0 = nutc(tdb)
|
H A D | eqeqx.py | 8 from nutc import nutc 38 dpsi, deps, eps0 = nutc(tdb)
|
H A D | __init__.py | 18 from .nutc import *
|
/dports/comms/wsjtz/wsjtx/map65/ |
H A D | getfile.cpp | 50 datcom_.nutc=0; in getfile() 52 datcom_.nutc=100*fname.mid(i0-4,2).toInt() + fname.mid(i0-2,2).toInt(); in getfile()
|
H A D | commons.h | 13 int nutc; //UTC as integer, HHMM member
|