;

FUNCTION HSI_Packet, obj, DESTROY=destroy, $
            _EXTRA=_extra

IF NOT Keyword_Set( DESTROY ) THEN BEGIN
    obj = Obj_New( 'hsi_packet', _EXTRA=_extra )
    RETURN, obj
ENDIF ELSE BEGIN
    Obj_Destroy, obj
ENDELSE

END


;---------------------------------------------------------------------------
; End of 'hsi_packet.pro'.
;---------------------------------------------------------------------------