From 22fe1a9e84cbd6ef6b075eca250460b21d4c2863 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 18 May 2021 08:42:33 -0400 Subject: Fixed listing available files on Windows --- common/utilities.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'common/utilities.F90') diff --git a/common/utilities.F90 b/common/utilities.F90 index d399bc1..b0afc8f 100644 --- a/common/utilities.F90 +++ b/common/utilities.F90 @@ -447,7 +447,7 @@ contains res => null() #ifdef WINDOWS - call execute_command_line("dir /b/a-d-h"//trim(directory)//" > "//trim(tempfile), & + call execute_command_line("dir /b/a-d-h "//trim(directory)//" > "//trim(tempfile), & wait=.true.) #else call execute_command_line("ls -l "//trim(directory)//" > "//trim(tempfile), & -- cgit v1.2.3