; docformat = 'rst'
;+
; Information about the current state of the heap.
;
; :Keywords:
; n_pointers : out, optional, type=long
; set to a named variable to receive the number of pointers on the heap
; n_objects : out, optional, type=long
; set to a named variable to receive the number of objects on the heap
;-
pro mg_heapinfo, n_pointers=nPointers, n_objects=nObjects
compile_opt strictarr
help, /heap, output=output
if (arg_present(nPointers)) then begin
nPointers = long(strmid(output[1], strpos(output[1], ':') + 1))
endif
if (arg_present(nObjects)) then begin
nObjects = long(strmid(output[2], strpos(output[2], ':') + 1))
endif
end