WSJT-X/gcom1.f90

38 lines
2.2 KiB
Fortran
Raw Normal View History

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/