Skip to content

Commit

Permalink
Use a more descriptive name
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Oct 17, 2023
1 parent 9f3799e commit bda8094
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Utilities/InputOutput.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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, &
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit bda8094

Please sign in to comment.