w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 16:31:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

Path to jt9 and q65sim must be in wsjtx_dir.txt, in the map65.exe directory.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-07 18:46:05 -04:00
parent 644aead6b7
commit 0f7e915798
2 changed files with 33 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
libm65/gen_q65_wave.f90
View File

@ -7,6 +7,7 @@ subroutine gen_q65_wave(msg,ichk,ntxfreq,mode65,itype,msgsent,iwave,nwave)
character*22 msg
character*22 msgsent !Message as it will be received
character*120 cmnd
character*80 wsjtx_dir
character*16 cjunk
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
integer itone(85)
@ -14,17 +15,25 @@ subroutine gen_q65_wave(msg,ichk,ntxfreq,mode65,itype,msgsent,iwave,nwave)
integer sent(63)
integer*2 iwave(NMAX)
integer icos7(0:6)
logical first
data icos7/2,5,6,0,4,1,3/ !Defines a 7x7 Costas array
data twopi/6.283185307179586476d0/
data twopi/6.283185307179586476d0/,first/.true./
save
if(first) then
open(9,file='wsjtx_dir.txt',status='old')
read(9,*) wsjtx_dir
close(9)
first=.false.
endif
msgsent=msg
! 1 2 3 4 5
! 12345678901234567890123456789012345678901234567890123456789012345
cmnd='q65sim "K1ABC W9XYZ EN37 " A 1500 0 0 0 0 60 0 99 >itone.txt'
cmnd(9:30)=msg
write(cmnd(35:38),'(i4)') ntxfreq
cmnd='\WSJT-X\install\bin\\'//cmnd
cmnd=trim(wsjtx_dir)//cmnd
call execute_command_line(cmnd)
open(9,file='itone.txt',status='old')
do i=1,99

34
libm65/q65b.f90
View File

@ -9,7 +9,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
integer*2 iwave(60*12000)
complex ca(MAXFFT1),cb(MAXFFT1) !FFTs of raw x,y data
complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2-1)
logical xpol
logical xpol,first
real*8 fcenter
character*12 mycall0,hiscall0
character*12 mycall,hiscall
@ -20,7 +20,17 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
character*80 line2
character*40 msg40
character*15 fname
character*80 wsjtx_dir
common/cacb/ca,cb
data first/.true./
save
if(first) then
open(9,file='wsjtx_dir.txt',status='old')
read(9,*) wsjtx_dir
close(9)
first=.false.
endif
mycall='K1JT'
hiscall='IV3NWV'
@ -65,14 +75,14 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
! write(77,*) nutc,ikhz,mousedf,ntol
! 1 2 3 4 5 6 7 8 9 10 11 12
! 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901'
cmnd='\WSJT-X\install\bin\jt9 -3 -X 32 -f 1079 -F 1000 -c MyCall -x HisCall -g FN42 000000_0001.wav > q65_decodes.txt'
write(cmnd(37:40),'(i4)') 1000
write(cmnd(45:48),'(i4)') ntol
write(cmnd(53:64),'(a12)') mycall
write(cmnd(68:79),'(a12)') hiscall
write(cmnd(83:86),'(a4)') grid4
! 1 2 3 4 5 6 7 8 9 10
! 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901'
cmnd='jt9 -3 -X 32 -f 1079 -F 1000 -c MyCall -x HisCall -g FN42 000000_0001.wav > q65_decodes.txt'
write(cmnd(17:20),'(i4)') 1000
write(cmnd(25:28),'(i4)') ntol
write(cmnd(33:44),'(a12)') mycall
write(cmnd(48:59),'(a12)') hiscall
write(cmnd(63:66),'(a4)') grid4
fname='000000_0001.wav'
npol=1
if(xpol) npol=4
@ -93,9 +103,9 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
open(25,file=fname,access='stream',status='unknown')
write(25) h,iwave
close(25)
write(cmnd(98:98),'(i1)') ipol
if(ipol.eq.2) cmnd(104:104)='>'
call execute_command_line(trim(cmnd))
write(cmnd(78:78),'(i1)') ipol
if(ipol.eq.2) cmnd(84:84)='>'
call execute_command_line(trim(trim(wsjtx_dir)//cmnd))
enddo
open(24,file='q65_decodes.txt',status='unknown')