Linear Algebra and the C Language/a0ml
The function calculates the square root of the eignvalues.
/* ------------------------------------ */
/* ------------------------------------ */
double **sqrt_svd_mR(
double **Evalue,
double **sqrtEvalue
)
{
int r;
int c;
dif_sizes_mR(Evalue,sqrtEvalue,"svd_sqrt_mR();","(Evalue or sqrtEvalue)");
for ( r=R1; r<Evalue[R_SIZE][C0]; r++)
sqrtEvalue[r][C1] = sqrt(Evalue[r][C1]);
return(sqrtEvalue);
}
/* ------------------------------------ */
/* ------------------------------------ */