From 9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 24 May 2021 14:48:46 -0400
Subject: Fixed skip_first issue on Linux

---
 common/utilities.F90 | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'common/utilities.F90')

diff --git a/common/utilities.F90 b/common/utilities.F90
index 8d277f9..dbd0423 100644
--- a/common/utilities.F90
+++ b/common/utilities.F90
@@ -441,10 +441,13 @@ contains
         logical, dimension(:), allocatable::is_real_file
         
         integer::unum, ierr, i, n, j
+        logical::skip_first
         
         tempfile => generate_temporary_filename()
         res => null()
 
+        skip_first = .FALSE.
+        
 #ifdef WINDOWS
         call execute_command_line("dir /b/a-d-h "//trim(directory)//" > "//trim(tempfile), &
                                   wait=.true.)
@@ -490,7 +493,11 @@ contains
                 
             ! Now we can read files
             i = 0
-            j = 0
+            if(skip_first) then
+                j = 1
+            else
+                j = 0
+            end if
             
             read(unum, '(A)', iostat=ierr) line
             do while(ierr == 0 .and. i < n)
-- 
cgit v1.2.3