unescape_string Subroutine

public subroutine unescape_string(str_in, str_out, error_message)

Arguments

Type IntentOptional AttributesName
character(kind=CK,len=*), intent(in) :: str_in

string as stored in a json_value

character(kind=CK,len=:), intent(out), allocatable:: str_out

decoded string

character(kind=CK,len=:), intent(out), allocatable:: error_message

will be allocated if there was an error


Variables

TypeVisibility AttributesNameInitial
integer, public :: i

counter

integer, public :: n

length of str_in

integer, public :: m

length of str_out

character(kind=CK,len=1), public :: c

for scanning each character in string