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/