lowercase_string Function

public pure 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 lowercase_string proc~to_logical to_logical proc~to_logical->proc~lowercase_string proc~csv_get_value csv_file%csv_get_value proc~csv_get_value->proc~to_logical proc~infer_variable_type infer_variable_type proc~infer_variable_type->proc~to_logical proc~get_column csv_file%get_column proc~get_column->proc~csv_get_value proc~variable_types csv_file%variable_types proc~variable_types->proc~infer_variable_type proc~get_character_column csv_file%get_character_column proc~get_character_column->proc~get_column proc~get_csv_string_column csv_file%get_csv_string_column proc~get_csv_string_column->proc~get_column proc~get_integer_column csv_file%get_integer_column proc~get_integer_column->proc~get_column proc~get_logical_column csv_file%get_logical_column proc~get_logical_column->proc~get_column proc~get_real_sp_column csv_file%get_real_sp_column proc~get_real_sp_column->proc~get_column proc~get_real_wp_column csv_file%get_real_wp_column proc~get_real_wp_column->proc~get_column

Source Code

    pure 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

    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