var_str_ Function

private elemental function var_str_(char) result(string)

Convert a character string to a varying string

Arguments

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

Return Value type(varying_string)


Contents

Variables

Source Code

var_str_

Variables

Type Visibility Attributes Name Initial
integer, private :: i_char
integer, private :: length

Source Code

  elemental function var_str_ (char) result (string)

    character(LEN=*), intent(in) :: char
    type(varying_string)         :: string

    integer                      :: length
    integer                      :: i_char


    length = LEN(char)

    ALLOCATE(string%chars(length))

    forall(i_char = 1:length)
       string%chars(i_char) = char(i_char:i_char)
    end forall

! Finish

    return

  end function var_str_