diff options
Diffstat (limited to 'common')
| -rw-r--r-- | common/utilities.F90 | 9 |
1 files changed, 2 insertions, 7 deletions
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) |