diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 14:48:46 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 14:48:46 -0400 |
| commit | 9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1 (patch) | |
| tree | 22bd4267ffeafbbf627e10256fcd17e3cacceaed /common | |
| parent | 4ecc34867dcea7dc30125e716329b0b8955fa080 (diff) | |
| download | levitating-9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1.tar.gz levitating-9cfaf50daf1497511315cd5c40ac2b4ed8a54bd1.zip | |
Fixed skip_first issue on Linux
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) |