From fae4fd7edddf85c3bde3fb6a971eb3fdcffad2d4 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 27 Apr 2021 20:10:30 -0400 Subject: Fixed issue with reading file contents into a buffer, now using size instead of len. --- common/utilities.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'common/utilities.F90') 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 -- cgit v1.2.3