mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-25 13:48:42 -05:00
Completed brief documentation of all variables in gcom?.f90.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@25 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
parent
adf00024bf
commit
12f5fd600d
29
gcom1.f90
29
gcom1.f90
@ -1,34 +1,47 @@
|
|||||||
parameter(NRxMax=2048*1024)
|
|
||||||
parameter(NTxMax=150*11025)
|
|
||||||
|
|
||||||
! Variable Purpose Set in Thread
|
! Variable Purpose Set in Thread
|
||||||
!---------------------------------------------------------------------------
|
!---------------------------------------------------------------------------
|
||||||
real*8 Tsec !Present time SoundIn, SoundOut
|
integer NRXMAX !Max length of Rx ring buffers
|
||||||
|
integer NTXMAX !Max length of Tx waveform in samples
|
||||||
|
parameter(NRXMAX=2048*1024)
|
||||||
|
parameter(NTXMAX=150*11025)
|
||||||
real*8 tbuf !Tsec at time of input callback SoundIn
|
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 rxdelay !Delay between PTT=1 and Tx audio SoundIn
|
||||||
real*8 txdelay !Delay from end of Tx Audio and PTT=0 SoundOut
|
real*8 txdelay !Delay from end of Tx Audio and PTT=0 SoundOut
|
||||||
real*8 samfacin !(Input sample rate)/11025 GUI
|
real*8 samfacin !(Input sample rate)/11025 GUI
|
||||||
real*8 samfacout !(Output sample rate)/11025 GUI
|
real*8 samfacout !(Output sample rate)/11025 GUI
|
||||||
integer*2 y1 !Ring buffer for audio channel 0 SoundIn
|
integer*2 y1 !Ring buffer for audio channel 0 SoundIn
|
||||||
integer*2 y2 !Ring buffer for audio channel 1 SoundIn
|
integer*2 y2 !Ring buffer for audio channel 1 SoundIn
|
||||||
integer iwrite !Write pointer to ring buffer 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*2 iwave !Data for audio output SoundIn
|
||||||
integer nwave !Number of samples in iwave SoundIn
|
integer nwave !Number of samples in iwave SoundIn
|
||||||
integer TxOK !OK to transmit? SoundIn
|
integer TxOK !OK to transmit? SoundIn
|
||||||
! NB: TxOK=1 only in SoundIn; TxOK=0 also in GUI
|
! NB: TxOK=1 only in SoundIn; TxOK=0 also in GUI
|
||||||
integer TxFirst !Transmit first? GUI
|
|
||||||
integer Receiving !Actually receiving? SoundIn
|
integer Receiving !Actually receiving? SoundIn
|
||||||
integer Transmitting !Actually transmitting? SoundOut
|
integer Transmitting !Actually transmitting? SoundOut
|
||||||
|
integer TxFirst !Transmit first? GUI
|
||||||
integer TRPeriod !Tx or Rx period in seconds 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 level !S-meter level, 0-100 GUI
|
||||||
integer mute !True means "don't transmit" 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 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 nx !x coordinate for waterfall pixmap GUI
|
||||||
integer mfsample !Measured sample rate, input SoundIn
|
integer mfsample !Measured sample rate, input SoundIn
|
||||||
integer mfsample2 !Measured sample rate, output SoundOut
|
integer mfsample2 !Measured sample rate, output SoundOut
|
||||||
|
integer ns0 !Time at last ALL.TXT date entry Decoder
|
||||||
|
|
||||||
common/gcom1/Tbuf(1024),ntrbuf(1024),Tsec,rxdelay,txdelay, &
|
common/gcom1/Tbuf(1024),ntrbuf(1024),Tsec,rxdelay,txdelay, &
|
||||||
samfacin,samfacout,y1(NRxMax),y2(NRxMax), &
|
samfacin,samfacout,y1(NRXMAX),y2(NRXMAX), &
|
||||||
nmax,iwrite,iread,iwave(NTXMAX),nwave,TxOK,Receiving,Transmitting, &
|
nmax,iwrite,iread,iwave(NTXMAX),nwave,TxOK,Receiving,Transmitting, &
|
||||||
TxFirst,TRPeriod,ibuf,ibuf0,ave,rms,ngo,level,mute,newdat,ndsec, &
|
TxFirst,TRPeriod,ibuf,ibuf0,ave,rms,ngo,level,mute,newdat,ndsec, &
|
||||||
ndevin,ndevout,nx,mfsample,mfsample2,ns0
|
ndevin,ndevout,nx,mfsample,mfsample2,ns0
|
||||||
|
|||||||
65
gcom2.f90
65
gcom2.f90
@ -2,14 +2,69 @@
|
|||||||
!-------------------------------------------------------------------------
|
!-------------------------------------------------------------------------
|
||||||
real ps0 !Spectrum of best ping, FSK441/JT6m Decoder
|
real ps0 !Spectrum of best ping, FSK441/JT6m Decoder
|
||||||
real psavg !Average spectrum Decoder
|
real psavg !Average spectrum Decoder
|
||||||
integer*2 d2a !Rx data, extracted from y1 Decoder
|
real s2 !2d spectrum for horizontal waterfall GUI
|
||||||
integer*2 d2b !Rx data, selected by mouse-pick Decoder
|
real ccf !CCF in time (blue curve) Decoder
|
||||||
integer*2 b !Pixel values for waterfall spectrum GUI
|
real green !Data for green line GUI
|
||||||
integer shok !Shorthand messages OK? GUI
|
integer ngreen !Length of green GUI
|
||||||
integer sendingsh !Sending a shorthand message? SoundIn
|
real dgain !Digital audio gain setting GUI
|
||||||
|
integer iter !(why is this here??)
|
||||||
|
integer ndecoding !Decoder status (see decode2.f90) GUI,Decoder
|
||||||
|
integer ndecoding0 !Status on previous decode GUI,Decoder
|
||||||
|
integer mousebutton !Which button was clicked? GUI
|
||||||
|
integer ndecdone !Is decoder finished? GUI,Decoder
|
||||||
|
integer npingtime !Time in file of mouse-selected ping GUI,Decoder
|
||||||
|
integer ierr !(why is this here?)
|
||||||
|
integer lauto !Are we in Auto mode? GUI
|
||||||
|
integer mantx !Manual transmission requested? GUI,SoundIn
|
||||||
|
integer nrestart !True if transmission should restart GUI,SoundIn
|
||||||
|
integer ntr !Are we in 2nd sequence? SoundIn
|
||||||
|
integer nmsg !Length of Tx message SoundIn
|
||||||
|
integer nsave !Which files to save? GUI
|
||||||
integer dftolerance !DF tolerance (Hz) GUI
|
integer dftolerance !DF tolerance (Hz) GUI
|
||||||
logical LDecoded !Was a message decoded? Decoder
|
logical LDecoded !Was a message decoded? Decoder
|
||||||
logical rxdone !Has the Rx sequence finished? SoundIn,Decoder
|
logical rxdone !Has the Rx sequence finished? SoundIn,Decoder
|
||||||
|
integer monitoring !Are we monitoring? GUI
|
||||||
|
integer nzap !Is Zap checked? GUI
|
||||||
|
integer nsavecum !(why is this here?)
|
||||||
|
integer minsigdb !Decoder threshold setting GUI
|
||||||
|
integer nclearave !Set to 1 to clear JT65 avg GUI,Decoder
|
||||||
|
integer nfreeze !Is Freeze checked? GUI
|
||||||
|
integer nafc !Is AFC checked? GUI
|
||||||
|
integer nmode !Which WSJT mode? GUI,Decoder
|
||||||
|
integer mode65 !JT65 sub-mode (A/B/C ==> 1/2/4) GUI,SoundIn,Decoder
|
||||||
|
integer nclip !Clipping level GUI
|
||||||
|
integer ndebug !Write debugging info? GUI
|
||||||
|
integer nblank !Is NB checked? GUI
|
||||||
|
integer nport !Requested COM port number GUI
|
||||||
|
integer mousedf !Mouse-selected freq offset, DF GUI
|
||||||
|
integer neme !EME calls only in deep search? GUI
|
||||||
|
integer nsked !Sked mode for deep search? GUI
|
||||||
|
integer naggressive !Is "Aggressive decoding" checked? GUI
|
||||||
|
integer ntx2 !Is "No shorthands if Tx1" checked? GUI
|
||||||
|
integer nslim2 !2nd Decoder threshold for FSK441. JT6M GUI
|
||||||
|
integer nagain !Decode same file again? GUI
|
||||||
|
integer nsavelast !Save last file? GUI
|
||||||
|
integer shok !Shorthand messages OK? GUI
|
||||||
|
integer sendingsh !Sending a shorthand message? SoundIn
|
||||||
|
integer*2 d2a !Rx data, extracted from y1 Decoder
|
||||||
|
integer*2 d2b !Rx data, selected by mouse-pick Decoder
|
||||||
|
integer*2 b !Pixel values for waterfall spectrum GUI
|
||||||
|
integer jza !Length of data in d2a GUI,Decoder
|
||||||
|
integer jzb !(why is this here?)
|
||||||
|
integer ntime !Integer Unix time (now) SoundIn
|
||||||
|
integer idinterval !Interval between CWIDs, minutes GUI
|
||||||
|
integer msmax !(why is this here?)
|
||||||
|
integer lenappdir !Length of Appdir string GUI
|
||||||
|
integer ndiskdat !1 if data read from disk, 0 otherwise GUI
|
||||||
|
integer nlines !Available lines of waterfall data GUI
|
||||||
|
integer nflat !Is waterfall to be flattened? GUI
|
||||||
|
integer ntxreq !Tx msg# requested GUI
|
||||||
|
integer ntxnow !Tx msg# being sent now GUI
|
||||||
|
integer ndepth !Requested "depth" of JT65 decoding GUI
|
||||||
|
integer nspecial !JT65 shorthand msg#: RO=2 RRR=3 73=4 Decoder
|
||||||
|
integer ndf !Measured DF in Hz Decoder
|
||||||
|
real ss1 !Magenta curve for JT65 shorthand msg Decoder
|
||||||
|
real ss2 !Orange curve for JT65 shorthand msg Decoder
|
||||||
character mycall*12 !My call sign GUI
|
character mycall*12 !My call sign GUI
|
||||||
character hiscall*12 !His call sign GUI
|
character hiscall*12 !His call sign GUI
|
||||||
character hisgrid*6 !His grid locator GUI
|
character hisgrid*6 !His grid locator GUI
|
||||||
|
|||||||
17
gcom3.f90
17
gcom3.f90
@ -1,5 +1,18 @@
|
|||||||
integer*2 nfmt2,nchan2,nbitsam2,nbytesam2
|
! Variable Purpose Set in Thread
|
||||||
character*4 ariff,awave,afmt,adata
|
!-------------------------------------------------------------------------
|
||||||
|
integer*2 nfmt2 !Standard header for *.WAV file Decoder
|
||||||
|
integer*2 nchan2
|
||||||
|
integer*2 nbitsam2
|
||||||
|
integer*2 nbytesam2
|
||||||
|
integer*4 nchunk
|
||||||
|
integer*4 lenfmt
|
||||||
|
integer*4 nsamrate
|
||||||
|
integer*4 nbytesec
|
||||||
|
integer*4 ndata
|
||||||
|
character*4 ariff
|
||||||
|
character*4 awave
|
||||||
|
character*4 afmt
|
||||||
|
character*4 adata
|
||||||
|
|
||||||
common/gcom3/ariff,nchunk,awave,afmt,lenfmt,nfmt2,nchan2,nsamrate, &
|
common/gcom3/ariff,nchunk,awave,afmt,lenfmt,nfmt2,nchan2,nsamrate, &
|
||||||
nbytesec,nbytesam2,nbitsam2,adata,ndata
|
nbytesec,nbytesam2,nbitsam2,adata,ndata
|
||||||
|
|||||||
@ -1,6 +1,9 @@
|
|||||||
integer*2 d2c
|
! Variable Purpose Set in Thread
|
||||||
character filename*24
|
!-------------------------------------------------------------------------
|
||||||
character addpfx*4
|
character addpfx*4 !Add-on prefix, as in ZA/PA2CHR GUI
|
||||||
|
integer*2 d2c !Rx data recovered from recorded file GUI
|
||||||
|
integer jzc !Length of data available in d2c GUI
|
||||||
|
character filename*24 !Name of wave file read from disk GUI
|
||||||
|
|
||||||
common/gcom4/addpfx,d2c(661500),jzc,filename
|
common/gcom4/addpfx,d2c(661500),jzc,filename
|
||||||
|
|
||||||
|
|||||||
3
spec.f90
3
spec.f90
@ -1,6 +1,3 @@
|
|||||||
|
|
||||||
!---------------------------------------------------- End Module Audio1
|
|
||||||
|
|
||||||
!---------------------------------------------------- spec
|
!---------------------------------------------------- spec
|
||||||
subroutine spec(brightness,contrast,logmap,ngain,nspeed,a)
|
subroutine spec(brightness,contrast,logmap,ngain,nspeed,a)
|
||||||
|
|
||||||
|
|||||||
2
wsjt.py
2
wsjt.py
@ -1,4 +1,4 @@
|
|||||||
#---------------------------------------------------------- WSJT
|
#--------------------------------------------------------- WSJT
|
||||||
from Tkinter import *
|
from Tkinter import *
|
||||||
from tkFileDialog import *
|
from tkFileDialog import *
|
||||||
import Pmw
|
import Pmw
|
||||||
|
|||||||
4
wsjt1.f
4
wsjt1.f
@ -35,8 +35,8 @@
|
|||||||
real s2(64,3100) !2D spectral array
|
real s2(64,3100) !2D spectral array
|
||||||
real ccf(-5:540) !X-cor function in JT65 mode (blue line)
|
real ccf(-5:540) !X-cor function in JT65 mode (blue line)
|
||||||
real red(512)
|
real red(512)
|
||||||
real ss1(-224:224) !Lower magenta curve (for JT65 shorthands)
|
real ss1(-224:224) !Magenta curve (for JT65 shorthands)
|
||||||
real ss2(-224:224) !Upper magenta curve (for JT65 shorthands)
|
real ss2(-224:224) !Orange curve (for JT65 shorthands)
|
||||||
real yellow(216)
|
real yellow(216)
|
||||||
real yellow0(216)
|
real yellow0(216)
|
||||||
real fzap(200)
|
real fzap(200)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user