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

      logical function gxcon(xstat)

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

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

*     This function checks if the status XSTAT corresponds to the
*     status of nonbasic variable that has already been used for
*     de-activation.

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

*     xstat   ( int )

*       input  : the status of the considered variable.
*       output : unmodified.

*     gxcon   ( log )

*       input  : meaningless.
*       output : .true.  iff the status XSTAT corresponds to the
*                        status of a nonbasic variable that has
*                        already been used for de-activation.
*                .false. otherwise.

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

*     None.

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

*     D. Tuyttens 

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

*     Routine parameter

      integer xstat

*     Internal variable

      integer aux

      aux   = xstat / 8
      gxcon = mod(aux,2).eq.1

      return
      end