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

      logical function elint(elst)

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

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

*     This function checks if the status ELST corresponds to the
*     status of an element function having an internal dimension
*     strictly smaller than its elemental dimension.

*     Parameters :
*     ------------

*     elst    ( int )

*       input  : the status of the considered element function.
*       output : unmodified.

*     elint   ( log )

*       input  : meaningless
*       output : .true.  iff the status ELST corresponds to the
*                        status of an element function having
*                        an internal dimension strictly smaller
*                        than its elemental dimension.
*                .false. otherwise.

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

*     None.

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

*     D. Tuyttens 

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

*     Routine parameter

      integer  elst

*     Internal variable

      integer  aux

      aux   = elst / 16
      elint = mod(aux,2).eq.1

      return
      end