w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 04:28:36 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove support for directory paths with embedded blanks, as the previous code can lead to problems on macOS and Linux.

Browse Source
This commit is contained in:
Uwe Risse 2024-07-18 12:02:48 +02:00
parent 3935c4997e
commit 13b66c111f
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/decoder.f90
View File

@ -52,7 +52,6 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
character(len=20) :: datetime
character(len=12) :: mycall, hiscall
character(len=6) :: mygrid, hisgrid
character(len=256) :: cmnd
character*60 line
data ndec8/0/,ntr0/-1/
save
@ -147,13 +146,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
access='stream')
write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000)
close(47)
cmnd=trim(exe_dir)//'/sfrx '//'"'//trim(temp_dir)//'/fort.47"'
i1=index(cmnd,'fort.47')
do i=1,i1
if(cmnd(i:i).eq.char(92)) cmnd(i:i)='/'
enddo
call execute_command_line(cmnd,exitstat=ierr)
if(ierr.ne.0) call execute_command_line('.\sfrx '//'"'//trim(temp_dir)//'/fort.47"')
call execute_command_line(trim(exe_dir)//'/sfrx '//'"'//trim(temp_dir)//'/fort.47"')
else
call timer('decft8 ',0)
newdat=params%newdat