mirror of https://github.com/saitohirga/WSJT-X.git
Make writing to data_dir work on the Mac.
This commit is contained in:
parent
22209030e2
commit
40fd3f6551
|
@ -102,8 +102,7 @@ subroutine clockit(dname,k)
|
||||||
return
|
return
|
||||||
|
|
||||||
entry clockit2(data_dir)
|
entry clockit2(data_dir)
|
||||||
i0=index(data_dir,char(0))
|
fname=trim(data_dir)//'/clockit.out'
|
||||||
fname=trim(data_dir(1:i0-1))//'/clockit.out'
|
|
||||||
return
|
return
|
||||||
|
|
||||||
end subroutine clockit
|
end subroutine clockit
|
||||||
|
|
|
@ -271,8 +271,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nfqso,iwave,ndecodes,mycall, &
|
||||||
|
|
||||||
write(line,1000) hhmmss,nsnr,tsig,nint(freq),message
|
write(line,1000) hhmmss,nsnr,tsig,nint(freq),message
|
||||||
1000 format(a6,i4,f5.1,i5,' + ',1x,a37)
|
1000 format(a6,i4,f5.1,i5,' + ',1x,a37)
|
||||||
i0=index(data_dir,char(0))
|
fname=trim(data_dir)//'/all_ft4.txt'
|
||||||
fname=trim(data_dir(1:i0-1))//'/all_ft4.txt'
|
|
||||||
open(24,file=trim(fname),status='unknown',position='append')
|
open(24,file=trim(fname),status='unknown',position='append')
|
||||||
write(24,1002) cdatetime0,nsnr,tsig,nint(freq),message, &
|
write(24,1002) cdatetime0,nsnr,tsig,nint(freq),message, &
|
||||||
nharderror,nsync_qual,isd,niterations
|
nharderror,nsync_qual,isd,niterations
|
||||||
|
|
|
@ -42,7 +42,6 @@ program ft4d
|
||||||
read(arg,*) fMHz
|
read(arg,*) fMHz
|
||||||
iarg=iarg+2
|
iarg=iarg+2
|
||||||
endif
|
endif
|
||||||
ncoh=1
|
|
||||||
nfa=200
|
nfa=200
|
||||||
nfb=3000
|
nfb=3000
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue