mirror of https://github.com/saitohirga/WSJT-X.git
38 lines
2.2 KiB
Fortran
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/
|
|
|