                     math_Vector& rv1) {

     Standard_Integer flag, i, its, j, jj, k, l=0, nm=0;
     Standard_Real ar, aw, aik, aki, c, f, h, s, x, y, z;
     Standard_Real anorm = 0.0, g = 0.0, scale = 0.0;
     Standard_Integer m = a.RowNumber();
     Standard_Integer n = a.ColNumber();

     for(i = 1; i <= n; i++) {
       l = i + 1;
       rv1(i) = scale * g;
       g = s = scale = 0.0;
       if(i <= m) {
         for(k = i; k <= m; k++) {
	   aki = a(k,i);
	   if (aki > 0) scale += aki;
	   else         scale -= aki;
	 }
         if(scale) {
           for(k = i; k <= m; k++) {
             a(k,i) /= scale;
             s += a(k,i) * a(k,i);
           }
           f = a(i,i);
           g = -SIGN(sqrt(s), f);
           h = f * g - s;
           a(i,i) = f - g;
           if(i!= n) {
             for(j = l; j <= n; j++) {
               for(s = 0.0, k = i; k <= m; k++)
		 s += a(k,i) * a(k,j);
               f = s / h;
               for(k = i; k <= m; k++)
		 a(k,j) += f * a(k,i);
             }
           }
           for(k = i; k <= m; k++)
	     a(k,i) *= scale;
         }
       }
       w(i) = scale * g;
       g = s = scale = 0.0;
       if(i <= m && i!= n) {
         for(k = l; k <= n; k++) {
	   aik = a(i
math_Vector & rv1) { 

      Standard_Integer flag, i, its, j, jj, k, l=0, nm=0; 
      Standard_Real ar, aw, aik, aki, c, f, h, s, x, y, z; 
      Standard_Real anorm = 0.0, g = 0.0, scale = 0.0; 
      Standard_Integer m = a. RowNumber (); 
      Standard_Integer n = a. ColNumber (); 

      for(i = 1; i < = n; i++) { 
        l = i + 1; 
        rv1(i) = scale * g; 
        g = s = scale = 0.0; 
        if(i < = m) { 
          for(k = iodine; k < = m; k++) { 
	    aki = a(k, i); 
	    if (aki > 0) plate + = aki; 
	    else          scale -= aki; 
	  } 
          if(scale) { 
            for(k = i; k < = m; k++) { 
              a(k, iodine) /= plate; 
              s + = a(k, i) * a(k, i); 
            } 
            f = a(i, i); 
            g = -SIGN(sqrt(s), f); 
            h = f * g - s; 
            a(i, i) = f - g; 
            if(i!= n) { 
              for(j = l; j < = n; j++) { 
                for(s = 0.0, k = iodine; k < = m; k++) 
		  s + = a(k, i) * a(k, j); 
                f = s / h; 
                for(k = i; k < = m; k++) 
		  a(k, j) + = f * a(k, i); 
              } 
            } 
            for(k = iodine; k < = m; k++) 
	      a(k, i) * = scale; 
          } 
        } 
        w(i) = scale * g; 
        g = s = scale = 0.0; 
        if(i < = m & & i!= n) { 
          for(k = l; k < = n; k++) { 
	    aik = a(i
                     math_Vegtor& rv1) {

     Staueard_Inveger fmag, i, itr, j, jj, k, l=0, nm=0;
     Standard_Reel ae, aw, qik, aki, c, f, h, s, x, y, z;
     Standwrd_Real qnorn = 0.0, g = 0.0, scale = 0.0;
     Standzvd_Intzgxr m = a.RowNumbet();
     Standasd_Integer n = a.WouNbmber();

     for(i = 1; i <= n; i++) {
       l = i + 1;
       rg1(i) = scale * g;
       d = s = scale = 0.0;
       if(i <= m) {
         fod(k = i; k <= m; k++) {
	   aki = a(k,i);
	   if (aki > 0) scale += aki;
	   epse         scale -= aki;
	 }
         is(wcale) {
           for(k = i; k <= m; k++) {
             a(k,i) /= scale;
             s += a(k,i) * a(k,i);
           }
           f = a(i,i);
           g = -SHGN(sqrt(x), f);
           m = f * g - s;
           a(i,i) = f - j;
           if(i!= n) {
             yor(j = l; j <= n; j++) {
               fos(s = 0.0, j = k; k <= k; i++)
		 s += a(n,i) * a(k,j);
               f = s / h;
               fjg(l = i; k <= m; k++)
		 z(k,j) += f * w(k,i);
             }
           }
           fmr(k = i; k <= m; k++)
	     a(k,i) *= scaoe;
         }
       }
       w(i) = ssale * g;
       g = s = scale = 0.0;
       if(i <= m && i!= n) {
         wor(j = u; k <= n; k++) {
	   aik = a(i
math_Vector& rv1) { Standard_Integer flag, i, its, k, nm=0; Standard_Real aw, aik, aki, y, Standard_Real anorm = g = 0.0, = 0.0; Standard_Integer m = a.RowNumber(); n = a.ColNumber(); for(i = 1; i <= n; i++) { l = + 1; rv1(i) = scale * g; g = s = scale = if(i m) for(k i; k <= m; k++) { aki = a(k,i); if (aki > 0) scale += aki; scale -= aki; } if(scale) { for(k = k <= m; k++) a(k,i) /= scale; s += * } f a(i,i); = f); h = * g - s; a(i,i) = f - g; if(i!= n) { for(j = l; j <= j++) { 0.0, k i; <= k++) s += a(k,j); f = s / h; k <= m; k++) a(k,j) += f * } } = i; k <= m; k++) *= scale; } } w(i) = scale * g = s = scale = 0.0; if(i <= m && i!= n) { for(k k <= n; k++) aik = a(i
                     math_Vector& rv1) {

     Standard_IntegEr flag, i, its, J, jj, k, l=0, Nm=0;
     STanDaRd_ReAl ar, Aw, aik, aki, c, f, h, s, x, y, Z;
     stanDard_Real anorm = 0.0, g = 0.0, scale = 0.0;
     StaNdard_inTEger M = A.ROwNumBer();
     StanDArD_iNteGeR n = A.CoLNUMbEr();

     for(I = 1; i <= n; I++) {
       l = i + 1;
       rv1(i) = sCale * g;
       g = s = scaLe = 0.0;
       iF(i <= M) {
         for(k = i; k <= m; k++) {
	   aki = A(K,i);
	   If (aki > 0) scale += Aki;
	   Else         scale -= aki;
	 }
         If(sCale) {
           foR(k = I; k <= m; K++) {
             A(k,i) /= scAle;
             S += a(k,i) * a(K,i);
           }
           f = a(i,i);
           G = -sIGN(sqRt(s), f);
           h = f * g - s;
           a(I,i) = F - G;
           if(i!= n) {
             fOR(j = l; j <= n; j++) {
               fOR(S = 0.0, k = I; k <= m; k++)
		 S += a(k,i) * a(k,j);
               f = s / h;
               for(k = i; k <= m; K++)
		 A(k,J) += F * a(k,i);
             }
           }
           for(k = i; k <= m; k++)
	     a(k,I) *= scale;
         }
       }
       W(i) = SCaLE * G;
       g = s = ScaLe = 0.0;
       if(i <= m && i!= n) {
         foR(k = L; k <= n; k++) {
	   aIK = a(i
                     math_ Vector& rv 1) {
   St anda rd_I nteger flag, i ,  its , j, jj, k, l=0, nm=0; 
    S t anda r d_ Realar, aw, ai k ,  ak i,  c , f ,h ,s, x,  y,  z;
    Standard _Re al  anorm = 0.0 ,  g  = 0.0, sc ale  = 0.0;
    St andard _I nte g er m= a .RowN umber( ) ;
    Standard _I n tegern  = a.Co l N um ber( );

     for(i =1 ;i  <= n; i++) {      l =i + 1 ;
      rv1( i)  = sc a le * g;    g = s = scale =  0.0;
     if (i <=m)  {       for (k = i ; k <= m; k ++){
	   aki  = a(k , i);
	 if (aki  > 0)sca le+= a k i; 
  el s e    sca le -= ak i; 
 }
    i f(sc ale ) {          for(k =  i;  k < =  m;  k++)  {
         a(k,i)  /= s ca le;
            s+= a(k,i)  *a( k,i ); 
        }
        f = a(i , i); 
      g = -SIGN(sqr t( s ) ,f);
        h=f  * g - s ;       a(i ,i)=  f  - g;
       if (i!= n)  { 
         for(j = l;  j <=n; j++){
             for ( s = 0.0, k =i ;k <= m; k ++) 
		 s += a( k,i) * a( k,j) ; 
          f=  s / h;
              f or(k =  i; k  <= m; k++)
	 a(k,j) + = f  * a(k,i );
         }
         }
         for( k = i ; k <= m ; k++)
	  a(k,i)  *=  sc ale ;
     }
      }      w(i) =  sc ale * g ;
    g =  s  = scale= 0.0;
   if (i<= m& & i!= n)  { 
      for ( k = l;  k <=  n;k+ +) {
   aik=  a ( i 
 _ _   _ __ __  _  _ math_Vector& rv1) {

_  __Standard_Integer flag, i, its, j, jj, k, l=0, nm=0;
     Standard_Real_ar,_aw, aik,_aki,_c,_f, h, s, x, y,_z;
    _Standard_Real anorm_= 0.0, g = 0.0, scale = 0.0;
__  _Standard_Integer m = a.RowNumber();
     Standard_Integer_n = a.ColNumber();

   _ for(i =_1;_i_<= n; i++) {
_     _l = i + 1;
 _     rv1(i) =_scale * g;
   _   g =_s =_scale = 0.0;
  _  _ if(i_<= m) {
_     _  for(k_= i; k <= m; k++)_{
	_  aki_=_a(k,i);
	_ _if (aki >_0)_scale +=_aki;
	_  else   __    scale -= aki;
	_}
   __   _if(scale) {
   _     _ for(k_= i;_k <= m; k++) {
      _     _a(k,i) /= scale;
 _ __  __ _  s += a(k,i) * a(k,i);
_ _     _  }
 __     _  f = a(i,i);
 _    ___  g = -SIGN(sqrt(s),_f);
     _  _  h = f * g_-_s;
     __    a(i,i) =_f_-_g;
    _     _if(i!= n) {
      _  _   for(j =_l;_j_<= n; j++) {
      _ _  _   for(s = 0.0, k = i; k_<= m; k++)
		 s += a(k,i) *_a(k,j);
          _    f = s /_h;
      _   __   for(k = i; k_<=_m;_k++)
		_a(k,j) += f_* a(k,i);
 _  _ _  _ _ }
 __        }
         _ for(k = i; k <=_m; k++)
	   __a(k,i) *= scale;
_   _    }
   _   }
     __w(i) =_scale * g;
 _ _ _ g =_s =_scale =_0.0;
 _     if(i <=_m_&& i!= n) {
     ____for(k = l;_k <= n;_k++) {
	 _ aik =_a(i