w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-01 01:15:16 -04:00
Code Issues Packages Projects Releases Wiki Activity

Call routine get_q65_tones when generating q65 waveforms.

Browse Source
This commit is contained in:
Steven Franke 2021-05-06 10:27:43 -05:00
parent c414a3261b
commit 49588fde96
2 changed files with 12 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
map65/libm65/gen_q65_cwave.f90
View File

@ -3,41 +3,23 @@ subroutine gen_q65_cwave(msg,ntxfreq,ntone_spacing,msgsent,cwave,nwave)
! Encodes a Q65 message to yield complex cwave() at fsample = 96000 Hz ! Encodes a Q65 message to yield complex cwave() at fsample = 96000 Hz
use packjt use packjt
use q65_encoding
parameter (NMAX=60*96000) parameter (NMAX=60*96000)
character*22 msg character*22 msg
character*22 msgsent !Message as it will be received character*22 msgsent !Message as it will be received
character*120 cmnd character*37 msg37
character*80 wsjtx_dir
character*16 cjunk
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
complex cwave(NMAX) complex cwave(NMAX)
integer itone(85) integer codeword(65),itone(85)
integer icos7(0:6) integer icos7(0:6)
data icos7/2,5,6,0,4,1,3/ !Defines a 7x7 Costas array data icos7/2,5,6,0,4,1,3/ !Defines a 7x7 Costas array
data twopi/6.283185307179586476d0/ data twopi/6.283185307179586476d0/
save save
open(9,file='wsjtx_dir.txt',status='old')
read(9,'(a)') wsjtx_dir
close(9)
msgsent=msg msgsent=msg
! 1 2 3 4 5 msg37=''
! 12345678901234567890123456789012345678901234567890123456789012345 msg37(1:22)=msg
cmnd='q65sim "K1ABC W9XYZ EN37 " A 1500 0 0 0 0 60 0 99 >itone.txt' call get_q65_tones(msg37,codeword,itone)
cmnd(9:30)=msg
write(cmnd(35:38),'(i4)') ntxfreq
cmnd=trim(wsjtx_dir)//cmnd
call execute_command_line(cmnd)
open(9,file='itone.txt',status='old')
do i=1,99
read(9,1000,end=999) cjunk
1000 format(a16)
if(cjunk.eq.'Channel symbols:') exit
enddo
read(9,1002) itone
1002 format(20i3)
close(9)
! Set up necessary constants ! Set up necessary constants
nsym=85 nsym=85

30
map65/libm65/gen_q65_wave.f90
View File

@ -3,41 +3,23 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
! Encodes a QRA64 message to yield complex iwave() at fsample = 11025 Hz ! Encodes a QRA64 message to yield complex iwave() at fsample = 11025 Hz
use packjt use packjt
use q65_encoding
parameter (NMAX=2*60*11025) parameter (NMAX=2*60*11025)
character*22 msg character*22 msg
character*22 msgsent !Message as it will be received character*22 msgsent !Message as it will be received
character*120 cmnd character*37 msg37
character*80 wsjtx_dir
character*16 cjunk
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
integer itone(85) integer codeword(65),itone(85)
integer*2 iwave(NMAX) integer*2 iwave(NMAX)
integer icos7(0:6) integer icos7(0:6)
data icos7/2,5,6,0,4,1,3/ !Defines a 7x7 Costas array data icos7/2,5,6,0,4,1,3/ !Defines a 7x7 Costas array
data twopi/6.283185307179586476d0/ data twopi/6.283185307179586476d0/
save save
open(9,file='wsjtx_dir.txt',status='old')
read(9,'(a)') wsjtx_dir
close(9)
msgsent=msg msgsent=msg
! 1 2 3 4 5 msg37=''
! 12345678901234567890123456789012345678901234567890123456789012345 msg37(1:22)=msg
cmnd='q65sim "K1ABC W9XYZ EN37 " A 1500 0 0 0 0 60 0 99 >itone.txt' call get_q65_tones(msg37,codeword,itone)
cmnd(9:30)=msg
write(cmnd(35:38),'(i4)') ntxfreq
cmnd=trim(wsjtx_dir)//cmnd
call execute_command_line(cmnd)
open(9,file='itone.txt',status='old')
do i=1,99
read(9,1000,end=999) cjunk
1000 format(a16)
if(cjunk.eq.'Channel symbols:') exit
enddo
read(9,1002) itone
1002 format(20i3)
close(9)
! Set up necessary constants ! Set up necessary constants
nsym=85 nsym=85