assign_string_to_json_file Subroutine

private subroutine assign_string_to_json_file(me, str)

Assignment operator for json_core = character. This is just a wrapper for the json_file_load_from_string routine.

Type Bound

json_file

Arguments

Type IntentOptional Attributes Name
class(json_file), intent(inout) :: me
character(kind=CK, len=*), intent(in) :: str

Calls

proc~~assign_string_to_json_file~~CallsGraph proc~assign_string_to_json_file json_file_module::json_file%assign_string_to_json_file deserialize deserialize proc~assign_string_to_json_file->deserialize destroy destroy proc~assign_string_to_json_file->destroy

Called by

proc~~assign_string_to_json_file~~CalledByGraph proc~assign_string_to_json_file json_file_module::json_file%assign_string_to_json_file proc~wrap_assign_string_to_json_file json_file_module::json_file%wrap_assign_string_to_json_file proc~wrap_assign_string_to_json_file->proc~assign_string_to_json_file

Contents


Source Code

    subroutine assign_string_to_json_file(me,str)

    implicit none

    class(json_file),intent(inout) :: me
    character(kind=CK,len=*),intent(in) :: str

    if (associated(me%p)) call me%destroy()
    if (me%core%failed()) call me%core%clear_exceptions()
    call me%deserialize(str)

    end subroutine assign_string_to_json_file