diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-27 20:10:30 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-27 20:10:30 -0400 |
| commit | fae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4 (patch) | |
| tree | 92f1cb22f3331a3993b1345f44f000bf5797a0fb | |
| parent | da7eca3be90ac97534145a3c141bcb8a45a6fdeb (diff) | |
| download | levitating-fae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4.tar.gz levitating-fae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4.zip | |
Fixed issue with reading file contents into a buffer, now using size instead of len.
| -rw-r--r-- | common/utilities.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/common/utilities.F90 b/common/utilities.F90 index 3ba2ff5..f9868be 100644 --- a/common/utilities.F90 +++ b/common/utilities.F90 @@ -129,14 +129,14 @@ contains implicit none integer, intent(in)::unit_number - character, dimension(*), intent(out)::buffer + character, dimension(:), intent(out)::buffer integer::read_into_buffer integer::i, ierr ierr = 0 i = 0 - do while(ierr == 0 .and. i < len(buffer)) + do while(ierr == 0 .and. i < size(buffer)) i = i + 1 read(unit_number, iostat=ierr) buffer(i) end do |