w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Still trying to make data_dir work under all conditions. This makes it work with ft4d.

Browse Source
This commit is contained in:
Steven Franke 2019-02-08 11:24:22 -06:00
parent e3830dcb27
commit 7d70c5e9e1
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) entry clockit2(data_dir)
l1=index(data_dir,char(0))-1 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' fname=data_dir(1:l1+1)//'clockit.out'
return return

2
lib/ft4/ft4_decode.f90
View File

@ -412,7 +412,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso,iwave,
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)
l1=index(data_dir,char(0))-1 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' fname=data_dir(1:l1+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, &