© Numerical Algorithms Group, 2002.

e04naf_qphess User Supplied Function Description

             [NAGWare Gateway Generator]

Copyright (c) 1993 by the Numerical Algorithms Group Ltd

qphess
(see also e04naf) 


n                                     integer
nrowh                                 integer
ncolh                                 integer
jthcol                                integer
hessn (nrowh,ncolh)                   real
x (n)                                 real
hx (n)                                real

[hx] = qphess(n,nrowh,ncolh,jthcol,hessn,x)


 function [hx] = qphess(n,nrowh,ncolh,jthcol,hessn,x)