pro idl_speed, code
;
;
;
common idl_speed_blk, start
;
if (keyword_set(code)) then begin
    if (n_elements(start) eq 0) then begin
	message, 'START TIME NOT INITIALIZED', /info
	return
    end
    finish = systime(1)
    dt = finish - start
    print, 'IDL step took: ' + string(dt) + ' sec'
end else begin
    start = systime(1)
end
;
end