mirror of https://github.com/saitohirga/WSJT-X.git
Documented gcom2.f90; added pix2d, pix2d65, blanker to compile scripts.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@23 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
5d75fc664c
commit
2d3261fc9a
2
g1
2
g1
|
@ -1 +1 @@
|
||||||
python f2py.py -c --quiet --opt="-O -cpp -DLinux -fno-second-underscore" init_rs.o encode_rs.o decode_rs.o -m Audio --"f77exec=/home/joe/bin/g95" --f90exec="/home/joe/bin/g95" -L//usr/lib/gcc-lib/i386-redhat-linux/3.2.2/ -lpthread -lg2c only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 : a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 makedate_sub.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f jtaudio.c ptt_linux.c wrapkarn.c start_threads.c cutil.c fivehz.f90
|
python f2py.py -c --quiet --opt="-O -cpp -DLinux -fno-second-underscore" init_rs.o encode_rs.o decode_rs.o -m Audio --"f77exec=/home/joe/bin/g95" --f90exec="/home/joe/bin/g95" -L//usr/lib/gcc-lib/i386-redhat-linux/3.2.2/ -lpthread -lg2c only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 : a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 blanker.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 pix2d.f90 pix2d65.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f jtaudio.c ptt_linux.c wrapkarn.c start_threads.c cutil.c fivehz.f90
|
||||||
|
|
2
g1.bat
2
g1.bat
|
@ -1,2 +1,2 @@
|
||||||
cl /c /DWin32 /Fojtaudio.o jtaudio.c
|
cl /c /DWin32 /Fojtaudio.o jtaudio.c
|
||||||
f2py.py -c --quiet --opt="/traceback /fast /fpp /define:Win32" init_rs.o encode_rs.o decode_rs.o jtaudio.o -lwinmm -lpa -llibsamplerate -m Audio --"fcompiler=compaqv" only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 : a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 makedate_sub.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f resample.c ptt.c wrapkarn.c fivehz.f90
|
f2py.py -c --quiet --opt="/traceback /fast /fpp /define:Win32" init_rs.o encode_rs.o decode_rs.o jtaudio.o -lwinmm -lpa -llibsamplerate -m Audio --"fcompiler=compaqv" only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 : a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 blanker65.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 pix2d.f90 pix2d65.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f resample.c ptt.c wrapkarn.c fivehz.f90
|
||||||
|
|
|
@ -6,7 +6,7 @@ parameter(NTxMax=150*11025)
|
||||||
real*8 Tsec !Present time SoundIn, SoundOut
|
real*8 Tsec !Present time SoundIn, SoundOut
|
||||||
real*8 tbuf !Tsec at time of input callback SoundIn
|
real*8 tbuf !Tsec at time of input callback SoundIn
|
||||||
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
|
||||||
|
|
36
gcom2.f90
36
gcom2.f90
|
@ -1,15 +1,29 @@
|
||||||
! Variable Purpose Set by
|
! Variable Purpose Set in Thread
|
||||||
!-------------------------------------------------------------------------
|
!-------------------------------------------------------------------------
|
||||||
real ps0 !Spectrum of best ping, FSK441/JT6m wsjt1
|
real ps0 !Spectrum of best ping, FSK441/JT6m Decoder
|
||||||
real psavg !Average spectrum wsjt1
|
real psavg !Average spectrum Decoder
|
||||||
integer*2 d2a,d2b,b
|
integer*2 d2a !Rx data, extracted from y1 Decoder
|
||||||
integer shok,sendingsh
|
integer*2 d2b !Rx data, selected by mouse-pick Decoder
|
||||||
integer dftolerance
|
integer*2 b !Pixel values for waterfall spectrum GUI
|
||||||
logical LDecoded,rxdone
|
integer shok !Shorthand messages OK? GUI
|
||||||
character mycall*12,hisgrid*6
|
integer sendingsh !Sending a shorthand message? SoundIn
|
||||||
character hiscall*12,txmsg*28,sending*28,mode*6,utcdate*12
|
integer dftolerance !DF tolerance (Hz) GUI
|
||||||
character*24 fname0,fnamea,fnameb,decodedfile
|
logical LDecoded !Was a message decoded? Decoder
|
||||||
character*80 AppDir,filetokilla,filetokillb
|
logical rxdone !Has the Rx sequence finished? SoundIn,Decoder
|
||||||
|
character mycall*12 !My call sign GUI
|
||||||
|
character hiscall*12 !His call sign GUI
|
||||||
|
character hisgrid*6 !His grid locator GUI
|
||||||
|
character txmsg*28 !Message to be transmitted GUI
|
||||||
|
character sending*28 !Message being sent SoundIn
|
||||||
|
character mode*6 !WSJT operating mode GUI
|
||||||
|
character utcdate*12 !UTC date GUI
|
||||||
|
character*24 fname0 !Filenames to be recorded, read, ... Decoder
|
||||||
|
character*24 fnamea
|
||||||
|
character*24 fnameb
|
||||||
|
character*24 decodedfile
|
||||||
|
character*80 AppDir !WSJT installation directory GUI
|
||||||
|
character*80 filetokilla !Filenames (full path) Decoder
|
||||||
|
character*80 filetokillb
|
||||||
|
|
||||||
common/gcom2/ps0(431),psavg(450),s2(64,3100),ccf(-5:540), &
|
common/gcom2/ps0(431),psavg(450),s2(64,3100),ccf(-5:540), &
|
||||||
green(500),ngreen,dgain,iter,ndecoding,ndecoding0,mousebutton, &
|
green(500),ngreen,dgain,iter,ndecoding,ndecoding0,mousebutton, &
|
||||||
|
|
15
makedate.f90
15
makedate.f90
|
@ -1,15 +0,0 @@
|
||||||
program makedate
|
|
||||||
|
|
||||||
#ifdef Win32
|
|
||||||
use dfport
|
|
||||||
#endif
|
|
||||||
|
|
||||||
open(10,file='makedate_sub.f90',status='unknown')
|
|
||||||
write(10,*) 'subroutine makedate_sub(isec)'
|
|
||||||
write(10,*) '!f2py intent(out) isec'
|
|
||||||
write(10,*) ' isec=',time()
|
|
||||||
write(10,*) ' return'
|
|
||||||
write(10,*) 'end subroutine makedate_sub'
|
|
||||||
|
|
||||||
end program makedate
|
|
||||||
|
|
|
@ -1,8 +1,3 @@
|
||||||
|
|
||||||
include 'pix2d.f90'
|
|
||||||
include 'pix2d65.f90'
|
|
||||||
include 'blanker.f90'
|
|
||||||
|
|
||||||
!----------------------------------------------------------- savedata
|
!----------------------------------------------------------- savedata
|
||||||
subroutine savedata
|
subroutine savedata
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue