diff options
Diffstat (limited to 'common')
| -rw-r--r-- | common/utilities.F90 | 9 |
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) |