* ************************************************************************ subroutine selint(elst) * ************************************************************************ * Purpose : * --------- * The status ELST is modified to correspond to the status of * an element function having an internal dimension strictly * smaller than its elemental dimension. * The fifth 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 having an internal * dimension strictly smaller than its internal * dimension. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer elst * Internal variable integer aux aux = elst / 16 if( mod(aux,2).eq.0 ) elst = elst + 16 return end