From 13b66c111f99bb83e4ac18fa66f0d3f4109992de Mon Sep 17 00:00:00 2001
From: Uwe Risse <dg2ycb@gmx.de>
Date: Thu, 18 Jul 2024 12:02:48 +0200
Subject: [PATCH] Remove support for directory paths with embedded blanks, as
 the previous code can lead to problems on macOS and Linux.

---
 lib/decoder.f90 | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 3080bdbfc..fe6a31676 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -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