replace_VS_VS_fixed Function

private elemental function replace_VS_VS_fixed(string, start, finish, substring) result(rep_string)

Replace part of a varying string with a varying substring

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(in) :: start
integer, intent(in) :: finish
type(varying_string), intent(in) :: substring

Return Value type(varying_string)


Source Code

  elemental function replace_VS_VS_fixed (string, start, finish, substring) result (rep_string)

    type(varying_string), intent(in) :: string
    integer, intent(in)              :: start
    integer, intent(in)              :: finish
    type(varying_string), intent(in) :: substring
    type(varying_string)             :: rep_string


    rep_string = replace(char(string), start, finish, char(substring))

! Finish

    return

  end function replace_VS_VS_fixed