From 4ecc34867dcea7dc30125e716329b0b8955fa080 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 24 May 2021 14:30:31 -0400
Subject: Removed unitialized logical from file listing routine.  Fixed Windows
 project reference to utilities.F90.

---
 common/utilities.F90 | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'common')

diff --git a/common/utilities.F90 b/common/utilities.F90
index d96ec49..8d277f9 100644
--- a/common/utilities.F90
+++ b/common/utilities.F90
@@ -437,8 +437,7 @@ contains
         character(DIR_LIST_STRING_LENGTH), dimension(:), pointer::res
         character(80)::line
         character(len=:), pointer::tempfile
-        
-        logical::skip_first
+
         logical, dimension(:), allocatable::is_real_file
         
         integer::unum, ierr, i, n, j
@@ -491,11 +490,7 @@ contains
                 
             ! Now we can read files
             i = 0
-            if(skip_first) then
-                j = 1
-            else
-                j = 0
-            end if
+            j = 0
             
             read(unum, '(A)', iostat=ierr) line
             do while(ierr == 0 .and. i < n)
-- 
cgit v1.2.3