Searched refs:csubmode (Results 1 – 6 of 6) sorted by relevance
| /dports/comms/wsjtz/wsjtx/lib/ |
| H A D | jt65sim.f90 | 21 character msg*22,fname*11,csubmode*1,c,optarg*500,numbuf*32 variable
49 csubmode='A'
71 read (optarg(:narglen), *) csubmode
72 if(csubmode.eq.'A') mode65=1
73 if(csubmode.eq.'B') mode65=2
74 if(csubmode.eq.'C') mode65=4
169 if(csubmode.eq.'B' .and. snrdb.eq.0.0) xsnr=-21 - isig
170 if(csubmode.eq.'C' .and. snrdb.eq.0.0) xsnr=-21 - isig
212 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,msg
|
| H A D | test_qra64.f90 | 6 character*1 csubmode variable
18 call getarg(2,csubmode)
53 cmd1(35:35)=csubmode
60 cmd2(39:39)=csubmode
116 write(13,1200) ndepth,fdop,csubmode,snr_thresh
|
| H A D | test_q65.f90 | 6 character*1 csubmode variable
21 call getarg(2,csubmode)
79 cmd1(35:35)=csubmode
92 cmd2(40:40)=csubmode
96 write(*,1008) ntrperiod,csubmode,ndepth,fDop,f1,nstp
177 write(13,1200) ntrperiod,csubmode,ndepth,nQSOprogress,nfiles, &
|
| H A D | jt49sim.f90 | 20 character message*22,fname*11,csubmode*2,arg*12 variable
36 call getarg(2,csubmode)
37 imode=ichar(csubmode(1:1)) - ichar('0')
38 nsubmode=ichar(csubmode(2:2)) - ichar('A')
106 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,delay,message
|
| H A D | jt4sim.f90 | 21 character message*22,fname*11,csubmode*1,arg*12 variable
33 call getarg(2,csubmode)
34 mode4=ichar(csubmode) - ichar('A') + 1
86 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,message
|
| /dports/comms/wsjtz/wsjtx/lib/qra/q65/ |
| H A D | q65sim.f90 | 21 character msg*37,fname*17,csubmode*1,arg*12 variable
38 call getarg(2,csubmode)
39 mode65=2**(ichar(csubmode)-ichar('A'))
80 mode65=2**(ichar(csubmode) - ichar('A'))
129 write(*,1020) ifile,ntrperiod,f0,csubmode,snrdb,fspread,xdt,f1,nstp,trim(msgsent)
|