mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-26 14:18:38 -05:00
eaa540b65b
- Remove alsa/oss from configure.ac and regenerate configure file. - Note it is MAP65 not WSJT. - rfile3a.f90 -> rfile3a.F90 for gfortran preprocessor. - Comment out compiler option that does not work on gfortran for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1151 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
52 lines
3.1 KiB
Fortran
52 lines
3.1 KiB
Fortran
! Variable Purpose Set in Thread
|
|
!---------------------------------------------------------------------------
|
|
integer NRXMAX !Max length of Rx ring buffers
|
|
integer NTXMAX !Max length of Tx waveform in samples
|
|
parameter(NRXMAX=2097152) ! =2048*1024
|
|
parameter(NTXMAX=1653750) ! =150*11025
|
|
real*8 tbuf !Tsec at time of input callback SoundIn
|
|
integer ntrbuf !(obsolete?)
|
|
real*8 Tsec !Present time SoundIn,SoundOut
|
|
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
|
|
real*8 txsnrdb !SNR for simulations GUI
|
|
integer*2 y1 !Ring buffer for audio channel 0 SoundIn
|
|
integer*2 y2 !Ring buffer for audio channel 1 SoundIn
|
|
integer nmax !Actual length of Rx ring buffers GUI
|
|
integer iwrite !Write pointer to Rx ring buffer SoundIn
|
|
integer iread !Read pointer to Rx ring buffer GUI
|
|
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 Receiving !Actually receiving? SoundIn
|
|
integer Transmitting !Actually transmitting? SoundOut
|
|
integer TxFirst !Transmit first? GUI
|
|
integer TRPeriod !Tx or Rx period in seconds GUI
|
|
integer ibuf !Most recent input buffer# SoundIn
|
|
integer ibuf0 !Buffer# at start of Rx sequence SoundIn
|
|
real ave !(why is this here?) GUI
|
|
real rms !(why is this here?) GUI
|
|
integer ngo !Set to 0 to terminate audio streams GUI
|
|
integer level !S-meter level, 0-100 GUI
|
|
integer mute !True means "don't transmit" GUI
|
|
integer newdat !New data available for waterfall? GUI
|
|
integer ndsec !Dsec in units of 0.1 s GUI
|
|
integer ndevin !Device# for audio input GUI
|
|
integer ndevout !Device# for audio output GUI
|
|
integer mfsample !Measured sample rate, input SoundIn
|
|
integer mfsample2 !Measured sample rate, output SoundOut
|
|
integer ns0 !Time at last ALL.TXT date entry Decoder
|
|
character*12 devin_name,devout_name ! GUI
|
|
|
|
common/gcom1/Tbuf(1024),ntrbuf(1024),Tsec,rxdelay,txdelay, &
|
|
samfacin,samfacout,txsnrdb,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,mfsample,mfsample2,ns0,devin_name,devout_name
|
|
|
|
!### volatile /gcom1/
|
|
|