bridge/class-master/depend/pari/src/basemath/RgV.c
/********************************************************************/
/*                                                                  */
/*                    SCALAR TO MATRIX/VECTOR                       */
/*                                                                  */
/********************************************************************/
/* fill the square nxn matrix equal to t*Id */
SCALAR TO MATRIX/VECTOR

fill the square nxn matrix equal to t*Id
SCALAR TO MATRIX / VECTOR fill the square nxn matrix equal to t * Id
static void
fill_scalmat(GEN y, GEN t, long n)
{
  long i;
  for (i = 1; i <= n; i++)
  {
    gel(y,i) = zerocol(n);
    gcoeff(y,i,i) = t;
  }
}
static void fill_scalmat ( GEN y , GEN t , long n ) { long i ; for ( i = 1 ; i <= n ; i ++ ) { gel ( y , i ) = zerocol ( n ) ; gcoeff ( y , i , i ) = t ; } }
SCALAR TO MATRIX/VECTOR
SCALAR TO MATRIX / VECTOR