* ************************************************************************ logical function elcvx(elst) * ************************************************************************ * Purpose : * --------- * This function checks if the status ELST corresponds to the * status of a convex element function. * Parameters : * ------------ * elst ( int ) * input : the status of the considered element function. * output : unmodified. * elcvx ( log ) * input : meaningless. * output : .true. iff the status ELST correspond to the * status of a convex element function. * .false. otherwise. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer elst * Internal variable integer aux aux = elst / 32 elcvx = mod(aux,2).eq.1 return end