Linear Algebra and the C Language/a02b


Install this file in your working directory.

/* ------------------------------------ */
/*  Save as :   vgc_inv.h               */
/* ------------------------------------ */
double **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];
            
   return(invA);
}
/* ------------------------------------ */
/* ------------------------------------ */