Mathc matrices/h10b

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	vgc_free.h

/* ------------------------------------ */
/*  Save as :   vgc_free.h              */
/* ------------------------------------ */
void put_freeV_TP_mR(
double **Ab,
int r_not_0
)
{
int r;
int t;

  for( r=r_not_0,t=1; r<Ab[C_SIZE_A][C0]; r++,t++)
     {
      c_s_mR(1.,Ab,r,r);
      c_s_mR(1.,Ab,r,Ab[C_SIZE_A][C0]+t);
     }
}
/* ------------------------------------ */
/* ------------------------------------ */

fichier h.