felem_shrink
felem_shrink(small1, gamma);
felem_shrink(small2, alpha);
felem_shrink(x_out, felem_x_out);
felem_shrink(y_out, felem_y_out);
felem_shrink(z_out, felem_z_out);
felem_shrink(small3, z1);
felem_shrink(small1, ftmp);
felem_shrink(small2, ftmp2);
felem_shrink(small5, x1);
felem_shrink(small4, ftmp4);
felem_shrink(small1, ftmp5);
felem_shrink(x3, felem_x3);
felem_shrink(y3, felem_y3);
felem_shrink(z3, felem_z3);
felem_shrink(pre_comp[i][1][0], x_out);
felem_shrink(pre_comp[i][1][1], y_out);
felem_shrink(pre_comp[i][1][2], z_out);
felem_shrink(pre->g_pre_comp[0][1][0], x_tmp);
felem_shrink(pre->g_pre_comp[0][1][1], y_tmp);
felem_shrink(pre->g_pre_comp[0][1][2], z_tmp);
felem_shrink(small, in);
felem_shrink(small1, in1);
felem_shrink(small2, in2);
felem_shrink(small2, in2);
felem_shrink(out, in);