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

Make writing to data_dir work on the Mac.

Browse Source
This commit is contained in:
Steve Franke 2019-02-02 11:04:11 -06:00
parent 22209030e2
commit 40fd3f6551
3 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/ft4/clockit.f90
View File

@ -102,8 +102,7 @@ subroutine clockit(dname,k)
return
entry clockit2(data_dir)
i0=index(data_dir,char(0))
fname=trim(data_dir(1:i0-1))//'/clockit.out'
fname=trim(data_dir)//'/clockit.out'
return
end subroutine clockit

3
lib/ft4/ft4_decode.f90
View File

@ -271,8 +271,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nfqso,iwave,ndecodes,mycall, &
write(line,1000) hhmmss,nsnr,tsig,nint(freq),message
1000 format(a6,i4,f5.1,i5,' + ',1x,a37)
i0=index(data_dir,char(0))
fname=trim(data_dir(1:i0-1))//'/all_ft4.txt'
fname=trim(data_dir)//'/all_ft4.txt'
open(24,file=trim(fname),status='unknown',position='append')
write(24,1002) cdatetime0,nsnr,tsig,nint(freq),message, &
nharderror,nsync_qual,isd,niterations

1
lib/ft4/ft4d.f90
View File

@ -42,7 +42,6 @@ program ft4d
read(arg,*) fMHz
iarg=iarg+2
endif
ncoh=1
nfa=200
nfb=3000