*     ************************************************************************

      subroutine snelcv(elst)

*     ************************************************************************

*     Purpose :
*     ---------

*     The status ELST is modified to correspond to the status of
*     an non-convex element function.

*     The sith bit of the integer ELST is set to zero.

*     Parameter :
*     -----------

*     elst    ( int )

*       input  : the status of the considered element function.
*       output : the updated status corresponds to the status
*                of a non-convex element function.

*     Routines used :
*     ---------------

*     None.

*     Programming :
*     -------------

*     D. Tuyttens

*     ========================================================================

*     Routine parameter

      integer  elst

*     Internal variable

      integer  aux

      aux = elst / 32
      if( mod(aux,2).eq.1 ) elst = elst - 32

      return
      end