lower_ascii Function

private pure function lower_ascii(s) result(out)

ASCII lowercase a string (attribute matching is case-insensitive).

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: s

Return Value character(len=len)


Called by

proc~~lower_ascii~~CalledByGraph proc~lower_ascii lower_ascii proc~parse_one_spec_token parse_one_spec_token proc~parse_one_spec_token->proc~lower_ascii proc~parse_diag_spec parse_diag_spec proc~parse_diag_spec->proc~parse_one_spec_token proc~apply_diag_selection apply_diag_selection proc~apply_diag_selection->proc~parse_diag_spec proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~apply_diag_selection proc~engine_setup engine_setup proc~engine_setup->proc~engine_configure_diag

Variables

Type Visibility Attributes Name Initial
integer, private :: c
integer, private :: i

Source Code

   pure function lower_ascii(s) result(out)
      !! ASCII lowercase a string (attribute matching is case-insensitive).
      character(len=*), intent(in) :: s
      character(len=len(s)) :: out
      integer :: i, c
      do i = 1, len(s)
         c = iachar(s(i:i))
         if (c >= iachar("A") .and. c <= iachar("Z")) then
            out(i:i) = achar(c + 32)
         else
            out(i:i) = s(i:i)
         end if
      end do
   end function lower_ascii