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

Go back to using wsjtx_dir.txt, temporarily, for platform portability.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-23 18:59:34 -04:00
parent 8024c6a4c3
commit 34580f3a5b
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
map65/libm65/gen_q65_wave.f90
View File

@ -17,7 +17,10 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
data twopi/6.283185307179586476d0/ data twopi/6.283185307179586476d0/
save save
wsjtx_dir='./' open(9,file='wsjtx_dir.txt',status='old')
read(9,'(a)') wsjtx_dir
close(9)
msgsent=msg msgsent=msg
! 1 2 3 4 5 ! 1 2 3 4 5
! 12345678901234567890123456789012345678901234567890123456789012345 ! 12345678901234567890123456789012345678901234567890123456789012345

7
map65/libm65/q65b.f90
View File

@ -23,8 +23,11 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
character*80 wsjtx_dir character*80 wsjtx_dir
common/cacb/ca,cb common/cacb/ca,cb
save save
wsjtx_dir='./'
open(9,file='wsjtx_dir.txt',status='old')
read(9,'(a)') wsjtx_dir
close(9)
mycall='K1JT' mycall='K1JT'
hiscall='IV3NWV' hiscall='IV3NWV'
grid4='AA00' grid4='AA00'