aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)