/* ------------------------------------ */
/*  Save as :   vgp_free.h                  */
/* ------------------------------------ */   
void p_freevariable(
double **b,
int e,
int d)
{
 int m;
 int r;
 int c;
char v;

 m = 0;

 for(r=R1; r<b[R_SIZE][C0];    r++)
  {
   v = 'y' - (b[R_SIZE][C0]-C1);

   printf("\n");
   m++;
   printf(" x%d = ",m);

   for(c=C1; c<b[C_SIZE][C0]; c++)
      {
       if(c==C1) printf(" %+*.*f",e,d,b[r][c]);
       else
         {
          if(c_coef_R(b,r,c)== 1)          printf(" +%c",v);
     else if(c_coef_R(b,r,c)==-1)          printf(" -%c",v);
     else if(fabs(c_coef_R(b,r,c))>ERROR_E)printf(" %+*.*f*%c",e,d,b[r][c],v);
     v++;
         }
      }
  }
   printf("\n");
}
/* ------------------------------------ */
/* ------------------------------------ */