split2 Function

private pure function split2(s, token) result(vals)

Split a string, given a token.

Arguments

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

Return Value type(string), dimension(:), allocatable


Calls

proc~~split2~~CallsGraph proc~split2 split2 proc~split1 split1 proc~split2->proc~split1 proc~expand_vector expand_vector proc~split1->proc~expand_vector

Called by

proc~~split2~~CalledByGraph proc~split2 split2 interface~split split interface~split->proc~split2 proc~parse_nums64 parse_nums64 proc~parse_nums64->interface~split interface~parse parse interface~parse->proc~parse_nums64

Source Code

    pure function split2(s,token) result(vals)

    implicit none

    type(string),intent(in)  :: s
    character(len=*),intent(in)  :: token
    type(string),dimension(:),allocatable:: vals

    if (allocated(s%str)) then
        vals = split1(s%str,token)
    else
        error stop 'error: string not allocated'
    end if

    end function split2