From 0b709251edd7a0b71fc523bd6e030f6c920e14f0 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 8 May 2024 16:32:22 -0400
Subject: [PATCH] Another try at fixing embedded blanks in a path name.

---
 lib/decoder.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 2302dc786..5d4834333 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -147,7 +147,11 @@ 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'
+        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) print*,trim(cmnd),' failed'
      else