diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 14:30:31 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 14:30:31 -0400 |
| commit | 4ecc34867dcea7dc30125e716329b0b8955fa080 (patch) | |
| tree | bde48e3b4bc9267c272a4743a4ae83daa000cf38 /common | |
| parent | ce036a72ca597a9dd3b19fb1f9871c01376a5361 (diff) | |
| download | levitating-4ecc34867dcea7dc30125e716329b0b8955fa080.tar.gz levitating-4ecc34867dcea7dc30125e716329b0b8955fa080.zip | |
Removed unitialized logical from file listing routine. Fixed Windows project reference to utilities.F90.
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) |