Linear Algebra and the C Language/a02b
Install this file in your working directory.
/* ------------------------------------ */
/* Save as : vgc_inv.h */
/* ------------------------------------ */
void c_Inv_A_mR(
double **AID,
double **invA
)
{
int r;
int c;
int RC = AID[C_SIZE_A][C0];
--RC;
for (r=R1; r<invA[R_SIZE][C0]; r++)
for (c=C1; c<invA[C_SIZE][C0]; c++)
invA[r][c] = AID[r][c+RC];
}
/* ------------------------------------ */
/* ------------------------------------ */