point_double
point_double(nq[0], nq[1], nq[2], nq[0], nq[1], nq[2]);
point_double(pre_comp[i][j][0], pre_comp[i][j][1],
point_double(pre->g_pre_comp[1][i][0], pre->g_pre_comp[1][i][1],
point_double(pre->g_pre_comp[1][i][0], pre->g_pre_comp[1][i][1],
point_double(pre->g_pre_comp[0][2 * i][0],
point_double(pre->g_pre_comp[0][2 * i][0],
point_double(x3, y3, z3, x1, y1, z1);
point_double(felem_x_out, felem_y_out, felem_z_out,
point_double(x3, y3, z3, x1, y1, z1);
point_double(nq[0], nq[1], nq[2], nq[0], nq[1], nq[2]);
point_double(x3, y3, z3, x1, y1, z1);
point_double(nq[0], nq[1], nq[2], nq[0], nq[1], nq[2]);
point_double(pre_comp[i][j][0], pre_comp[i][j][1], pre_comp[i][j][2],
point_double(pre->g_pre_comp[2 * i][0], pre->g_pre_comp[2 * i][1], pre->g_pre_comp[2 * i][2],
point_double(pre->g_pre_comp[2 * i][0], pre->g_pre_comp[2 * i][1], pre->g_pre_comp[2 * i][2],
point_double(x3, y3, z3, x1, y1, z1);
point_double(nq[0], nq[1], nq[2], nq[0], nq[1], nq[2]);
point_double(pre_comp[i][j][0], pre_comp[i][j][1],
point_double(pre->g_pre_comp[2 * i][0], pre->g_pre_comp[2 * i][1],
point_double(pre->g_pre_comp[2 * i][0],