aboutsummaryrefslogtreecommitdiff
path: root/common
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-04-27 20:10:30 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-04-27 20:10:30 -0400
commitfae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4 (patch)
tree92f1cb22f3331a3993b1345f44f000bf5797a0fb /common
parentda7eca3be90ac97534145a3c141bcb8a45a6fdeb (diff)
downloadlevitating-fae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4.tar.gz
levitating-fae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4.zip
Fixed issue with reading file contents into a buffer, now using size instead of len.
Diffstat (limited to 'common')
-rw-r--r--common/utilities.F904
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