/* xp_freev.h                    freeware                  [[Email Removed]]  */

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* Call  :                                                                    */
/* Debug :                                                                    */
/* -------------------------------------------------------------------------- */
void printfreevariable(
pmatrix mA)
{
 int i;
 int j;
 int    m = 0;
 int zero;
char c;


for (i = 0 ; i < mA->rows ; i++)
{
    c = 't' - ((mA->rows-1)*TWOCOL);
 zero = -1;
 m++;
 printf("\n");
 printf(" x%d = ",m);

 for ( j = 0; j < mA->cols; j++,j++)
 {
  ++c;
  if(*(mA->pblock + i *mA->cols + j))
    {
     zero++;
     if(j > mA->rows*TWOCOL)
       {
        if(*(mA->pblock+i *mA->cols+j)== 1 && *(mA->pblock+i *mA->cols+j+1)==1)
          {printf(" +%c ",c);}
   else if(*(mA->pblock+i *mA->cols+j)==-1 && *(mA->pblock+i *mA->cols+j+1)==1)
          {printf(" -%c ",c);}
   else if(*(mA->pblock+i *mA->cols+j+1)==1)
          {printf(" %+.0f %c ",*(mA->pblock+i *mA->cols+j),c);}
   else   {printf(" %+.0f/%-.0f %c ",*(mA->pblock+i *mA->cols+j),
                                       *(mA->pblock+i *mA->cols+j+1),c);}
       }

        if(j == mA->rows*TWOCOL)
        {
         if(*(mA->pblock+i *mA->cols+j+1)==1)
           {printf(" %+.0f",*(mA->pblock+i *mA->cols+j));}
   else    {printf(" %+.0f/%-.0f",*(mA->pblock+i *mA->cols+j    ),
                                    *(mA->pblock+i *mA->cols+j+1));}
        }
    }
 }
 if(!zero){printf(" 0");};
}
printf("\n");
}