WSJT-X/gcom1.f90
Joe Taylor 01798a7b64 1. Document variables in gcom1.f90
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
2005-12-27 14:11:33 +00:00

38 lines
2.2 KiB
Fortran

parameter(NRxMax=2048*1024)
parameter(NTxMax=150*11025)
! Variable Purpose Set in Thread
!---------------------------------------------------------------------------
real*8 Tsec !Present time SoundIn, SoundOut
real*8 tbuf !Tsec at time of input callback SoundIn
real*8 rxdelay !Delay between PTT=1 and Tx audio SoundIn
real*8 txdelay !Delay from end of Tx Audio and PTT=0 SOundOut
real*8 samfacin !(Input sample rate)/11025 GUI
real*8 samfacout !(Output sample rate)/11025 GUI
integer*2 y1 !Ring buffer for audio channel 0 SoundIn
integer*2 y2 !Ring buffer for audio channel 1 SoundIn
integer iwrite !Write pointer to ring buffer SoundIn
integer*2 iwave !Data for audio output SoundIn
integer nwave !Number of samples in iwave SoundIn
integer TxOK !OK to transmit? SoundIn
! NB: TxOK=1 only in SoundIn; TxOK=0 also in GUI
integer TxFirst !Transmit first? GUI
integer Receiving !Actually receiving? SoundIn
integer Transmitting !Actually transmitting? SoundOut
integer TRPeriod !Tx or Rx period in seconds GUI
integer level !S-meter level, 0-100 GUI
integer mute !True means "don't transmit" GUI
integer ndsec !Dsec in units of 0.1 s GUI
integer newdat !New data available for waterfall? GUI
integer mfsample !Measured sample rate, input SoundIn
integer mfsample2 !Measured sample rate, output SoundOut
common/gcom1/Tbuf(1024),ntrbuf(1024),Tsec,rxdelay,txdelay, &
samfacin,samfacout,y1(NRxMax),y2(NRxMax), &
nmax,iwrite,iread,iwave(NTXMAX),nwave,TxOK,Receiving,Transmitting, &
TxFirst,TRPeriod,ibuf,ibuf0,ave,rms,ngo,level,mute,newdat,ndsec, &
ndevin,ndevout,nx,mfsample,mfsample2,ns0
!### volatile /gcom1/