str_to_array Function

public function str_to_array(s) result(a)

convert the character string to an array of characters

Arguments

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

Return Value character(len=1), dimension(len(s))


Source Code

    function str_to_array(s) result(a)
        character(len=*),intent(in) :: s
        character(len=1),dimension(len(s)) :: a
        integer :: i
        do i = 1, len(s) ! transfer
            a(i) = s(i:i)
        end do
    end function str_to_array