aboutsummaryrefslogtreecommitdiff
path: root/common
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-05-24 14:48:46 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-05-24 14:48:46 -0400
commit9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1 (patch)
tree22bd4267ffeafbbf627e10256fcd17e3cacceaed /common
parent4ecc34867dcea7dc30125e716329b0b8955fa080 (diff)
downloadlevitating-9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1.tar.gz
levitating-9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1.zip
Fixed skip_first issue on Linux
Diffstat (limited to 'common')
-rw-r--r--common/utilities.F909
1 files changed, 8 insertions, 1 deletions
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)