histwrite_sub Subroutine

    subroutine histwrite_sub(this)

        class(history_stack_t) :: this

        select case(this%type)
            case("obj")
                call obj_writer(this)
            case("ply")
                call ply_writer(this)
            case("json")
                call json_writer(this)
            case default
                error stop "No such output type "//this%type
        end select

    end subroutine histwrite_sub