From d388ee85ddf8f9a78bb13aecff4a099e556ba7c2 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 8 May 2024 12:27:19 -0400 Subject: [PATCH] Protect against path names with embedded blanks. --- lib/decoder.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 59fbc82e5..947420724 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -147,8 +147,9 @@ 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' - call execute_command_line(cmnd) + cmnd='"'//trim(exe_dir)//'/sfrx" "'//trim(temp_dir)//'/fort.47"' + call execute_command_line(cmnd,exitstat=ierr) + if(ierr.ne.0) print*,trim(cmnd),' failed' else call timer('decft8 ',0) newdat=params%newdat