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

Merge branch 'feat-ft2' of bitbucket.org:k1jt/wsjtx into feat-ft2

Browse Source
This commit is contained in:
Steve Franke 2019-02-08 15:17:52 -06:00
commit 0f03d02e74
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft4/clockit.f90
View File

@ -103,7 +103,7 @@ subroutine clockit(dname,k)
entry clockit2(data_dir)
l1=index(data_dir,char(0))-1
data_dir(l1+1:l1+1)='/'
if(l1.ge.1) data_dir(l1+1:l1+1)='/'
fname=data_dir(1:l1+1)//'clockit.out'
return

2
lib/ft4/ft4_decode.f90
View File

@ -418,7 +418,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso,iwave,
write(line,1000) hhmmss,nsnr,tsig,nint(freq),message
1000 format(a6,i4,f5.1,i5,' + ',1x,a37)
l1=index(data_dir,char(0))-1
data_dir(l1+1:l1+1)="/"
if(l1.ge.1) data_dir(l1+1:l1+1)="/"
fname=data_dir(1:l1+1)//'all_ft4.txt'
open(24,file=trim(fname),status='unknown',position='append')
write(24,1002) cdatetime0,nsnr,tsig,nint(freq),message, &