From bda8094ab0af0d92d6d2ffee5d2844b7152ea328 Mon Sep 17 00:00:00 2001 From: Eric Morway Date: Tue, 17 Oct 2023 08:23:20 -0700 Subject: [PATCH] Use a more descriptive name --- src/Utilities/InputOutput.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Utilities/InputOutput.f90 b/src/Utilities/InputOutput.f90 index 7f62ee7a89d..7759c30f1bd 100644 --- a/src/Utilities/InputOutput.f90 +++ b/src/Utilities/InputOutput.f90 @@ -17,7 +17,7 @@ module InputOutputModule UPCASE, URWORD, ULSTLB, UBDSV4, & ubdsv06, UBDSVB, UCOLNO, ULAPRW, & ULASAV, ubdsv1, ubdsvc, ubdsvd, UWWORD, & - same_word, get_node, get_ijk, padl, unitinquire, & + same_word, get_node, get_ijk, str_pad_left, unitinquire, & ParseLine, ulaprufw, openfile, & linear_interpolate, lowcase, & read_line, & @@ -1200,7 +1200,7 @@ end subroutine get_ijk !> @brief Function for string manipulation !< - function padl(str, width) result(res) + function str_pad_left(str, width) result(res) ! -- local character(len=*), intent(in) :: str integer, intent(in) :: width