- if (factor->print & PRINT_ROTATION)
- {
- if (i < idata->n_extractions)
- {
- tab_double (t, c++, i + heading_rows, 0, r_lambda, NULL);
- tab_double (t, c++, i + heading_rows, 0, r_percent, NULL);
- tab_double (t, c++, i + heading_rows, 0, r_cum, NULL);
- }
- }
+ if (rotated_loadings != NULL)
+ {
+ const double r_lambda = gsl_vector_get (rotated_loadings, i);
+ double r_percent = 100.0 * r_lambda / e_total ;