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

      subroutine inxst( xst, arcs )

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

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

*     This routine initializes the status vector XST of all 
*     the variables of the problem by considering the initial 
*     information stored in XST by the user.

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

*     xst     ( int )

*       input  : array of length arcs, containing the initial
*                status of the variables. It is given by the user.
*                XST(k) = -1 iff variable k is free.
*                XST(k) =  0 iff variable k is fixed.
*                XST(k) = +1 iff variable k is bounded.
*       output : array of length arcs, containing the updated
*                status of the variables.
*                All the variables that are not fixed, are
*                now considered as superbasic variables.

*     arcs    ( int )

*       input  : the total number of variables of the problem.
*       output : unmodified.

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

*     None.

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

*     D. Tuyttens 

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

*     Routine parameters

      integer  xst(*), arcs

*     Internal variable

      integer  k

      do 10 k = 1 , arcs
        if( xst(k).eq.0 ) then
          xst(k) = 4
        else
          xst(k) = 1
        endif
 10   continue

      return
      end