to_uni_vec Function

private pure function to_uni_vec(str)

Convert array of strings to unicode (CDK to CK).

Note

JW: may be able to remove this by making to_uni PURE ELEMENTAL ?

Arguments

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

Return Value character(kind=CK, len=len), dimension(size(str))


Source Code

    pure function to_uni_vec(str)

    implicit none

    character(kind=CDK,len=*), dimension(:), intent(in)   :: str
    character(kind=CK,len=len(str)), dimension(size(str)) :: to_uni_vec

    to_uni_vec = str

    end function to_uni_vec