* ************************************************************************ subroutine selhqn(elst) * ************************************************************************ * Purpose : * --------- * The status ELST is modified to correspond to the status of * an element function whose Hessian matrix is updated by a * quasi-Newton scheme. * The seventh bit of the integer ELST is set to one. * Parameter : * ----------- * elst ( int ) * input : the status of the considered element function. * output : the updated status corresponds to the status * of an element function whose Hessian matrix is * updated by a quasi-Newton scheme. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer elst elst = mod(elst,32) + 64 return end