! Variable Purpose Set in Thread !------------------------------------------------------------------------- real*8 fcenter !Linrad center freq, from pkt header recvpkt real ps0 !Spectrum of best ping, FSK441/JT6m Decoder real psavg !Average spectrum Decoder real s2 !2d spectrum for horizontal waterfall GUI real ccf !CCF in time (blue curve) Decoder real green !Data for green line GUI real fselect !Specified QSO frequency GUI real pctlost !Percent of lost packets Decoder real pctblank !Percent of blanked blocks/packets Decoder real rxnoise !Rx noise in dB recvpkt real dphi !Phase shift between pol'n channels GUI,Decoder integer ngreen !Length of green GUI real dgain !Digital audio gain setting GUI integer ndecoding !Decoder status (see decode2.f90) GUI,Decoder integer ndecoding0 !Status on previous decode GUI,Decoder integer mcall3 !CALL3.TXT has been modified GUI,Decoder integer mousebutton !Which button was clicked? GUI integer multicast !1 for multicast data, 0 for unicast GUI integer ndecdone !Is decoder finished? GUI,Decoder integer nfloat !Floating-point data from Linrad? GUI integer ierr !Error opening *.tf2 file GUI integer lauto !Are we in Auto mode? GUI integer mantx !Manual transmission requested? GUI,SoundIn integer nrestart !True if transmission should restart GUI,SoundIn integer ntr !Are we in 2nd sequence? SoundIn integer nmsg !Length of Tx message SoundIn integer nsave !Which files to save? GUI integer nadd5 !Prepend 5 sec of 0's before decoding? GUI integer dftolerance !DF tolerance (Hz) GUI logical LDecoded !Was a message decoded? Decoder logical rxdone !Has the Rx sequence finished? SoundIn,Decoder integer monitoring !Are we monitoring? GUI integer nzap !Is Zap checked? GUI integer minsigdb !Decoder threshold setting GUI integer nclearave !Set to 1 to clear JT65 avg GUI,Decoder integer nfreeze !Is Freeze checked? GUI integer nafc !Is AFC checked? GUI integer ncsmin !Minimum length of callsign in bandmap GUI integer newspec !New spectra in ss(4,322,NSMAX) GUI,Decoder integer nfa !Low end of map65 search (def 100 kHz) GUI integer nfb !High end of map65 search (def 160 kHz) GUI integer nfcal !Calibration offset, Hz GUI integer idphi !Phase offset in Y channel (deg) GUI integer nkeep !Timeout limit for band maps (min) GUI integer nmode !Which WSJT mode? GUI,Decoder integer mode65 !JT65 sub-mode (A/B/C ==> 1/2/4) GUI,SoundIn,Decoder integer nbpp !# FFT Bins/pixel, wideband waterfall Spec integer ndebug !Write debugging info? GUI integer ndphi !Set to 1 to compute dphi GUI,Decoder integer nhispol !Pol angle matching HisCall or HisGrid Decoder integer nt1 !Time to start FFTs GUI integer nxant !Antenna configuration: 0='+', 1='x' GUI integer nblank !Is NB checked? GUI integer nfmid !Center frequency of main display GUI integer nfrange !Frequency range of main display GUI integer nport !Requested COM port number GUI integer mousedf !Mouse-selected freq offset, DF GUI integer mousefqso !Mouse-selected QSO freq GUI integer neme !EME calls only in deep search? GUI integer nrw26 !Request to rewind lu 26 (tmp26.txt) GUI,Decoder integer naggressive !Is "Aggressive decoding" checked? GUI integer ntx2 !Is "No shorthands if Tx1" checked? GUI integer nagain !Decode same file again? GUI integer shok !Shorthand messages OK? GUI integer sendingsh !Sending a shorthand message? SoundIn integer*2 d2a !Rx data, extracted from y1 Decoder integer*2 d2b !Rx data, selected by mouse-pick Decoder integer*2 b !Pixel values for waterfall spectrum GUI integer jza !Length of data in d2a GUI,Decoder integer jzb !(why is this here?) integer ntime !Integer Unix time (now) SoundIn integer idinterval !Interval between CWIDs, minutes GUI integer msmax !(why is this here?) integer lenappdir !Length of Appdir string GUI integer idf !Frequency offset in Hz Decoder integer ndiskdat !1 if data read from disk, 0 otherwise GUI integer nlines !Available lines of waterfall data GUI integer nflat !Is waterfall to be flattened? GUI integer ntxreq !Tx msg# requested GUI integer ntxnow !Tx msg# being sent now GUI integer ndepth !Requested "depth" of JT65 decoding GUI integer nspecial !JT65 shorthand msg#: RO=2 RRR=3 73=4 Decoder integer ndf !Measured DF in Hz Decoder real ss1 !Magenta curve for JT65 shorthand msg Decoder real ss2 !Orange curve for JT65 shorthand msg Decoder character mycall*12 !My call sign GUI character hiscall*12 !His call sign GUI character hisgrid*6 !His grid locator GUI character txmsg*28 !Message to be transmitted GUI character sending*28 !Message being sent SoundIn character mode*6 !WSJT operating mode GUI character utcdate*12 !UTC date GUI character*24 fname0 !Filenames to be recorded, read, ... Decoder character*24 fnamea character*24 fnameb character*6 fnamedate character*24 decodedfile character*80 AppDir !WSJT installation directory GUI character*80 AzElDir !Directory for azel.dat GUI character*80 SaveDir !Directory for saved data files GUI character*80 filetokilla !Filenames (full path) Decoder character*80 filetokillb character*12 pttport character*8 utcdata !HHMM UTC for the processed data Decoder common/gcom2/fcenter,ps0(431),psavg(450),s2(64,3100),ccf(-5:540), & green(500),fselect,pctlost,pctblank,rxnoise,dphi,ngreen,dgain, & ndecoding,ndecoding0,mcall3,mousebutton,multicast,nsetftx,ierr, & ndecdone,nfloat,lauto,mantx,nrestart,ntr,nmsg,nsave,nadd5, & dftolerance,LDecoded,rxdone,monitoring,nzap,minsigdb, & nclearave,nfreeze,nafc,ncsmin,newspec,nfa,nfb,nfcal,idphi,nkeep, & nmode,mode65,nbpp,ndebug,ndphi,nhispol,nt1,nxant, & nblank,nport,mousedf,mousefqso,neme,nrw26,naggressive,ntx2,nagain, & shok,sendingsh,d2a(661500),d2b(661500),b(60000),jza,jzb,ntime, & idinterval,msmax,lenappdir,idf,ndiskdat,nlines,nflat,ntxreq,ntxnow, & ndepth,nspecial,ndf,nfmid,nfrange,ss1(-224:224),ss2(-224:224), & mycall,hiscall,hisgrid,txmsg,sending,mode,fname0,fnamea, & fnameb,fnamedate,decodedfile,AppDir,AzElDir,SaveDir, & filetokilla,filetokillb,utcdate,pttport,utcdata !### volatile /gcom2/