mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-25 05:38:46 -05:00
01798a7b64
2. Remove "Accelerated decoding" as menu item (now always ON) 3. Clean up a few unused variables 4. Change from MS Sans Serif to Helvetica fonts 5. Make Tx msg boxes wider git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@15 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
27 lines
1.3 KiB
Fortran
27 lines
1.3 KiB
Fortran
! Variable Purpose Set by
|
|
!-------------------------------------------------------------------------
|
|
real ps0 !Spectrum of best ping, FSK441/JT6m wsjt1
|
|
real psavg !Average spectrum wsjt1
|
|
integer*2 d2a,d2b,b
|
|
integer shok,sendingsh
|
|
integer dftolerance
|
|
logical LDecoded,rxdone
|
|
character mycall*12,hisgrid*6
|
|
character hiscall*12,txmsg*28,sending*28,mode*6,utcdate*12
|
|
character*24 fname0,fnamea,fnameb,decodedfile
|
|
character*80 AppDir,filetokilla,filetokillb
|
|
|
|
common/gcom2/ps0(431),psavg(450),s2(64,3100),ccf(-5:540), &
|
|
green(500),ngreen,dgain,iter,ndecoding,ndecoding0,mousebutton, &
|
|
ndecdone,npingtime,ierr,lauto,mantx,nrestart,ntr,nmsg,nsave, &
|
|
dftolerance,LDecoded,rxdone,monitoring,nzap,nsavecum,minsigdb, &
|
|
nclearave,nfreeze,nafc,nmode,mode65,nclip,ndebug,nblank,nport, &
|
|
mousedf,neme,nsked,naggressive,ntx2,nslim2,nagain,nsavelast, &
|
|
shok,sendingsh,d2a(661500),d2b(661500),b(60000),jza,jzb,ntime, &
|
|
idinterval,msmax,lenappdir,ndiskdat,nlines,nflat,ntxreq,ntxnow, &
|
|
ndepth,nspecial,ndf,ss1(-224:224),ss2(-224:224), &
|
|
mycall,hiscall,hisgrid,txmsg,sending,mode,fname0,fnamea, &
|
|
fnameb,decodedfile,AppDir,filetokilla,filetokillb,utcdate
|
|
|
|
!### volatile /gcom2/
|