/dports/comms/wsjtz/wsjtx/lib/ |
H A D | extract.f90 | 2 mycall_12,hiscall_12,hisgrid,nQSOProgress,ljt65apon, & argument 25 character*6 mycall,hiscall,hisgrid local 66 (mycall.ne.mycall0 .or. hiscall.ne.hiscall0 .or. hisgrid.ne.hisgrid0)) then 89 if(len_trim(hisgrid(1:4)).gt.0) then 90 apmessage=mycall//' '//hiscall//' '//hisgrid(1:4) 94 apmessage='CQ'//' '//hiscall//' '//hisgrid(1:4) 185 call hint65(s3,mrs,mrs2,nadd,nflip,mycall,hiscall,hisgrid,qual,decoded)
|
H A D | decode65b.f90 | 2 mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nqd,nft,qual, & argument 10 character mycall*12,hiscall*12,hisgrid*6 local 23 hiscall,hisgrid,nQSOProgress,ljt65apon,ncount, &
|
H A D | jt4_decode.f90 | 50 hisgrid,nlist0,listutc0,average_callback) argument 62 character(len=6), intent(in) :: hisgrid local 91 minw,mycall,hiscall,hisgrid,nfqso,NAgain,ndepth,neme) 98 mode4,minw,mycall,hiscall,hisgrid,nfqso,NAgain,ndepth,neme) argument 112 character(len=6), intent(in) :: hisgrid local 188 mycall,hiscall,hisgrid,decoded,nfano,deepmsg,qual,ich) 223 mycall,hiscall,hisgrid,nfanoave,avemsg,qave,deepave,ich, & 281 mycall,hiscall,hisgrid,nfanoave,avemsg,qave,deepave,ichbest,ndeepave) argument 289 character mycall*12,hiscall*12,hisgrid*6 local 395 call deep4(sym(2,k),neme,flipx,mycall,hiscall,hisgrid,deepave,qave)
|
H A D | jt65_test.f90 | 14 ,ntrials,naggressive,ndepth,mycall,hiscall,hisgrid,nexp_decode, & argument 26 character(len=6), intent(in) :: hisgrid local 37 hiscall=hiscall,hisgrid=hisgrid,nexp_decode=nexp_decode, &
|
H A D | q65_decode.f90 | 35 lnewdat0,emedelay,mycall,hiscall,hisgrid,nQSOprogress,ncontest, & argument 63 character(len=6) :: hisgrid local 110 call q65_hist(nfqso,dxcall=hiscall,dxgrid=hisgrid) 141 if(ichar(hisgrid(1:1)).eq.0) hisgrid=' ' 144 call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) 266 c4=hisgrid(1:4) 342 c4=hisgrid(1:4)
|
H A D | qratest.f90 | 5 character arg*8,mycall*12,hiscall*12,hisgrid*6,decoded*22 variable 35 mycall,hiscall,hisgrid 43 mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
|
H A D | hint65.f90 | 12 character*6 mycall,hiscall,hisgrid,call2(MAXCALLS) local 70 if(i.eq.0 .and. hiscall.eq.' ' .and. hisgrid(1:4).eq.' ') cycle 79 if(m.eq.1) msg=mycall//' '//hiscall//' '//hisgrid(1:4) 80 if(m.eq.2) msg='CQ '//hiscall//' '//hisgrid(1:4)
|
H A D | deep4.f90 | 8 character callsign*12,grid*4,message*22,hisgrid*6,ceme*3 local 37 hisgrid.eq.hisgrid0 .and. neme.eq.neme0) go to 30 48 grid=hisgrid(1:4) 112 hisgrid0=hisgrid
|
H A D | map65_mmdec.f90 | 2 nagain,max_drift,mycall,hiscall,hisgrid) argument 20 character(len=6) :: hisgrid local 52 emedelay,mycall,hiscall,hisgrid,nQSOProgress,ncontest,lapcqonly,navg0)
|
H A D | jt9.f90 | 83 character(len=6) :: mygrid='', hisgrid='EN37' variable 163 read (optarg(:arglen), *) hisgrid 212 hisgrid=' ' 316 shared_data%params%hisgrid=transfer(hisgrid,shared_data%params%hisgrid)
|
H A D | jt65.f90 | 19 character*6 hisgrid variable 79 read (optarg(:narglen), *) hisgrid 129 mycall,hiscall,hisgrid,nexp_decode,nQSOProgress,ljt65apon)
|
H A D | decode4.f90 | 2 mycall,hiscall,hisgrid,decoded,nfano,deepbest,qbest,ichbest) argument 13 character*6 hisgrid local 98 call deep4(sym(2),neme,flip,mycall,hiscall,hisgrid,deepmsg,qual)
|
H A D | astrosub.f90 | 28 character(len=6) :: mygrid, hisgrid local 37 hisgrid = hisgrid_cp 41 call astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid, &
|
H A D | decode65a.f90 | 2 naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & argument 20 character mycall*12,hiscall*12,hisgrid*6 local 122 mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nqd,nft,qual, &
|
H A D | jt65_decode.f90 | 40 ndepth,emedelay,clearave,mycall,hiscall,hisgrid,nexp_decode, & argument 58 character(len=6), intent(in) :: hisgrid local 215 naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & 268 mycall,hiscall,hisgrid,nftt,avemsg,qave,deepave,nsum, & 344 nagain, ntrials,naggressive,clear_avg65,neme,mycall,hiscall,hisgrid, & argument 352 character mycall*12,hiscall*12,hisgrid*6 local 492 hiscall,hisgrid,nQSOProgress,ljt65apon,ncount,nhist, &
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | decode0.f90 | 10 character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20 local 15 nfast,nsave,max_drift,nhsym,mycall,mygrid,hiscall,hisgrid,datetime local 46 hisgrid.ne.hisgrid0 .or. mcall3.ne.0 .or. neme.ne.neme0) mcall3b=1 50 hisgrid0=hisgrid 57 neme,ndepth,nstandalone,hiscall,hisgrid,nhsym,nfsample, &
|
H A D | q65b.f90 | 2 mycall0,mygrid,hiscall0,hisgrid,mode_q65,f0,fqso,newdat,nagain, & argument 30 character*6 mygrid,hisgrid local 48 if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4) 142 newdat,nagain,max_drift,mycall,hiscall,hisgrid)
|
H A D | astrosub.f90 | 6 character*6 mygrid,hisgrid local 8 call astro0(nyear,month,nday,uth8,nfreq,mygrid,hisgrid, &
|
H A D | decode65b.f90 | 8 character mycall*12,hiscall*12,hisgrid*6 local 41 call deep65(s3,mode65,neme,flip,mycall,hiscall,hisgrid,deepmsg,qual)
|
H A D | decode1a.f90 | 2 mycall,hiscall,hisgrid,neme,ndepth,nqd,dphi,ndphi, & argument 20 character mycall*12,hiscall*12,hisgrid*6 local 123 call decode65b(s2,flip,mycall,hiscall,hisgrid,mode65,neme,ndepth, &
|
H A D | m65.f90 | 39 character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20 variable 44 nfast,nsave,max_drift,nhsym,mycall,mygrid,hiscall,hisgrid,datetime local 95 hisgrid='EN50'
|
/dports/comms/wsjtz/wsjtx/lib/qra/q65/ |
H A D | q65_set_list.f90 | 5 character*6 hisgrid local 23 if(i.eq.5) msg='CQ '//trim(hiscall)//' '//hisgrid(1:4) 24 if(i.eq.6) msg(j0:j0+3)=hisgrid(1:4)
|
/dports/comms/wsjtz/wsjtx/widgets/ |
H A D | astro.cpp | 28 const char * mygrid, const char * hisgrid, 94 auto Astro::astroUpdate(QDateTime const& t, QString const& mygrid, QString const& hisgrid, Frequenc… in astroUpdate() argument 116 hisgrid.toLatin1().data(), in astroUpdate() 124 if(!hisgrid.size ()) { in astroUpdate() 226 hisgrid.toLatin1().data(), in astroUpdate()
|
/dports/comms/wsjtz/wsjtx/map65/ |
H A D | astro.cpp | 13 const char* mygrid, const char* hisgrid, double* azsun, 46 void Astro::astroUpdate(QDateTime t, QString mygrid, QString hisgrid, in astroUpdate() argument 68 hisgrid.toLatin1(), &azsun, &elsun, &azmoon, &elmoon, in astroUpdate()
|
/dports/comms/sdr-wspr/sdr-wspr-0.1.0/libwspr/ |
H A D | azdist.f90 | 49 if(mygrid.eq.mygrid0 .and. hisgrid.eq.hisgrid0 .and. & 53 hisgrid0=hisgrid
|