lowercase_string Function

private pure elemental function lowercase_string(str) result(s_lower)

Returns lowercase version of the string.

Arguments

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

input string

Return Value character(len=len=(len(str)))

lowercase version of the string


Called by

proc~~lowercase_string~~CalledByGraph proc~lowercase_string namelist_parser_module::lowercase_string proc~parse_namelist namelist_parser_module::parse_namelist proc~parse_namelist->proc~lowercase_string proc~add_variable namelist_parser_module::add_variable proc~parse_namelist->proc~add_variable proc~to_logical namelist_parser_module::to_logical proc~to_logical->proc~lowercase_string proc~add_variable->proc~to_logical

Source Code

    pure elemental function lowercase_string(str) result(s_lower)

    implicit none

    character(len=*),intent(in) :: str      !! input string
    character(len=(len(str)))   :: s_lower  !! lowercase version of the string

    integer :: i  !! counter
    integer :: j  !! index of uppercase character

    character(len=*),parameter :: upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
        !! uppercase characters
    character(len=*),parameter :: lower = 'abcdefghijklmnopqrstuvwxyz'
        !! lowercase characters

    s_lower = str

    do i = 1, len_trim(str)
        j = index(upper,s_lower(i:i))
        if (j>0) s_lower(i:i) = lower(j:j)
    end do

    end function lowercase_string