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

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

View File

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

View File

@ -9,7 +9,7 @@ subroutine q65b(nutc,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)
logical xpol,first
logical xpol
real*8 fcenter
character*12 mycall0,hiscall0
character*12 mycall,hiscall
@ -22,15 +22,8 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
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,'(a)') wsjtx_dir
close(9)
first=.false.
endif
wsjtx_dir='.\'
mycall='K1JT'
hiscall='IV3NWV'