%==========================================================================
% File Name     : <qphess.m>
% Usage         : [hx,user,iwsav] = qphess(n,jthcol,hessn,ldh,x,user,iwsav)
% Description   : This is a sub-routine required by NAG. 
%--------------------------------------------------------------------------
% Author        : Richard Oberdieck, Nikolaos A. Diangelakis
% Office        : Giesecke Engineering Research Building, Texas A&M, USA.
% Mail          : paroc@tamu.edu
%--------------------------------------------------------------------------
% Last Revision | Author  | Description
%---------------+---------+------------------------------------------------
% 23-Mar-2015   | RO      | Initial Version
%==========================================================================