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

Remove dependence on wsjtx_dir.txt -- we don't need it now.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-22 14:56:57 -04:00
parent 96ee2bfac1
commit f3b6a06c96
2 changed files with 6 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
map65/libm65/gen_q65_wave.f90
View File

@ -13,18 +13,11 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
integer itone(85) integer itone(85)
integer*2 iwave(NMAX) integer*2 iwave(NMAX)
integer icos7(0:6) integer icos7(0:6)
logical first
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/,first/.true./ data twopi/6.283185307179586476d0/
save save
if(first) then wsjtx_dir='.\'
open(9,file='wsjtx_dir.txt',status='old')
read(9,*) wsjtx_dir
close(9)
first=.false.
endif
msgsent=msg msgsent=msg
! 1 2 3 4 5 ! 1 2 3 4 5
! 12345678901234567890123456789012345678901234567890123456789012345 ! 12345678901234567890123456789012345678901234567890123456789012345
@ -41,6 +34,7 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
enddo enddo
read(9,1002) itone read(9,1002) itone
1002 format(20i3) 1002 format(20i3)
close(9)
! Set up necessary constants ! Set up necessary constants
nsym=85 nsym=85

11
map65/libm65/q65b.f90
View File

@ -9,7 +9,7 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
integer*2 iwave(60*12000) integer*2 iwave(60*12000)
complex ca(MAXFFT1),cb(MAXFFT1) !FFTs of raw x,y data complex ca(MAXFFT1),cb(MAXFFT1) !FFTs of raw x,y data
complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2) complex cx(0:MAXFFT2-1),cy(0:MAXFFT2-1),cz(0:MAXFFT2)
logical xpol,first logical xpol
real*8 fcenter real*8 fcenter
character*12 mycall0,hiscall0 character*12 mycall0,hiscall0
character*12 mycall,hiscall character*12 mycall,hiscall
@ -22,15 +22,8 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
character*15 fname character*15 fname
character*80 wsjtx_dir character*80 wsjtx_dir
common/cacb/ca,cb common/cacb/ca,cb
data first/.true./
save save
wsjtx_dir='.\'
if(first) then
open(9,file='wsjtx_dir.txt',status='old')
read(9,'(a)') wsjtx_dir
close(9)
first=.false.
endif
mycall='K1JT' mycall='K1JT'
hiscall='IV3NWV' hiscall='IV3NWV'