w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 12:52:28 -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=20) :: datetime
character(len=12) :: mycall, hiscall character(len=12) :: mycall, hiscall
character(len=6) :: mygrid, hisgrid character(len=6) :: mygrid, hisgrid
character(len=256) :: cmnd
character*60 line character*60 line
data ndec8/0/,ntr0/-1/ data ndec8/0/,ntr0/-1/
save save
@ -147,13 +146,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
access='stream') access='stream')
write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000) write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000)
close(47) close(47)
cmnd=trim(exe_dir)//'/sfrx '//'"'//trim(temp_dir)//'/fort.47"' call execute_command_line(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"')
else else
call timer('decft8 ',0) call timer('decft8 ',0)
newdat=params%newdat newdat=params%newdat