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