to_uni Function

private pure function to_uni(str)

Convert string to unicode (CDK to CK).

Arguments

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

Return Value character(kind=CK, len=len)


Source Code

    pure function to_uni(str)

    implicit none

    character(kind=CDK,len=*), intent(in) :: str
    character(kind=CK,len=len(str))       :: to_uni

    to_uni = str

    end function to_uni